Redmine

#

# == Links

#

# marks" followed immediately by a colon and the URL of the link.

# attribute for the link, visible as a tool tip when a cursor is above it.

# Example:

#

#  "This is a link (This is a title) ":http://www.textism.com

# Will become:

#  <a href="http://www.textism.com" title="This is a title">This is a link</a>

#

# == Images

#

# To insert an image, put the URL for the image inside exclamation marks.

#

# browsers.

#

# closing ! to make the image into a link.

# Example:

#

#  !http://www.textism.com/common/textist.gif(Textist)!

#

# == Defining Acronyms

#

# this should be used at least once for each acronym in documents where they appear.

#

# immediately following the acronym.

# Example:

#

#  ACLU(American Civil Liberties Union)

#     (background:#ddd;color:red). |{}| | | |

#

# == Using RedCloth

# RedCloth is simply an extension of the String class, which can handle

# Textile formatting.  Use it like a String and output HTML with its

# RedCloth#to_html method.

        rules = DEFAULT_RULES if rules.empty?

        # make our working copy

        text = self.dup

        @urlrefs = {}

        @shelf = []

        textile_rules = [:block_textile_table, :block_textile_lists,

                         :block_textile_prefix, :inline_textile_image, :inline_textile_code,

                         :inline_textile_span, :inline_textile_link, :glyphs_textile]

        markdown_rules = [:refs_markdown, :block_markdown_setext, :block_markdown_atx, :block_markdown_rule,

                          :inline_markdown_reflink, :inline_markdown_link]

        @rules = rules.collect do |rule|

            case rule

        end.flatten

        # standard clean up

        # start processor

        @pre_list = []

        escape_html_tags text

        # need to do this before #hard_break and #blocks

        block_textile_quotes text unless @lite_mode

        unless @lite_mode

            refs text

            blocks text

    #

    TEXTILE_TAGS =

         [153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]].

        collect! do |a, b|

    # Text markup tags, don't conflict with block tags

    SIMPLE_HTML_TAGS = [

        'samp', 'kbd', 'var', 'cite', 'abbr', 'acronym', 'a', 'img', 'br',

        'br', 'map', 'q', 'sub', 'sup', 'span', 'bdo'

    ]

        ['+', 'ins', :limit],

        ['^', 'sup', :limit],

        ['~', 'sub', :limit]

    QTAGS_JOIN = QTAGS.map {|rc, ht, rtype| Regexp::quote rc}.join('|')

    QTAGS.collect! do |rc, ht, rtype|

        rcq = Regexp::quote rc

        re =

                (#{C})

                (?::(\S+))?

                ([[:word:]]|[^\s\-].*?[^\s\-])

            end

        [rc, ht, re, rtype]

    end

    # Parses Textile attribute lists and builds an HTML attribute string

    def pba( text_in, element = "" )

        return +'' unless text_in

        style = []

        cls = $1 if

            text.sub!( /\(([^()]+?)\)/, '' )

        style << "padding-left:#{ $1.length }em;" if

            text.sub!( /([(]+)/, '' )

        atts << " id=\"#{ id }\"" if id

        atts << " colspan=\"#{ colspan }\"" if colspan

        atts << " rowspan=\"#{ rowspan }\"" if rowspan

        atts

    end

    end

    TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m

    # Parses a Textile table block, building HTML from the result.

        text.gsub!( TABLE_RE ) do |matches|

            tatts, fullrow = $~[1..2]

            fullrow.each_line do |row|

                ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m

                cells = []

                row.scan(/\|(_?#{S}#{A}#{C}\. ?)?((\[\[[^|\]]*\|[^|\]]*\]\]|[^|])*?)(?=\|)/) do |modifiers, cell|

                    ctyp = 'd'

                    ctyp = 'h' if modifiers && modifiers =~ /^_/

                    catts = pba( modifiers, 'td' ) if modifiers

                    catts = shelve( catts ) if catts

                end

                ratts = shelve( ratts ) if ratts

                rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"

    LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m

    # Parses Textile lists and generates HTML

        text.gsub!( LISTS_RE ) do |match|

            lines = match.split( /\n/ )

            last_line = -1

            depth = []

            lines.each_with_index do |line, line_id|

                    tl,atts,content = $~[1..3]

                    if depth.last

                        if depth.last.length > tl.length

            lines.join( "\n" )

        end

    end

    QUOTES_RE = /(^>+([^\n]*?)(\n|$))+/m

    QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m

    def block_textile_quotes( text )

      text.gsub!( QUOTES_RE ) do |match|

        lines = match.split( /\n/ )

        quotes = +''

        indent = 0

        lines.each do |line|

          bq,content = $1, $2

          l = bq.count('>')

          if l != indent

        @

        (?=\W)/x

        text.gsub!( CODE_RE ) do |m|

            before,lang,code,after = $~[1..4]

            lang = " lang=\"#{ lang }\"" if lang

        end

    end

        text =~ /\#$/ ? 'o' : 'u'

    end

                        end

                    end

                    @rules.each do |rule_name|

                        block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) )

                    end

    BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m

        if text =~ BLOCK_RE

            tag,tagpre,num,atts,cite,content = $~[1..6]

            atts = pba( atts )

            if respond_to? "textile_#{ tag }", true

              replacement = method( "textile_#{ tag }" ).call( tag, atts, cite, content )

            elsif respond_to? "textile_#{ tagpre }_", true

            end

            text.gsub!( $& ) { replacement } if replacement

        end

    end

    SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m

    def block_markdown_setext( text )

        if text =~ SETEXT_RE

    def block_markdown_lists( text )

    end

        QTAGS.each do |qtag_rc, ht, qtag_re, rtype|

            text.gsub!( qtag_re ) do |m|

                case rtype

                when :limit

                    sta,oqs,qtag,content,oqa = $~[1..6]

            (                          # $url

            (\/|[a-zA-Z]+:\/\/|www\.|mailto:)  # $proto

            [[:alnum:]_\/]\S+?

            (\/)?                      # $slash

            ([^[:alnum:]_\=\/;\(\)\-]*?)       # $post

            )

            (?=<|\s|$)

#"

        text.gsub!( LINK_RE ) do |m|

          all,pre,atts,text,title,url,proto,slash,post = $~[1..9]

          if text.include?('<br />')

          else

            url, url_title = check_refs( url )

            title ||= url_title

            # Idea below : an URL with unbalanced parethesis and

            # ending by ')' is put into external parenthesis

            if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )

            atts = +" href=\"#{ htmlesc url }#{ slash }\"#{ atts }"

            atts << " title=\"#{ htmlesc title }\"" if title

            atts = shelve( atts ) if atts

            external = (url =~ /^https?:\/\//) ? ' class="external"' : ''

            "#{ pre }<a#{ atts }#{ external }>#{ text }</a>#{ post }"

          end

        end

            [ ]?                # opt. space

            (?:\n[ ]*)?         # one optional newline followed by spaces

            \[(.*?)\]           # $id

        text.gsub!( MARKDOWN_REFLINK_RE ) do |m|

            text, id = $~[1..2]

            else

                url, title = check_refs( id )

            end

            atts = " href=\"#{ url }\""

            atts << " title=\"#{ title }\"" if title

            atts = shelve( atts )

            "<a#{ atts }>#{ text }</a>"

        end

    end

            \3                  # matching quote

            )?                  # title is optional

            \)

        text.gsub!( MARKDOWN_LINK_RE ) do |m|

            text, url, quote, title = $~[1..4]

            atts = " href=\"#{ url }\""

            atts << " title=\"#{ title }\"" if title

            atts = shelve( atts )

            "<a#{ atts }>#{ text }</a>"

        end

    end

        end

    end

        text.gsub!( TEXTILE_REFS_RE ) do |m|

            flag, url = $~[2..3]

            @urlrefs[flag.downcase] = [url, nil]

            nil

        end

    end

    def refs_markdown( text )

        text.gsub!( MARKDOWN_REFS_RE ) do |m|

            flag, url = $~[2..3]

        end

    end

        ret = @urlrefs[text.downcase] if text

        ret || [text, nil]

    end

            (?:\(((?:[^\(\)]|\([^\)]+\))+?)\))?   # optional title

            \!                   # closing

            (?::#{ HYPERLINK })? # optional href

        text.gsub!( IMAGE_RE )  do |m|

            stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]

            htmlesc title

            atts = pba( atts )

            atts = +" src=\"#{ htmlesc url.dup }\"#{ atts }"

            atts << " title=\"#{ title }\"" if title

            # size = @getimagesize($url);

            # if($size) $atts.= " $size[3]";

            out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href

            out << "<img#{ shelve( atts ) } />"

            out << "</a>#{ href_a1 }#{ href_a2 }" if href

                algn = h_align( algn )

                if stln == "<p>"

                    out = "<p style=\"float:#{ algn }\">#{ out }"

        end

    end

        @shelf << val

        " :redsh##{ @shelf.length }:"

    end

        text.gsub!(/ :redsh#(\d+):/) do

          @shelf[$1.to_i - 1] || $&

        end

    end

        ## turn any incoming ampersands into a dummy character for now.

        ## This uses a negative lookahead for alphanumerics followed by a semicolon,

        ## implying an incoming html entity, to be skipped

        text.gsub!( /&(?![#a-z0-9]+;)/i, "x%x%" )

    end

        text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/,

            '\1<notextile>\2</notextile>\3' )

        text.gsub!( /^ *==([^=]+.*?)==/m,

            '\1<notextile>\2</notextile>\3' )

    end

        # normalize line breaks

        text.gsub!( /\r\n/, "\n" )

        text.gsub!( /\r/, "\n" )

        end

    end

        text.gsub!( /\b\[([0-9]+?)\](\s)?/,

            '<sup><a href="#fn\1">\1</a></sup>\2' )

    end

    OFFTAGS = /(code|pre|kbd|notextile)/

    OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }\b>)|(<#{ OFFTAGS }\b[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }\b\W|\Z)/mi

    OFFTAG_OPEN = /<#{ OFFTAGS }/

                    elsif line =~ OFFTAG_CLOSE

                        codepre -= 1

                        codepre = 0 if codepre < 0

                elsif codepre.zero?

                    glyphs_textile( line, level + 1 )

                else

                    end

                    codepre -= 1 unless codepre.zero?

                    used_offtags = {} if codepre.zero?

                line

            end

        end

        end

    end

        [/^inline_/, /^glyphs_/].each do |meth_re|

            @rules.each do |rule_name|

                method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )

        end

    end

        H_ALGN_VALS[text]

    end

        V_ALGN_VALS[text]

    end

        'img' => ['src', 'alt', 'title'],

        'br' => [],

        'i' => nil,

        'b' => nil,

        'pre' => nil,

        'kbd' => nil,

        'h3' => nil,

        'h4' => nil,

        'h5' => nil,

        'blockquote' => ['cite']

    }

            end

        end

    end

    ALLOWED_TAGS = %w(redpre pre code kbd notextile)

    def escape_html_tags(text)

      text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "&lt;#{$1}#{'&gt;' unless $3.blank?}" }

    end

end

This is a table with trailing whitespace in one row:

|cell11|cell12|

|cell31|cell32|

RAW

    expected = '<p><img src="/images/comment.png&quot;onclick=&amp;#x61;&amp;#x6c;&amp;#x65;&amp;#x72;&amp;#x74;&amp;#x28;&amp;#x27;&amp;#x58;&amp;#x53;&amp;#x53;&amp;#x27;&amp;#x29;;&amp;#x22;" alt="" /></p>'

    assert_equal expected.gsub(%r{\s+}, ''), to_html(raw).gsub(%r{\s+}, '')

  end

  STR_WITHOUT_PRE = [

  # 0

"h1. Title

Ut rhoncus elementum adipiscing."]

  TEXT_WITHOUT_PRE = STR_WITHOUT_PRE.join("\n\n").freeze

  def test_get_section_should_return_the_requested_section_and_its_hash

    assert_section_with_hash STR_WITHOUT_PRE[1], TEXT_WITHOUT_PRE, 2

    assert_section_with_hash STR_WITHOUT_PRE[2..3].join("\n\n"), TEXT_WITHOUT_PRE, 3

    assert_section_with_hash STR_WITHOUT_PRE[3], TEXT_WITHOUT_PRE, 5

    assert_section_with_hash STR_WITHOUT_PRE[4], TEXT_WITHOUT_PRE, 6

    assert_section_with_hash '', TEXT_WITHOUT_PRE, 0

    assert_section_with_hash '', TEXT_WITHOUT_PRE, 10

  end

  def test_update_section_should_update_the_requested_section

    replacement = "New text"

    assert_equal [STR_WITHOUT_PRE[0], replacement, STR_WITHOUT_PRE[2..4]].flatten.join("\n\n"), @formatter.new(TEXT_WITHOUT_PRE).update_section(2, replacement)

    assert_equal [STR_WITHOUT_PRE[0..1], replacement, STR_WITHOUT_PRE[4]].flatten.join("\n\n"), @formatter.new(TEXT_WITHOUT_PRE).update_section(3, replacement)

    assert_equal [STR_WITHOUT_PRE[0..2], replacement, STR_WITHOUT_PRE[4]].flatten.join("\n\n"), @formatter.new(TEXT_WITHOUT_PRE).update_section(5, replacement)

    assert_equal [STR_WITHOUT_PRE[0..3], replacement].flatten.join("\n\n"), @formatter.new(TEXT_WITHOUT_PRE).update_section(6, replacement)

    assert_equal TEXT_WITHOUT_PRE, @formatter.new(TEXT_WITHOUT_PRE).update_section(0, replacement)

    assert_equal TEXT_WITHOUT_PRE, @formatter.new(TEXT_WITHOUT_PRE).update_section(10, replacement)

  end

  def test_update_section_with_hash_should_update_the_requested_section

    replacement = "New text"

    assert_equal [STR_WITHOUT_PRE[0], replacement, STR_WITHOUT_PRE[2..4]].flatten.join("\n\n"),

      @formatter.new(TEXT_WITHOUT_PRE).update_section(2, replacement, Digest::MD5.hexdigest(STR_WITHOUT_PRE[1]))

  end

  def test_update_section_with_wrong_hash_should_raise_an_error

    assert_raise Redmine::WikiFormatting::StaleSectionError do

      @formatter.new(TEXT_WITHOUT_PRE).update_section(2, "New text", Digest::MD5.hexdigest("Old text"))

  def test_update_section_should_not_escape_pre_content_outside_section

    text = STR_WITH_PRE.join("\n\n")

    replacement = "New text"

    assert_equal [STR_WITH_PRE[0..1], "New text"].flatten.join("\n\n"),

      @formatter.new(text).update_section(3, replacement)

  end

h1. Heading 2

Content 2

h1. Heading 3

Content 3

h1. Heading 4

Content 4

STR

  def to_html(text)

    @formatter.new(text).to_html

  end

  def assert_section_with_hash(expected, text, index)

    result = @formatter.new(text).get_section(index)

    assert_kind_of Array, result

    assert_equal 2, result.size

    assert_equal expected, result.first, "section content did not match"