Chris@1296: # vim:ts=4:sw=4: Chris@1296: # = RedCloth - Textile and Markdown Hybrid for Ruby Chris@1296: # Chris@1296: # Homepage:: http://whytheluckystiff.net/ruby/redcloth/ Chris@1296: # Author:: why the lucky stiff (http://whytheluckystiff.net/) Chris@1296: # Copyright:: (cc) 2004 why the lucky stiff (and his puppet organizations.) Chris@1296: # License:: BSD Chris@1296: # Chris@1296: # (see http://hobix.com/textile/ for a Textile Reference.) Chris@1296: # Chris@1296: # Based on (and also inspired by) both: Chris@1296: # Chris@1296: # PyTextile: http://diveintomark.org/projects/textile/textile.py.txt Chris@1296: # Textism for PHP: http://www.textism.com/tools/textile/ Chris@1296: # Chris@1296: # Chris@1296: Chris@1296: # = RedCloth Chris@1296: # Chris@1296: # RedCloth is a Ruby library for converting Textile and/or Markdown Chris@1296: # into HTML. You can use either format, intermingled or separately. Chris@1296: # You can also extend RedCloth to honor your own custom text stylings. Chris@1296: # Chris@1296: # RedCloth users are encouraged to use Textile if they are generating Chris@1296: # HTML and to use Markdown if others will be viewing the plain text. Chris@1296: # Chris@1296: # == What is Textile? Chris@1296: # Chris@1296: # Textile is a simple formatting style for text Chris@1296: # documents, loosely based on some HTML conventions. Chris@1296: # Chris@1296: # == Sample Textile Text Chris@1296: # Chris@1296: # h2. This is a title Chris@1296: # Chris@1296: # h3. This is a subhead Chris@1296: # Chris@1296: # This is a bit of paragraph. Chris@1296: # Chris@1296: # bq. This is a blockquote. Chris@1296: # Chris@1296: # = Writing Textile Chris@1296: # Chris@1296: # A Textile document consists of paragraphs. Paragraphs Chris@1296: # can be specially formatted by adding a small instruction Chris@1296: # to the beginning of the paragraph. Chris@1296: # Chris@1296: # h[n]. Header of size [n]. Chris@1296: # bq. Blockquote. Chris@1296: # # Numeric list. Chris@1296: # * Bulleted list. Chris@1296: # Chris@1296: # == Quick Phrase Modifiers Chris@1296: # Chris@1296: # Quick phrase modifiers are also included, to allow formatting Chris@1296: # of small portions of text within a paragraph. Chris@1296: # Chris@1296: # \_emphasis\_ Chris@1296: # \_\_italicized\_\_ Chris@1296: # \*strong\* Chris@1296: # \*\*bold\*\* Chris@1296: # ??citation?? Chris@1296: # -deleted text- Chris@1296: # +inserted text+ Chris@1296: # ^superscript^ Chris@1296: # ~subscript~ Chris@1296: # @code@ Chris@1296: # %(classname)span% Chris@1296: # Chris@1296: # ==notextile== (leave text alone) Chris@1296: # Chris@1296: # == Links Chris@1296: # Chris@1296: # To make a hypertext link, put the link text in "quotation Chris@1296: # marks" followed immediately by a colon and the URL of the link. Chris@1296: # Chris@1296: # Optional: text in (parentheses) following the link text, Chris@1296: # but before the closing quotation mark, will become a Title Chris@1296: # attribute for the link, visible as a tool tip when a cursor is above it. Chris@1296: # Chris@1296: # Example: Chris@1296: # Chris@1296: # "This is a link (This is a title) ":http://www.textism.com Chris@1296: # Chris@1296: # Will become: Chris@1296: # Chris@1296: # This is a link Chris@1296: # Chris@1296: # == Images Chris@1296: # Chris@1296: # To insert an image, put the URL for the image inside exclamation marks. Chris@1296: # Chris@1296: # Optional: text that immediately follows the URL in (parentheses) will Chris@1296: # be used as the Alt text for the image. Images on the web should always Chris@1296: # have descriptive Alt text for the benefit of readers using non-graphical Chris@1296: # browsers. Chris@1296: # Chris@1296: # Optional: place a colon followed by a URL immediately after the Chris@1296: # closing ! to make the image into a link. Chris@1296: # Chris@1296: # Example: Chris@1296: # Chris@1296: # !http://www.textism.com/common/textist.gif(Textist)! Chris@1296: # Chris@1296: # Will become: Chris@1296: # Chris@1296: # Textist

Chris@1296: # Chris@1296: # With a link: Chris@1296: # Chris@1296: # !/common/textist.gif(Textist)!:http://textism.com Chris@1296: # Chris@1296: # Will become: Chris@1296: # Chris@1296: #

Chris@1296: # Chris@1296: # == Defining Acronyms Chris@1296: # Chris@1296: # HTML allows authors to define acronyms via the tag. The definition appears as a Chris@1296: # tool tip when a cursor hovers over the acronym. A crucial aid to clear writing, Chris@1296: # this should be used at least once for each acronym in documents where they appear. Chris@1296: # Chris@1296: # To quickly define an acronym in Textile, place the full text in (parentheses) Chris@1296: # immediately following the acronym. Chris@1296: # Chris@1296: # Example: Chris@1296: # Chris@1296: # ACLU(American Civil Liberties Union) Chris@1296: # Chris@1296: # Will become: Chris@1296: # Chris@1296: # ACLU Chris@1296: # Chris@1296: # == Adding Tables Chris@1296: # Chris@1296: # In Textile, simple tables can be added by seperating each column by Chris@1296: # a pipe. Chris@1296: # Chris@1296: # |a|simple|table|row| Chris@1296: # |And|Another|table|row| Chris@1296: # Chris@1296: # Attributes are defined by style definitions in parentheses. Chris@1296: # Chris@1296: # table(border:1px solid black). Chris@1296: # (background:#ddd;color:red). |{}| | | | Chris@1296: # Chris@1296: # == Using RedCloth Chris@1296: # Chris@1296: # RedCloth is simply an extension of the String class, which can handle Chris@1296: # Textile formatting. Use it like a String and output HTML with its Chris@1296: # RedCloth#to_html method. Chris@1296: # Chris@1296: # doc = RedCloth.new " Chris@1296: # Chris@1296: # h2. Test document Chris@1296: # Chris@1296: # Just a simple test." Chris@1296: # Chris@1296: # puts doc.to_html Chris@1296: # Chris@1296: # By default, RedCloth uses both Textile and Markdown formatting, with Chris@1296: # Textile formatting taking precedence. If you want to turn off Markdown Chris@1296: # formatting, to boost speed and limit the processor: Chris@1296: # Chris@1296: # class RedCloth::Textile.new( str ) Chris@1296: Chris@1296: class RedCloth3 < String Chris@1296: Chris@1296: VERSION = '3.0.4' Chris@1296: DEFAULT_RULES = [:textile, :markdown] Chris@1296: Chris@1296: # Chris@1296: # Two accessor for setting security restrictions. Chris@1296: # Chris@1296: # This is a nice thing if you're using RedCloth for Chris@1296: # formatting in public places (e.g. Wikis) where you Chris@1296: # don't want users to abuse HTML for bad things. Chris@1296: # Chris@1296: # If +:filter_html+ is set, HTML which wasn't Chris@1296: # created by the Textile processor will be escaped. Chris@1296: # Chris@1296: # If +:filter_styles+ is set, it will also disable Chris@1296: # the style markup specifier. ('{color: red}') Chris@1296: # Chris@1296: attr_accessor :filter_html, :filter_styles Chris@1296: Chris@1296: # Chris@1296: # Accessor for toggling hard breaks. Chris@1296: # Chris@1296: # If +:hard_breaks+ is set, single newlines will Chris@1296: # be converted to HTML break tags. This is the Chris@1296: # default behavior for traditional RedCloth. Chris@1296: # Chris@1296: attr_accessor :hard_breaks Chris@1296: Chris@1296: # Accessor for toggling lite mode. Chris@1296: # Chris@1296: # In lite mode, block-level rules are ignored. This means Chris@1296: # that tables, paragraphs, lists, and such aren't available. Chris@1296: # Only the inline markup for bold, italics, entities and so on. Chris@1296: # Chris@1296: # r = RedCloth.new( "And then? She *fell*!", [:lite_mode] ) Chris@1296: # r.to_html Chris@1296: # #=> "And then? She fell!" Chris@1296: # Chris@1296: attr_accessor :lite_mode Chris@1296: Chris@1296: # Chris@1296: # Accessor for toggling span caps. Chris@1296: # Chris@1296: # Textile places `span' tags around capitalized Chris@1296: # words by default, but this wreaks havoc on Wikis. Chris@1296: # If +:no_span_caps+ is set, this will be Chris@1296: # suppressed. Chris@1296: # Chris@1296: attr_accessor :no_span_caps Chris@1296: Chris@1296: # Chris@1296: # Establishes the markup predence. Available rules include: Chris@1296: # Chris@1296: # == Textile Rules Chris@1296: # Chris@1296: # The following textile rules can be set individually. Or add the complete Chris@1296: # set of rules with the single :textile rule, which supplies the rule set in Chris@1296: # the following precedence: Chris@1296: # Chris@1296: # refs_textile:: Textile references (i.e. [hobix]http://hobix.com/) Chris@1296: # block_textile_table:: Textile table block structures Chris@1296: # block_textile_lists:: Textile list structures Chris@1296: # block_textile_prefix:: Textile blocks with prefixes (i.e. bq., h2., etc.) Chris@1296: # inline_textile_image:: Textile inline images Chris@1296: # inline_textile_link:: Textile inline links Chris@1296: # inline_textile_span:: Textile inline spans Chris@1296: # glyphs_textile:: Textile entities (such as em-dashes and smart quotes) Chris@1296: # Chris@1296: # == Markdown Chris@1296: # Chris@1296: # refs_markdown:: Markdown references (for example: [hobix]: http://hobix.com/) Chris@1296: # block_markdown_setext:: Markdown setext headers Chris@1296: # block_markdown_atx:: Markdown atx headers Chris@1296: # block_markdown_rule:: Markdown horizontal rules Chris@1296: # block_markdown_bq:: Markdown blockquotes Chris@1296: # block_markdown_lists:: Markdown lists Chris@1296: # inline_markdown_link:: Markdown links Chris@1296: attr_accessor :rules Chris@1296: Chris@1296: # Returns a new RedCloth object, based on _string_ and Chris@1296: # enforcing all the included _restrictions_. Chris@1296: # Chris@1296: # r = RedCloth.new( "h1. A bold man", [:filter_html] ) Chris@1296: # r.to_html Chris@1296: # #=>"

A <b>bold</b> man

" Chris@1296: # Chris@1296: def initialize( string, restrictions = [] ) Chris@1296: restrictions.each { |r| method( "#{ r }=" ).call( true ) } Chris@1296: super( string ) Chris@1296: end Chris@1296: Chris@1296: # Chris@1296: # Generates HTML from the Textile contents. Chris@1296: # Chris@1296: # r = RedCloth.new( "And then? She *fell*!" ) Chris@1296: # r.to_html( true ) Chris@1296: # #=>"And then? She fell!" Chris@1296: # Chris@1296: def to_html( *rules ) Chris@1296: rules = DEFAULT_RULES if rules.empty? Chris@1296: # make our working copy Chris@1296: text = self.dup Chris@1296: Chris@1296: @urlrefs = {} Chris@1296: @shelf = [] Chris@1296: textile_rules = [:block_textile_table, :block_textile_lists, Chris@1296: :block_textile_prefix, :inline_textile_image, :inline_textile_link, Chris@1296: :inline_textile_code, :inline_textile_span, :glyphs_textile] Chris@1296: markdown_rules = [:refs_markdown, :block_markdown_setext, :block_markdown_atx, :block_markdown_rule, Chris@1296: :block_markdown_bq, :block_markdown_lists, Chris@1296: :inline_markdown_reflink, :inline_markdown_link] Chris@1296: @rules = rules.collect do |rule| Chris@1296: case rule Chris@1296: when :markdown Chris@1296: markdown_rules Chris@1296: when :textile Chris@1296: textile_rules Chris@1296: else Chris@1296: rule Chris@1296: end Chris@1296: end.flatten Chris@1296: Chris@1296: # standard clean up Chris@1296: incoming_entities text Chris@1296: clean_white_space text Chris@1296: Chris@1296: # start processor Chris@1296: @pre_list = [] Chris@1296: rip_offtags text Chris@1296: no_textile text Chris@1296: escape_html_tags text Chris@1296: # need to do this before #hard_break and #blocks Chris@1296: block_textile_quotes text unless @lite_mode Chris@1296: hard_break text Chris@1296: unless @lite_mode Chris@1296: refs text Chris@1296: blocks text Chris@1296: end Chris@1296: inline text Chris@1296: smooth_offtags text Chris@1296: Chris@1296: retrieve text Chris@1296: Chris@1296: text.gsub!( /<\/?notextile>/, '' ) Chris@1296: text.gsub!( /x%x%/, '&' ) Chris@1296: clean_html text if filter_html Chris@1296: text.strip! Chris@1296: text Chris@1296: Chris@1296: end Chris@1296: Chris@1296: ####### Chris@1296: private Chris@1296: ####### Chris@1296: # Chris@1296: # Mapping of 8-bit ASCII codes to HTML numerical entity equivalents. Chris@1296: # (from PyTextile) Chris@1296: # Chris@1296: TEXTILE_TAGS = Chris@1296: Chris@1296: [[128, 8364], [129, 0], [130, 8218], [131, 402], [132, 8222], [133, 8230], Chris@1296: [134, 8224], [135, 8225], [136, 710], [137, 8240], [138, 352], [139, 8249], Chris@1296: [140, 338], [141, 0], [142, 0], [143, 0], [144, 0], [145, 8216], [146, 8217], Chris@1296: [147, 8220], [148, 8221], [149, 8226], [150, 8211], [151, 8212], [152, 732], Chris@1296: [153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]]. Chris@1296: Chris@1296: collect! do |a, b| Chris@1296: [a.chr, ( b.zero? and "" or "&#{ b };" )] Chris@1296: end Chris@1296: Chris@1296: # Chris@1296: # Regular expressions to convert to HTML. Chris@1296: # Chris@1296: A_HLGN = /(?:(?:<>|<|>|\=|[()]+)+)/ Chris@1296: A_VLGN = /[\-^~]/ Chris@1296: C_CLAS = '(?:$[^")]+$)' Chris@1296: C_LNGE = '(?:\[[^"\[\]]+\])' Chris@1296: C_STYL = '(?:\{[^"}]+\})' Chris@1296: S_CSPN = '(?:\\\\\d+)' Chris@1296: S_RSPN = '(?:/\d+)' Chris@1296: A = "(?:#{A_HLGN}?#{A_VLGN}?|#{A_VLGN}?#{A_HLGN}?)" Chris@1296: S = "(?:#{S_CSPN}?#{S_RSPN}|#{S_RSPN}?#{S_CSPN}?)" Chris@1296: C = "(?:#{C_CLAS}?#{C_STYL}?#{C_LNGE}?|#{C_STYL}?#{C_LNGE}?#{C_CLAS}?|#{C_LNGE}?#{C_STYL}?#{C_CLAS}?)" Chris@1296: # PUNCT = Regexp::quote( '!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~' ) Chris@1296: PUNCT = Regexp::quote( '!"#$%&\'*+,-./:;=?@\\^_`|~' ) Chris@1296: PUNCT_NOQ = Regexp::quote( '!"#$&\',./:;=?@\\`|' ) Chris@1296: PUNCT_Q = Regexp::quote( '*-_+^~%' ) Chris@1296: HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(?=\s|<|$)' Chris@1296: Chris@1296: # Text markup tags, don't conflict with block tags Chris@1296: SIMPLE_HTML_TAGS = [ Chris@1296: 'tt', 'b', 'i', 'big', 'small', 'em', 'strong', 'dfn', 'code', Chris@1296: 'samp', 'kbd', 'var', 'cite', 'abbr', 'acronym', 'a', 'img', 'br', Chris@1296: 'br', 'map', 'q', 'sub', 'sup', 'span', 'bdo' Chris@1296: ] Chris@1296: Chris@1296: QTAGS = [ Chris@1296: ['**', 'b', :limit], Chris@1296: ['*', 'strong', :limit], Chris@1296: ['??', 'cite', :limit], Chris@1296: ['-', 'del', :limit], Chris@1296: ['__', 'i', :limit], Chris@1296: ['_', 'em', :limit], Chris@1296: ['%', 'span', :limit], Chris@1296: ['+', 'ins', :limit], Chris@1296: ['^', 'sup', :limit], Chris@1296: ['~', 'sub', :limit] Chris@1296: ] Chris@1296: QTAGS_JOIN = QTAGS.map {|rc, ht, rtype| Regexp::quote rc}.join('|') Chris@1296: Chris@1296: QTAGS.collect! do |rc, ht, rtype| Chris@1296: rcq = Regexp::quote rc Chris@1296: re = Chris@1296: case rtype Chris@1296: when :limit Chris@1296: /(^|[>\s$]) # sta Chris@1296: (?!\-\-) Chris@1296: (#{QTAGS_JOIN}|) # oqs Chris@1296: (#{rcq}) # qtag Chris@1296: (\w|[^\s].*?[^\s]) # content Chris@1296: (?!\-\-) Chris@1296: #{rcq} Chris@1296: (#{QTAGS_JOIN}|) # oqa Chris@1296: (?=[[:punct:]]|<|\s|$|$)/x Chris@1296: else Chris@1296: /(#{rcq}) Chris@1296: (#{C}) Chris@1296: (?::(\S+))? Chris@1296: (\w|[^\s\-].*?[^\s\-]) Chris@1296: #{rcq}/xm Chris@1296: end Chris@1296: [rc, ht, re, rtype] Chris@1296: end Chris@1296: Chris@1296: # Elements to handle Chris@1296: GLYPHS = [ Chris@1296: # [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1’\2' ], # single closing Chris@1296: # [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)\'/, '\1’' ], # single closing Chris@1296: # [ /\'(?=[#{PUNCT_Q}]*(s\b|[\s#{PUNCT_NOQ}]))/, '’' ], # single closing Chris@1296: # [ /\'/, '‘' ], # single opening Chris@1296: # [ //, '>' ], # greater-than Chris@1296: # [ /([^\s\[{(])?"(\s|:|$)/, '\1”\2' ], # double closing Chris@1296: # [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/, '\1”' ], # double closing Chris@1296: # [ /"(?=[#{PUNCT_Q}]*[\s#{PUNCT_NOQ}])/, '”' ], # double closing Chris@1296: # [ /"/, '“' ], # double opening Chris@1296: # [ /\b( )?\.{3}/, '\1…' ], # ellipsis Chris@1296: # [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '\1' ], # 3+ uppercase acronym Chris@1296: # [ /(^|[^"][>\s])([A-Z][A-Z0-9 ]+[A-Z0-9])([^\2\3', :no_span_caps ], # 3+ uppercase caps Chris@1296: # [ /(\.\s)?\s?--\s?/, '\1—' ], # em dash Chris@1296: # [ /\s->\s/, ' → ' ], # right arrow Chris@1296: # [ /\s-\s/, ' – ' ], # en dash Chris@1296: # [ /(\d+) ?x ?(\d+)/, '\1×\2' ], # dimension sign Chris@1296: # [ /\b ?[(\[]TM[\])]/i, '™' ], # trademark Chris@1296: # [ /\b ?[(\[]R[\])]/i, '®' ], # registered Chris@1296: # [ /\b ?[(\[]C[\])]/i, '©' ] # copyright Chris@1296: ] Chris@1296: Chris@1296: H_ALGN_VALS = { Chris@1296: '<' => 'left', Chris@1296: '=' => 'center', Chris@1296: '>' => 'right', Chris@1296: '<>' => 'justify' Chris@1296: } Chris@1296: Chris@1296: V_ALGN_VALS = { Chris@1296: '^' => 'top', Chris@1296: '-' => 'middle', Chris@1296: '~' => 'bottom' Chris@1296: } Chris@1296: Chris@1296: # Chris@1296: # Flexible HTML escaping Chris@1296: # Chris@1296: def htmlesc( str, mode=:Quotes ) Chris@1296: if str Chris@1296: str.gsub!( '&', '&' ) Chris@1296: str.gsub!( '"', '"' ) if mode != :NoQuotes Chris@1296: str.gsub!( "'", ''' ) if mode == :Quotes Chris@1296: str.gsub!( '<', '<') Chris@1296: str.gsub!( '>', '>') Chris@1296: end Chris@1296: str Chris@1296: end Chris@1296: Chris@1296: # Search and replace for Textile glyphs (quotes, dashes, other symbols) Chris@1296: def pgl( text ) Chris@1296: #GLYPHS.each do |re, resub, tog| Chris@1296: # next if tog and method( tog ).call Chris@1296: # text.gsub! re, resub Chris@1296: #end Chris@1296: text.gsub!(/\b([A-Z][A-Z0-9]{1,})\b(?:[(]([^)]*)[)])/) do |m| Chris@1296: "#{$1}" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: # Parses Textile attribute lists and builds an HTML attribute string Chris@1296: def pba( text_in, element = "" ) Chris@1296: Chris@1296: return '' unless text_in Chris@1296: Chris@1296: style = [] Chris@1296: text = text_in.dup Chris@1296: if element == 'td' Chris@1296: colspan = $1 if text =~ /\$\d+)/ Chris@1296: rowspan = $1 if text =~ /\/(\d+)/ Chris@1296: style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN Chris@1296: end Chris@1296: Chris@1296: if text.sub!( /\{([^"}]*)\}/, '' ) && !filter_styles Chris@1296: sanitized = sanitize_styles($1) Chris@1296: style << "#{ sanitized };" unless sanitized.blank? Chris@1296: end Chris@1296: Chris@1296: lang = $1 if Chris@1296: text.sub!( /\[([^)]+?)\]/, '' ) Chris@1296: Chris@1296: cls = $1 if Chris@1296: text.sub!( /\(([^()]+?)$/, '' ) Chris@1296: Chris@1296: style << "padding-left:#{ $1.length }em;" if Chris@1296: text.sub!( /([(]+)/, '' ) Chris@1296: Chris@1296: style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' ) Chris@1296: Chris@1296: style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN Chris@1296: Chris@1296: cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/ Chris@1296: Chris@1296: atts = '' Chris@1296: atts << " style=\"#{ style.join }\"" unless style.empty? Chris@1296: atts << " class=\"#{ cls }\"" unless cls.to_s.empty? Chris@1296: atts << " lang=\"#{ lang }\"" if lang Chris@1296: atts << " id=\"#{ id }\"" if id Chris@1296: atts << " colspan=\"#{ colspan }\"" if colspan Chris@1296: atts << " rowspan=\"#{ rowspan }\"" if rowspan Chris@1296: Chris@1296: atts Chris@1296: end Chris@1296: Chris@1296: STYLES_RE = /^(color|width|height|border|background|padding|margin|font|text|float)(-[a-z]+)*:\s*((\d+%?|\d+px|\d+(\.\d+)?em|#[0-9a-f]+|[a-z]+)\s*)+$/i Chris@1296: Chris@1296: def sanitize_styles(str) Chris@1296: styles = str.split(";").map(&:strip) Chris@1296: styles.reject! do |style| Chris@1296: !style.match(STYLES_RE) Chris@1296: end Chris@1296: styles.join(";") Chris@1296: end Chris@1296: Chris@1296: TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m Chris@1296: Chris@1296: # Parses a Textile table block, building HTML from the result. Chris@1296: def block_textile_table( text ) Chris@1296: text.gsub!( TABLE_RE ) do |matches| Chris@1296: Chris@1296: tatts, fullrow = $~[1..2] Chris@1296: tatts = pba( tatts, 'table' ) Chris@1296: tatts = shelve( tatts ) if tatts Chris@1296: rows = [] Chris@1296: Chris@1296: fullrow.each_line do |row| Chris@1296: ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m Chris@1296: cells = [] Chris@1296: row.split( /(\|)(?![^\[\|]*\]\])/ )[1..-2].each do |cell| Chris@1296: next if cell == '|' Chris@1296: ctyp = 'd' Chris@1296: ctyp = 'h' if cell =~ /^_/ Chris@1296: Chris@1296: catts = '' Chris@1296: catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/ Chris@1296: Chris@1296: catts = shelve( catts ) if catts Chris@1296: cells << "\t\t\t#{ cell }" Chris@1296: end Chris@1296: ratts = shelve( ratts ) if ratts Chris@1296: rows << "\t\t\n#{ cells.join( "\n" ) }\n\t\t" Chris@1296: end Chris@1296: "\t\n#{ rows.join( "\n" ) }\n\t\n\n" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: LISTS_RE = /^([#*]+?#{C} .*?)$(?![^#*])/m Chris@1296: LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m Chris@1296: Chris@1296: # Parses Textile lists and generates HTML Chris@1296: def block_textile_lists( text ) Chris@1296: text.gsub!( LISTS_RE ) do |match| Chris@1296: lines = match.split( /\n/ ) Chris@1296: last_line = -1 Chris@1296: depth = [] Chris@1296: lines.each_with_index do |line, line_id| Chris@1296: if line =~ LISTS_CONTENT_RE Chris@1296: tl,atts,content = $~[1..3] Chris@1296: if depth.last Chris@1296: if depth.last.length > tl.length Chris@1296: (depth.length - 1).downto(0) do |i| Chris@1296: break if depth[i].length == tl.length Chris@1296: lines[line_id - 1] << "\n\t\n\t" Chris@1296: depth.pop Chris@1296: end Chris@1296: end Chris@1296: if depth.last and depth.last.length == tl.length Chris@1296: lines[line_id - 1] << '' Chris@1296: end Chris@1296: end Chris@1296: unless depth.last == tl Chris@1296: depth << tl Chris@1296: atts = pba( atts ) Chris@1296: atts = shelve( atts ) if atts Chris@1296: lines[line_id] = "\t<#{ lT(tl) }l#{ atts }>\n\t

#{ content }" Chris@1296: else Chris@1296: lines[line_id] = "\t\t

#{ content }" Chris@1296: end Chris@1296: last_line = line_id Chris@1296: Chris@1296: else Chris@1296: last_line = line_id Chris@1296: end Chris@1296: if line_id - last_line > 1 or line_id == lines.length - 1 Chris@1296: while v = depth.pop Chris@1296: lines[last_line] << "

\n\t" Chris@1296: end Chris@1296: end Chris@1296: end Chris@1296: lines.join( "\n" ) Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: QUOTES_RE = /(^>+([^\n]*?)(\n|$))+/m Chris@1296: QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m Chris@1296: Chris@1296: def block_textile_quotes( text ) Chris@1296: text.gsub!( QUOTES_RE ) do |match| Chris@1296: lines = match.split( /\n/ ) Chris@1296: quotes = '' Chris@1296: indent = 0 Chris@1296: lines.each do |line| Chris@1296: line =~ QUOTES_CONTENT_RE Chris@1296: bq,content = $1, $2 Chris@1296: l = bq.count('>') Chris@1296: if l != indent Chris@1296: quotes << ("\n\n" + (l>indent ? '

' * (l-indent) : '

' * (indent-l)) + "\n\n") Chris@1296: indent = l Chris@1296: end Chris@1296: quotes << (content + "\n") Chris@1296: end Chris@1296: quotes << ("\n" + '' * indent + "\n\n") Chris@1296: quotes Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: CODE_RE = /(\W) Chris@1296: @ Chris@1296: (?:\|(\w+?)\|)? Chris@1296: (.+?) Chris@1296: @ Chris@1296: (?=\W)/x Chris@1296: Chris@1296: def inline_textile_code( text ) Chris@1296: text.gsub!( CODE_RE ) do |m| Chris@1296: before,lang,code,after = $~[1..4] Chris@1296: lang = " lang=\"#{ lang }\"" if lang Chris@1296: rip_offtags( "#{ before }#{ code }#{ after }", false ) Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def lT( text ) Chris@1296: text =~ /\#$/ ? 'o' : 'u' Chris@1296: end Chris@1296: Chris@1296: def hard_break( text ) Chris@1296: text.gsub!( /(.)\n(?!\Z| *([#*=]+(\s|$)|[{|]))/, "\\1
" ) if hard_breaks Chris@1296: end Chris@1296: Chris@1296: BLOCKS_GROUP_RE = /\n{2,}(?! )/m Chris@1296: Chris@1296: def blocks( text, deep_code = false ) Chris@1296: text.replace( text.split( BLOCKS_GROUP_RE ).collect do |blk| Chris@1296: plain = blk !~ /\A[#*> ]/ Chris@1296: Chris@1296: # skip blocks that are complex HTML Chris@1296: if blk =~ /^<\/?(\w+).*>/ and not SIMPLE_HTML_TAGS.include? $1 Chris@1296: blk Chris@1296: else Chris@1296: # search for indentation levels Chris@1296: blk.strip! Chris@1296: if blk.empty? Chris@1296: blk Chris@1296: else Chris@1296: code_blk = nil Chris@1296: blk.gsub!( /((?:\n(?:\n^ +[^\n]*)+)+)/m ) do |iblk| Chris@1296: flush_left iblk Chris@1296: blocks iblk, plain Chris@1296: iblk.gsub( /^(\S)/, "\t\\1" ) Chris@1296: if plain Chris@1296: code_blk = iblk; "" Chris@1296: else Chris@1296: iblk Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: block_applied = 0 Chris@1296: @rules.each do |rule_name| Chris@1296: block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) ) Chris@1296: end Chris@1296: if block_applied.zero? Chris@1296: if deep_code Chris@1296: blk = "\t

#{ blk }

" Chris@1296: else Chris@1296: blk = "\t

#{ blk }

" Chris@1296: end Chris@1296: end Chris@1296: # hard_break blk Chris@1296: blk + "\n#{ code_blk }" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: end.join( "\n\n" ) ) Chris@1296: end Chris@1296: Chris@1296: def textile_bq( tag, atts, cite, content ) Chris@1296: cite, cite_title = check_refs( cite ) Chris@1296: cite = " cite=\"#{ cite }\"" if cite Chris@1296: atts = shelve( atts ) if atts Chris@1296: "\t\n\t\t#{ content }

\n\t" Chris@1296: end Chris@1296: Chris@1296: def textile_p( tag, atts, cite, content ) Chris@1296: atts = shelve( atts ) if atts Chris@1296: "\t<#{ tag }#{ atts }>#{ content }" Chris@1296: end Chris@1296: Chris@1296: alias textile_h1 textile_p Chris@1296: alias textile_h2 textile_p Chris@1296: alias textile_h3 textile_p Chris@1296: alias textile_h4 textile_p Chris@1296: alias textile_h5 textile_p Chris@1296: alias textile_h6 textile_p Chris@1296: Chris@1296: def textile_fn_( tag, num, atts, cite, content ) Chris@1296: atts << " id=\"fn#{ num }\" class=\"footnote\"" Chris@1296: content = "^{#{ num }} #{ content }" Chris@1296: atts = shelve( atts ) if atts Chris@1296: "\t#{ content }

" Chris@1296: end Chris@1296: Chris@1296: BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m Chris@1296: Chris@1296: def block_textile_prefix( text ) Chris@1296: if text =~ BLOCK_RE Chris@1296: tag,tagpre,num,atts,cite,content = $~[1..6] Chris@1296: atts = pba( atts ) Chris@1296: Chris@1296: # pass to prefix handler Chris@1296: replacement = nil Chris@1296: if respond_to? "textile_#{ tag }", true Chris@1296: replacement = method( "textile_#{ tag }" ).call( tag, atts, cite, content ) Chris@1296: elsif respond_to? "textile_#{ tagpre }_", true Chris@1296: replacement = method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) Chris@1296: end Chris@1296: text.gsub!( $& ) { replacement } if replacement Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m Chris@1296: def block_markdown_setext( text ) Chris@1296: if text =~ SETEXT_RE Chris@1296: tag = if $2 == "="; "h1"; else; "h2"; end Chris@1296: blk, cont = "<#{ tag }>#{ $1 }", $' Chris@1296: blocks cont Chris@1296: text.replace( blk + cont ) Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: ATX_RE = /\A(\#{1,6}) # $1 = string of #'s Chris@1296: [ ]* Chris@1296: (.+?) # $2 = Header text Chris@1296: [ ]* Chris@1296: \#* # optional closing #'s (not counted) Chris@1296: $/x Chris@1296: def block_markdown_atx( text ) Chris@1296: if text =~ ATX_RE Chris@1296: tag = "h#{ $1.length }" Chris@1296: blk, cont = "<#{ tag }>#{ $2 }\n\n", $' Chris@1296: blocks cont Chris@1296: text.replace( blk + cont ) Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m Chris@1296: Chris@1296: def block_markdown_bq( text ) Chris@1296: text.gsub!( MARKDOWN_BQ_RE ) do |blk| Chris@1296: blk.gsub!( /^ *> ?/, '' ) Chris@1296: flush_left blk Chris@1296: blocks blk Chris@1296: blk.gsub!( /^(\S)/, "\t\\1" ) Chris@1296: "

\n#{ blk }\n

\n\n" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: MARKDOWN_RULE_RE = /^(#{ Chris@1296: ['*', '-', '_'].collect { |ch| ' ?(' + Regexp::quote( ch ) + ' ?){3,}' }.join( '|' ) Chris@1296: })$/ Chris@1296: Chris@1296: def block_markdown_rule( text ) Chris@1296: text.gsub!( MARKDOWN_RULE_RE ) do |blk| Chris@1296: "

" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: # XXX TODO XXX Chris@1296: def block_markdown_lists( text ) Chris@1296: end Chris@1296: Chris@1296: def inline_textile_span( text ) Chris@1296: QTAGS.each do |qtag_rc, ht, qtag_re, rtype| Chris@1296: text.gsub!( qtag_re ) do |m| Chris@1296: Chris@1296: case rtype Chris@1296: when :limit Chris@1296: sta,oqs,qtag,content,oqa = $~[1..6] Chris@1296: atts = nil Chris@1296: if content =~ /^(#{C})(.+)$/ Chris@1296: atts, content = $~[1..2] Chris@1296: end Chris@1296: else Chris@1296: qtag,atts,cite,content = $~[1..4] Chris@1296: sta = '' Chris@1296: end Chris@1296: atts = pba( atts ) Chris@1296: atts = shelve( atts ) if atts Chris@1296: Chris@1296: "#{ sta }#{ oqs }<#{ ht }#{ atts }>#{ content }#{ oqa }" Chris@1296: Chris@1296: end Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: LINK_RE = / Chris@1296: ( Chris@1296: ([\s\[{(]|[#{PUNCT}])? # $pre Chris@1296: " # start Chris@1296: (#{C}) # $atts Chris@1296: ([^"\n]+?) # $text Chris@1296: \s? Chris@1296: (?:$([^)]+?)$(?="))? # $title Chris@1296: ": Chris@1296: ( # $url Chris@1296: (\/|[a-zA-Z]+:\/\/|www\.|mailto:) # $proto Chris@1296: [[:alnum:]_\/]\S+? Chris@1296: ) Chris@1296: (\/)? # $slash Chris@1296: ([^[:alnum:]_\=\/;]*?) # $post Chris@1296: ) Chris@1296: (?=<|\s|$) Chris@1296: /x Chris@1296: #" Chris@1296: def inline_textile_link( text ) Chris@1296: text.gsub!( LINK_RE ) do |m| Chris@1296: all,pre,atts,text,title,url,proto,slash,post = $~[1..9] Chris@1296: if text.include?('
') Chris@1296: all Chris@1296: else Chris@1296: url, url_title = check_refs( url ) Chris@1296: title ||= url_title Chris@1296: Chris@1296: # Idea below : an URL with unbalanced parethesis and Chris@1296: # ending by ')' is put into external parenthesis Chris@1296: if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) ) Chris@1296: url=url[0..-2] # discard closing parenth from url Chris@1296: post = ")"+post # add closing parenth to post Chris@1296: end Chris@1296: atts = pba( atts ) Chris@1296: atts = " href=\"#{ htmlesc url }#{ slash }\"#{ atts }" Chris@1296: atts << " title=\"#{ htmlesc title }\"" if title Chris@1296: atts = shelve( atts ) if atts Chris@1296: Chris@1296: external = (url =~ /^https?:\/\//) ? ' class="external"' : '' Chris@1296: Chris@1296: "#{ pre }#{ text }#{ post }" Chris@1296: end Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: MARKDOWN_REFLINK_RE = / Chris@1296: \[([^\[\]]+)\] # $text Chris@1296: [ ]? # opt. space Chris@1296: (?:\n[ ]*)? # one optional newline followed by spaces Chris@1296: \[(.*?)\] # $id Chris@1296: /x Chris@1296: Chris@1296: def inline_markdown_reflink( text ) Chris@1296: text.gsub!( MARKDOWN_REFLINK_RE ) do |m| Chris@1296: text, id = $~[1..2] Chris@1296: Chris@1296: if id.empty? Chris@1296: url, title = check_refs( text ) Chris@1296: else Chris@1296: url, title = check_refs( id ) Chris@1296: end Chris@1296: Chris@1296: atts = " href=\"#{ url }\"" Chris@1296: atts << " title=\"#{ title }\"" if title Chris@1296: atts = shelve( atts ) Chris@1296: Chris@1296: "#{ text }" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: MARKDOWN_LINK_RE = / Chris@1296: \[([^\[\]]+)\] # $text Chris@1296: $ # open paren Chris@1296: [ \t]* # opt space Chris@1296: ? # $href Chris@1296: [ \t]* # opt space Chris@1296: (?: # whole title Chris@1296: (['"]) # $quote Chris@1296: (.*?) # $title Chris@1296: \3 # matching quote Chris@1296: )? # title is optional Chris@1296: $ Chris@1296: /x Chris@1296: Chris@1296: def inline_markdown_link( text ) Chris@1296: text.gsub!( MARKDOWN_LINK_RE ) do |m| Chris@1296: text, url, quote, title = $~[1..4] Chris@1296: Chris@1296: atts = " href=\"#{ url }\"" Chris@1296: atts << " title=\"#{ title }\"" if title Chris@1296: atts = shelve( atts ) Chris@1296: Chris@1296: "#{ text }" Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: TEXTILE_REFS_RE = /(^ *)\[([^\[\n]+?)\](#{HYPERLINK})(?=\s|$)/ Chris@1296: MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m Chris@1296: Chris@1296: def refs( text ) Chris@1296: @rules.each do |rule_name| Chris@1296: method( rule_name ).call( text ) if rule_name.to_s.match /^refs_/ Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def refs_textile( text ) Chris@1296: text.gsub!( TEXTILE_REFS_RE ) do |m| Chris@1296: flag, url = $~[2..3] Chris@1296: @urlrefs[flag.downcase] = [url, nil] Chris@1296: nil Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def refs_markdown( text ) Chris@1296: text.gsub!( MARKDOWN_REFS_RE ) do |m| Chris@1296: flag, url = $~[2..3] Chris@1296: title = $~[6] Chris@1296: @urlrefs[flag.downcase] = [url, title] Chris@1296: nil Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def check_refs( text ) Chris@1296: ret = @urlrefs[text.downcase] if text Chris@1296: ret || [text, nil] Chris@1296: end Chris@1296: Chris@1296: IMAGE_RE = / Chris@1296: (>|\s|^) # start of line? Chris@1296: \! # opening Chris@1296: (\<|\=|\>)? # optional alignment atts Chris@1296: (#{C}) # optional style,class atts Chris@1296: (?:\. )? # optional dot-space Chris@1296: ([^\s(!]+?) # presume this is the src Chris@1296: \s? # optional space Chris@1296: (?:$((?:[^\($]|$[^$]+\))+?)\))? # optional title Chris@1296: \! # closing Chris@1296: (?::#{ HYPERLINK })? # optional href Chris@1296: /x Chris@1296: Chris@1296: def inline_textile_image( text ) Chris@1296: text.gsub!( IMAGE_RE ) do |m| Chris@1296: stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8] Chris@1296: htmlesc title Chris@1296: atts = pba( atts ) Chris@1296: atts = " src=\"#{ htmlesc url.dup }\"#{ atts }" Chris@1296: atts << " title=\"#{ title }\"" if title Chris@1296: atts << " alt=\"#{ title }\"" Chris@1296: # size = @getimagesize($url); Chris@1296: # if($size) $atts.= " $size[3]"; Chris@1296: Chris@1296: href, alt_title = check_refs( href ) if href Chris@1296: url, url_title = check_refs( url ) Chris@1296: Chris@1296: out = '' Chris@1296: out << "" if href Chris@1296: out << "" Chris@1296: out << "#{ href_a1 }#{ href_a2 }" if href Chris@1296: Chris@1296: if algn Chris@1296: algn = h_align( algn ) Chris@1296: if stln == "

" Chris@1296: out = "

#{ out }" Chris@1296: else Chris@1296: out = "#{ stln }

#{ out }

" Chris@1296: end Chris@1296: else Chris@1296: out = stln + out Chris@1296: end Chris@1296: Chris@1296: out Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def shelve( val ) Chris@1296: @shelf << val Chris@1296: " :redsh##{ @shelf.length }:" Chris@1296: end Chris@1296: Chris@1296: def retrieve( text ) Chris@1296: @shelf.each_with_index do |r, i| Chris@1296: text.gsub!( " :redsh##{ i + 1 }:", r ) Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def incoming_entities( text ) Chris@1296: ## turn any incoming ampersands into a dummy character for now. Chris@1296: ## This uses a negative lookahead for alphanumerics followed by a semicolon, Chris@1296: ## implying an incoming html entity, to be skipped Chris@1296: Chris@1296: text.gsub!( /&(?![#a-z0-9]+;)/i, "x%x%" ) Chris@1296: end Chris@1296: Chris@1296: def no_textile( text ) Chris@1296: text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/, Chris@1296: '\1\2\3' ) Chris@1296: text.gsub!( /^ *==([^=]+.*?)==/m, Chris@1296: '\1\2\3' ) Chris@1296: end Chris@1296: Chris@1296: def clean_white_space( text ) Chris@1296: # normalize line breaks Chris@1296: text.gsub!( /\r\n/, "\n" ) Chris@1296: text.gsub!( /\r/, "\n" ) Chris@1296: text.gsub!( /\t/, ' ' ) Chris@1296: text.gsub!( /^ +$/, '' ) Chris@1296: text.gsub!( /\n{3,}/, "\n\n" ) Chris@1296: text.gsub!( /"$/, "\" " ) Chris@1296: Chris@1296: # if entire document is indented, flush Chris@1296: # to the left side Chris@1296: flush_left text Chris@1296: end Chris@1296: Chris@1296: def flush_left( text ) Chris@1296: indt = 0 Chris@1296: if text =~ /^ / Chris@1296: while text !~ /^ {#{indt}}\S/ Chris@1296: indt += 1 Chris@1296: end unless text.empty? Chris@1296: if indt.nonzero? Chris@1296: text.gsub!( /^ {#{indt}}/, '' ) Chris@1296: end Chris@1296: end Chris@1296: end Chris@1296: Chris@1296: def footnote_ref( text ) Chris@1296: text.gsub!( /\b\[([0-9]+?)\](\s)?/, Chris@1296: '^\1\2' ) Chris@1296: end Chris@1296: Chris@1296: OFFTAGS = /(code|pre|kbd|notextile)/ Chris@1296: OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }>)|(<#{ OFFTAGS }[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }\W|\Z)/mi Chris@1296: OFFTAG_OPEN = /<#{ OFFTAGS }/ Chris@1296: OFFTAG_CLOSE = /<\/?#{ OFFTAGS }/ Chris@1296: HASTAG_MATCH = /(<\/?\w[^\n]*?>)/m Chris@1296: ALLTAG_MATCH = /(<\/?\w[^\n]*?>)|.*?(?=<\/?\w[^\n]*?>|$)/m Chris@1296: Chris@1296: def glyphs_textile( text, level = 0 ) Chris@1296: if text !~ HASTAG_MATCH Chris@1296: pgl text Chris@1296: footnote_ref text Chris@1296: else Chris@1296: codepre = 0 Chris@1296: text.gsub!( ALLTAG_MATCH ) do |line| Chris@1296: ## matches are off if we're between

,  etc.
Chris@1296:                 if $1
Chris@1296:                     if line =~ OFFTAG_OPEN
Chris@1296:                         codepre += 1
Chris@1296:                     elsif line =~ OFFTAG_CLOSE
Chris@1296:                         codepre -= 1
Chris@1296:                         codepre = 0 if codepre < 0
Chris@1296:                     end 
Chris@1296:                 elsif codepre.zero?
Chris@1296:                     glyphs_textile( line, level + 1 )
Chris@1296:                 else
Chris@1296:                     htmlesc( line, :NoQuotes )
Chris@1296:                 end
Chris@1296:                 # p [level, codepre, line]
Chris@1296: 
Chris@1296:                 line
Chris@1296:             end
Chris@1296:         end
Chris@1296:     end
Chris@1296: 
Chris@1296:     def rip_offtags( text, escape_aftertag=true, escape_line=true )
Chris@1296:         if text =~ /<.*>/
Chris@1296:             ## strip and encode  content
Chris@1296:             codepre, used_offtags = 0, {}
Chris@1296:             text.gsub!( OFFTAG_MATCH ) do |line|
Chris@1296:                 if $3
Chris@1296:                     first, offtag, aftertag = $3, $4, $5
Chris@1296:                     codepre += 1
Chris@1296:                     used_offtags[offtag] = true
Chris@1296:                     if codepre - used_offtags.length > 0
Chris@1296:                         htmlesc( line, :NoQuotes ) if escape_line
Chris@1296:                         @pre_list.last << line
Chris@1296:                         line = ""
Chris@1296:                     else
Chris@1296:                         ### htmlesc is disabled between CODE tags which will be parsed with highlighter
Chris@1296:                         ### Regexp in formatter.rb is : /\s?(.+)/m
Chris@1296:                         ### NB: some changes were made not to use $N variables, because we use "match"
Chris@1296:                         ###   and it breaks following lines
Chris@1296:                         htmlesc( aftertag, :NoQuotes ) if aftertag && escape_aftertag && !first.match(//)
Chris@1296:                         line = ""
Chris@1296:                         first.match(/<#{ OFFTAGS }([^>]*)>/)
Chris@1296:                         tag = $1
Chris@1296:                         $2.to_s.match(/(class\=("[^"]+"|'[^']+'))/i)
Chris@1296:                         tag << " #{$1}" if $1
Chris@1296:                         @pre_list << "<#{ tag }>#{ aftertag }"
Chris@1296:                     end
Chris@1296:                 elsif $1 and codepre > 0
Chris@1296:                     if codepre - used_offtags.length > 0
Chris@1296:                         htmlesc( line, :NoQuotes ) if escape_line
Chris@1296:                         @pre_list.last << line
Chris@1296:                         line = ""
Chris@1296:                     end
Chris@1296:                     codepre -= 1 unless codepre.zero?
Chris@1296:                     used_offtags = {} if codepre.zero?
Chris@1296:                 end 
Chris@1296:                 line
Chris@1296:             end
Chris@1296:         end
Chris@1296:         text
Chris@1296:     end
Chris@1296: 
Chris@1296:     def smooth_offtags( text )
Chris@1296:         unless @pre_list.empty?
Chris@1296:             ## replace  content
Chris@1296:             text.gsub!( // ) { @pre_list[$1.to_i] }
Chris@1296:         end
Chris@1296:     end
Chris@1296: 
Chris@1296:     def inline( text ) 
Chris@1296:         [/^inline_/, /^glyphs_/].each do |meth_re|
Chris@1296:             @rules.each do |rule_name|
Chris@1296:                 method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )
Chris@1296:             end
Chris@1296:         end
Chris@1296:     end
Chris@1296: 
Chris@1296:     def h_align( text ) 
Chris@1296:         H_ALGN_VALS[text]
Chris@1296:     end
Chris@1296: 
Chris@1296:     def v_align( text ) 
Chris@1296:         V_ALGN_VALS[text]
Chris@1296:     end
Chris@1296: 
Chris@1296:     def textile_popup_help( name, windowW, windowH )
Chris@1296:         ' ' + name + '
'
Chris@1296:     end
Chris@1296: 
Chris@1296:     # HTML cleansing stuff
Chris@1296:     BASIC_TAGS = {
Chris@1296:         'a' => ['href', 'title'],
Chris@1296:         'img' => ['src', 'alt', 'title'],
Chris@1296:         'br' => [],
Chris@1296:         'i' => nil,
Chris@1296:         'u' => nil, 
Chris@1296:         'b' => nil,
Chris@1296:         'pre' => nil,
Chris@1296:         'kbd' => nil,
Chris@1296:         'code' => ['lang'],
Chris@1296:         'cite' => nil,
Chris@1296:         'strong' => nil,
Chris@1296:         'em' => nil,
Chris@1296:         'ins' => nil,
Chris@1296:         'sup' => nil,
Chris@1296:         'sub' => nil,
Chris@1296:         'del' => nil,
Chris@1296:         'table' => nil,
Chris@1296:         'tr' => nil,
Chris@1296:         'td' => ['colspan', 'rowspan'],
Chris@1296:         'th' => nil,
Chris@1296:         'ol' => nil,
Chris@1296:         'ul' => nil,
Chris@1296:         'li' => nil,
Chris@1296:         'p' => nil,
Chris@1296:         'h1' => nil,
Chris@1296:         'h2' => nil,
Chris@1296:         'h3' => nil,
Chris@1296:         'h4' => nil,
Chris@1296:         'h5' => nil,
Chris@1296:         'h6' => nil, 
Chris@1296:         'blockquote' => ['cite']
Chris@1296:     }
Chris@1296: 
Chris@1296:     def clean_html( text, tags = BASIC_TAGS )
Chris@1296:         text.gsub!( /]*)>/ ) do
Chris@1296:             raw = $~
Chris@1296:             tag = raw[2].downcase
Chris@1296:             if tags.has_key? tag
Chris@1296:                 pcs = [tag]
Chris@1296:                 tags[tag].each do |prop|
Chris@1296:                     ['"', "'", ''].each do |q|
Chris@1296:                         q2 = ( q != '' ? q : '\s' )
Chris@1296:                         if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i
Chris@1296:                             attrv = $1
Chris@1296:                             next if prop == 'src' and attrv =~ %r{^(?!http)\w+:}
Chris@1296:                             pcs << "#{prop}=\"#{$1.gsub('"', '\\"')}\""
Chris@1296:                             break
Chris@1296:                         end
Chris@1296:                     end
Chris@1296:                 end if tags[tag]
Chris@1296:                 "<#{raw[1]}#{pcs.join " "}>"
Chris@1296:             else
Chris@1296:                 " "
Chris@1296:             end
Chris@1296:         end
Chris@1296:     end
Chris@1296:     
Chris@1296:     ALLOWED_TAGS = %w(redpre pre code notextile)
Chris@1296:     
Chris@1296:     def escape_html_tags(text)
Chris@1296:       text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "<#{$1}#{'>' unless $3.blank?}" }
Chris@1296:     end
Chris@1296: end
Chris@1296: