Chris@0: # Redmine - project management software
chris@37: # Copyright (C) 2006-2010  Jean-Philippe Lang
Chris@0: #
Chris@0: # This program is free software; you can redistribute it and/or
Chris@0: # modify it under the terms of the GNU General Public License
Chris@0: # as published by the Free Software Foundation; either version 2
Chris@0: # of the License, or (at your option) any later version.
Chris@0: # 
Chris@0: # This program is distributed in the hope that it will be useful,
Chris@0: # but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@0: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
Chris@0: # GNU General Public License for more details.
Chris@0: # 
Chris@0: # You should have received a copy of the GNU General Public License
Chris@0: # along with this program; if not, write to the Free Software
Chris@0: # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
Chris@0: 
Chris@0: require 'redcloth3'
Chris@0: 
Chris@0: module Redmine
Chris@0:   module WikiFormatting
Chris@0:     module Textile
Chris@0:       class Formatter < RedCloth3
Chris@0:         include ActionView::Helpers::TagHelper
Chris@0:         
Chris@0:         # auto_link rule after textile rules so that it doesn't break !image_url! tags
chris@37:         RULES = [:textile, :block_markdown_rule, :inline_auto_link, :inline_auto_mailto]
Chris@0:         
Chris@0:         def initialize(*args)
Chris@0:           super
Chris@0:           self.hard_breaks=true
Chris@0:           self.no_span_caps=true
Chris@0:           self.filter_styles=true
Chris@0:         end
Chris@0:         
Chris@0:         def to_html(*rules)
Chris@0:           @toc = []
Chris@0:           super(*RULES).to_s
Chris@0:         end
Chris@0:   
Chris@0:       private
Chris@0:   
Chris@0:         # Patch for RedCloth.  Fixed in RedCloth r128 but _why hasn't released it yet.
Chris@0:         # <a href="http://code.whytheluckystiff.net/redcloth/changeset/128">http://code.whytheluckystiff.net/redcloth/changeset/128</a>
Chris@0:         def hard_break( text ) 
Chris@0:           text.gsub!( /(.)\n(?!\n|\Z|>| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks
Chris@0:         end
Chris@0:         
Chris@0:         # Patch to add code highlighting support to RedCloth
Chris@0:         def smooth_offtags( text )
Chris@0:           unless @pre_list.empty?
Chris@0:             ## replace <pre> content
Chris@0:             text.gsub!(/<redpre#(\d+)>/) do
Chris@0:               content = @pre_list[$1.to_i]
Chris@0:               if content.match(/<code\s+class="(\w+)">\s?(.+)/m)
Chris@0:                 content = "<code class=\"#{$1} syntaxhl\">" + 
Chris@0:                   Redmine::SyntaxHighlighting.highlight_by_language($2, $1)
Chris@0:               end
Chris@0:               content
Chris@0:             end
Chris@0:           end
Chris@0:         end
Chris@0:         
Chris@0:         AUTO_LINK_RE = %r{
Chris@0:                         (                          # leading text
Chris@0:                           <\w+.*?>|                # leading HTML tag, or
Chris@0:                           [^=<>!:'"/]|             # leading punctuation, or 
Chris@0:                           ^                        # beginning of line
Chris@0:                         )
Chris@0:                         (
Chris@0:                           (?:https?://)|           # protocol spec, or
Chris@0:                           (?:s?ftps?://)|
Chris@0:                           (?:www\.)                # www.*
Chris@0:                         )
Chris@0:                         (
Chris@0:                           (\S+?)                   # url
Chris@0:                           (\/)?                    # slash
Chris@0:                         )
chris@37:                         ((?:&gt;)?|[^\w\=\/;\(\)]*?)               # post
Chris@0:                         (?=<|\s|$)
Chris@0:                        }x unless const_defined?(:AUTO_LINK_RE)
Chris@0:   
Chris@0:         # Turns all urls into clickable links (code from Rails).
Chris@0:         def inline_auto_link(text)
Chris@0:           text.gsub!(AUTO_LINK_RE) do
Chris@0:             all, leading, proto, url, post = $&, $1, $2, $3, $6
Chris@0:             if leading =~ /<a\s/i || leading =~ /![<>=]?/
Chris@0:               # don't replace URL's that are already linked
Chris@0:               # and URL's prefixed with ! !> !< != (textile images)
Chris@0:               all
Chris@0:             else
Chris@0:               # Idea below : an URL with unbalanced parethesis and
Chris@0:               # ending by ')' is put into external parenthesis
Chris@0:               if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )
Chris@0:                 url=url[0..-2] # discard closing parenth from url
Chris@0:                 post = ")"+post # add closing parenth to post
Chris@0:               end
Chris@0:               tag = content_tag('a', proto + url, :href => "#{proto=="www."?"http://www.":proto}#{url}", :class => 'external')
Chris@0:               %(#{leading}#{tag}#{post})
Chris@0:             end
Chris@0:           end
Chris@0:         end
Chris@0:   
Chris@0:         # Turns all email addresses into clickable links (code from Rails).
Chris@0:         def inline_auto_mailto(text)
Chris@0:           text.gsub!(/([\w\.!#\$%\-+.]+@[A-Za-z0-9\-]+(\.[A-Za-z0-9\-]+)+)/) do
Chris@0:             mail = $1
Chris@0:             if text.match(/<a\b[^>]*>(.*)(#{Regexp.escape(mail)})(.*)<\/a>/)
Chris@0:               mail
Chris@0:             else
Chris@0:               content_tag('a', mail, :href => "mailto:#{mail}", :class => "email")
Chris@0:             end
Chris@0:           end
Chris@0:         end
Chris@0:       end
Chris@0:     end
Chris@0:   end
Chris@0: end