junebug 0.0.14 → 0.0.15

data/lib/junebug/redcloth/markdown.rb

@@ -0,0 +1,138 @@
+unless defined? RedCloth
+  $:.unshift(File.dirname(__FILE__))
+  require 'base'
+end
+
+class RedCloth < String
+
+    DEFAULT_RULES << :markdown
+
+    # == Markdown
+    #
+    # refs_markdown::         Markdown references (for example: [hobix]: http://hobix.com/)
+    # block_markdown_setext:: Markdown setext headers
+    # block_markdown_atx::    Markdown atx headers
+    # block_markdown_rule::   Markdown horizontal rules
+    # block_markdown_bq::     Markdown blockquotes
+    # block_markdown_lists::  Markdown lists
+    # inline_markdown_link::  Markdown links
+    #
+    
+    #######
+    private
+    #######
+
+    def block_markdown_setext( text )
+        if text =~ SETEXT_RE
+            tag = if $2 == "="; "h1"; else; "h2"; end
+            blk, cont = "<#{ tag }>#{ $1 }</#{ tag }>", $'
+            blocks cont
+            text.replace( blk + cont )
+        end
+    end
+
+    def block_markdown_atx( text )
+        if text =~ ATX_RE
+            tag = "h#{ $1.length }"
+            blk, cont = "<#{ tag }>#{ $2 }</#{ tag }>\n\n", $'
+            blocks cont
+            text.replace( blk + cont )
+        end
+    end
+
+    MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m
+
+    def block_markdown_bq( text )
+        text.gsub!( MARKDOWN_BQ_RE ) do |blk|
+            blk.gsub!( /^ *> ?/, '' )
+            flush_left blk
+            blocks blk
+            blk.gsub!( /^(\S)/, "\t\\1" )
+            "<blockquote>\n#{ blk }\n</blockquote>\n\n"
+        end
+    end
+
+    MARKDOWN_RULE_RE = /^(.*)( ?[#{
+        ['*', '-', '_'].collect { |ch| Regexp::quote( ch ) }.join
+    }] ?){3,}(.*)$/
+
+    def block_markdown_rule( text )
+        text.gsub!( MARKDOWN_RULE_RE ) do |blk|
+            if $3.empty? && $1 =~ /[#{['*', '-', '_'].collect { |ch| Regexp::quote( ch ) }.join}]*/
+                "<hr />"
+            else
+                blk
+            end
+        end
+    end
+
+    # XXX TODO XXX
+    def block_markdown_lists( text )
+    end
+
+    def inline_markdown_link( text )
+    end
+
+    MARKDOWN_REFLINK_RE = /
+            \[([^\[\]]+)\]      # $text
+            [ ]?                # opt. space
+            (?:\n[ ]*)?         # one optional newline followed by spaces
+            \[(.*?)\]           # $id
+        /x 
+
+    def inline_markdown_reflink( text ) 
+        text.gsub!( MARKDOWN_REFLINK_RE ) do |m|
+            text, id = $~[1..2]
+
+            if id.empty?
+                url, title = check_refs( text )
+            else
+                url, title = check_refs( id )
+            end
+            
+            atts = " href=\"#{ url }\""
+            atts << " title=\"#{ title }\"" if title
+            atts = shelve( atts )
+            
+            "<a#{ atts }>#{ text }</a>"
+        end
+    end
+
+    MARKDOWN_LINK_RE = /
+            \[([^\[\]]+)\]      # $text
+            \(                  # open paren
+            [ \t]*              # opt space
+            <?(.+?)>?           # $href
+            [ \t]*              # opt space
+            (?:                 # whole title
+            (['"])              # $quote
+            (.*?)               # $title
+            \3                  # matching quote
+            )?                  # title is optional
+            \)
+        /x 
+
+    def inline_markdown_link( text ) 
+        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
+
+    MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+<?(#{HYPERLINK})>?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m
+
+    def refs_markdown( text )
+        text.gsub!( MARKDOWN_REFS_RE ) do |m|
+            flag, url = $~[2..3]
+            title = $~[6]
+            @urlrefs[flag.downcase] = [url, title]
+            nil
+        end
+    end
+end
+

data/lib/junebug/redcloth/textile.rb

@@ -0,0 +1,449 @@
+unless defined? RedCloth
+  $:.unshift(File.dirname(__FILE__))
+  require 'base'
+end
+
+class RedCloth < String
+
+    DEFAULT_RULES << :textile
+
+    #
+    # == Textile Rules
+    #
+    # The following textile rules can be set individually.  Or add the complete
+    # set of rules with the single :textile rule, which supplies the rule set in
+    # the following precedence:
+    #
+    # refs_textile::          Textile references (i.e. [hobix]http://hobix.com/)
+    # block_textile_table::   Textile table block structures
+    # block_textile_lists::   Textile list structures
+    # block_textile_prefix::  Textile blocks with prefixes (i.e. bq., h2., etc.)
+    # block_textile_defs::    Textile definition lists
+    # inline_textile_image::  Textile inline images
+    # inline_textile_link::   Textile inline links
+    # inline_textile_span::   Textile inline spans
+    # glyphs_textile::        Textile entities (such as em-dashes and smart quotes)
+    #
+    
+    #######
+    private
+    #######
+    #
+    # Mapping of 8-bit ASCII codes to HTML numerical entity equivalents.
+    # (from PyTextile)
+    #
+    TEXTILE_TAGS =
+
+        [[128, 8364], [129, 0], [130, 8218], [131, 402], [132, 8222], [133, 8230], 
+         [134, 8224], [135, 8225], [136, 710], [137, 8240], [138, 352], [139, 8249], 
+         [140, 338], [141, 0], [142, 0], [143, 0], [144, 0], [145, 8216], [146, 8217], 
+         [147, 8220], [148, 8221], [149, 8226], [150, 8211], [151, 8212], [152, 732], 
+         [153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]].
+
+        collect! do |a, b|
+            [a.chr, ( b.zero? and "" or "&##{ b };" )]
+        end
+    
+    def textile_pre_process(text)
+			{'w' => 'warning', 'n' => 'note', 'c' => 'comment', 'pro' => 'production', 'dt' => 'dt', 'dd' => 'dd'}.each do |char, word|
+			  parts = text.split(/^\s*#{char}\./)
+			  text.replace(parts.first + "\n" + parts[1..-1].map do |part|
+				  if part =~ /\.#{char}\s*$/
+  				  "div(#{word})." + part.sub(/\.#{char}\s*$/, "div(#{word}). \n")
+			    else
+			      "#{char}.#{part}"
+			    end
+				end.join("\n"))
+				
+				self.class.class_eval %!
+  				def textile_#{char}(tag, atts, cite, content)
+            textile_p('p', %{ class=#{word.inspect}}, cite, content)
+          end
+        !
+			end
+			{'bq' => 'blockquote'}.each do |char, word|
+			  parts = text.split(/^\s*#{char}\./)
+				text.replace(parts.first + "\n" + parts[1..-1].map do |part|
+				  if part =~ /\.#{char}\s*$/
+  				  "div(#{word})." + part.sub(/\.#{char}\s*$/, "div(#{word}). ")
+			    else
+			      "#{char}.#{part}"
+			    end
+				end.join("\n"))
+			end
+			
+      text.gsub!( BACKTICK_CODE_RE ) do |m|
+          before,lang,code,after = $~[1..4]
+          lang = " lang=\"#{ lang }\"" if lang
+          rip_offtags( "#{ before }<pre><code#{ lang }>#{ code.gsub(/\\\`\`\`/,'```') }</code></pre>#{ after }" )
+      end
+    end
+    
+    def textile_post_process(text)
+      post_inline_textile_span(text)
+    end
+    
+    # Parses a Textile table block, building HTML from the result.
+    def block_textile_table( text ) 
+        text.gsub!( TABLE_RE ) do |matches|
+
+            caption, id, tatts, fullrow = $~[1..4]
+            tatts = pba( tatts, 'table' )
+            tatts = shelve( tatts ) if tatts
+            rows = []
+
+            fullrow.
+            split( /\|$/m ).
+            delete_if {|row|row.empty?}.
+            each do |row|
+
+                ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m
+                row << " "
+                
+                cells = []
+                row.split( '|' ).each_with_index do |cell, i|
+                    next if i == 0
+                    
+                    ctyp = 'd'
+                    ctyp = 'h' if cell =~ /^_/
+
+                    catts = ''
+                    catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/
+
+                    catts = shelve( catts ) if catts
+                    cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell.strip.empty? ? "&nbsp;" : row.split( '|' ).size-1 != i ? cell : cell[0...cell.length-1] }</t#{ ctyp }>"
+                end
+                ratts = shelve( ratts ) if ratts
+                rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"
+            end
+            caption = "\t<p class=\"caption\">#{caption}</p>\n" if caption
+            "#{caption}\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"
+        end
+    end
+
+    # Parses Textile lists and generates HTML
+    def block_textile_lists( text )
+				orig_text = text.dup
+				
+				# Take care of _*'s and _#'s to turn them into paragraphs
+				text.gsub!(/([\*#] )((.*?\n\s*_[\*#].*?)+)/) do |m|
+					"#{$1}<p>"+$2.split(/_[\*#]/).map{|w|w.strip}.delete_if{|w|w.empty?}.join("</p><p>")+"</p>"
+				end
+				
+        @last_line ||= -1
+        
+        text.gsub!( LISTS_RE ) do |match|
+            if text =~ /^#([_0-9]+).*/m
+              if $1 == $1.to_i.to_s # then it is a number, so use it
+                @last_line = $1.to_i - 2
+              end
+            else
+              @last_line = -1
+            end
+            lines = match.split( /\n/ )
+            depth = []
+            lines.each_with_index do |line, line_id|
+                if line =~ LISTS_CONTENT_RE 
+                  
+                    tl,continuation,atts,content = $~[1..4]
+                    @last_line += 1 if tl.length == 1
+                    
+                    unless depth.last.nil?
+                        if depth.last.length > tl.length
+                            (depth.length - 1).downto(0) do |i|
+                                break if depth[i].length == tl.length
+                                lines[line_id - 1] << "</li>\n#{"\t"*(depth.size-1)}</#{ lT( depth[i] ) }l>"
+                                depth.pop
+																tab_in = true
+                            end
+                        end
+                        if depth.last && depth.last.length == tl.length
+														lines[line_id - 1] << "</li>"
+                        end
+                    end
+                    unless depth.last == tl
+                        depth << tl
+                        atts = pba( atts )
+                        atts << " start=\"#{@last_line + 1}\"" if lT(tl) == "o" && !continuation.empty? && @last_line > 0
+                        atts = shelve( atts ) if atts
+                        lines[line_id] = "#{"\t"*(depth.size-1)}<#{ lT(tl) }l#{ atts }>\n#{"\t"*depth.size}<li>#{ content }"
+                    else
+                        lines[line_id] = "#{"\t"*depth.size}<li>#{ content }"
+                    end
+                elsif line =~ /^([_]+)(#{A}#{C}) (.*)$/m
+                    @last_line += 1
+                    tl = "u"
+                    atts,content = $~[2..3]
+                  
+                    unless depth.last.nil?
+                        if depth.last.length > tl.length
+                            (depth.length - 1).downto(0) do |i|
+                                break if depth[i].length == tl.length
+                                lines[line_id - 1] << "</li>\n#{"\t"*(depth.size-1)}</#{ lT( depth[i] ) }l>"
+                                depth.pop
+                                tab_in = true
+                            end
+                        end
+                        if depth.last and depth.last.length == tl.length
+                            lines[line_id - 1] << "</li>"
+                        end
+                    end
+                    unless depth.last == tl
+                        depth << tl
+                        atts = pba( atts )
+                        atts = shelve( "#{atts} style=\"list-style-type:none;\"" )
+                        lines[line_id] = "#{"\t"*(depth.size-1)}<#{ lT(tl) }l#{ atts }>\n#{"\t"*depth.size}<li>#{ content }"
+                    else
+                        lines[line_id] = "#{"\t"*depth.size}<li>#{ content }"
+                    end
+                end
+                
+                if line_id == lines.length - 1
+										tabs = depth.size-1
+                    depth.reverse.delete_if do |v|
+												lines[-1] << "</li>\n#{"\t"*tabs}</#{ lT( v ) }l>"
+												tabs -= 1
+										end
+                end
+            end
+            lines.join( "\n" )
+        end
+        
+        text != orig_text
+    end
+
+    # Parses Textile definition lists and generates HTML
+    def block_textile_defs( text )
+  			text.gsub!(/^-\s+(.*?):=(.*?)=:\s*$/m) do |m|
+  				"- #{$1.strip} := <p>"+$2.split(/\n/).map{|w|w.strip}.delete_if{|w|w.empty?}.join("</p><p>")+"</p>"
+  			end
+				
+        text.gsub!( DEFS_RE ) do |match|
+            lines = match.split( /\n/ )
+            lines.each_with_index do |line, line_id|
+                if line =~ DEFS_CONTENT_RE 
+                    dl,continuation,dt,dd = $~[1..4]
+                    
+                    atts = pba( atts )
+                    atts = shelve( atts ) if atts
+                    lines[line_id] = line_id == 0 ? "<dl#{ atts }>" : ""
+                    lines[line_id] << "\n\t<dt>#{ dt.strip }</dt>\n\t<dd>#{ dd.strip }</dd>"
+                end
+
+                if line_id == lines.length - 1
+										lines[-1] << "\n</dl>"
+                end
+            end
+            lines.join( "\n" )
+        end
+    end
+    
+    def inline_textile_code( text ) 
+        text.gsub!( CODE_RE ) do |m|
+            before,lang,code,after = $~[1..4]
+            lang = " lang=\"#{ lang }\"" if lang
+            rip_offtags( "#{ before }<code#{ lang }>#{ code.gsub(/\\@(@?)/,'@\1') }</code>#{ after }" )
+        end
+    end
+
+    def textile_bq( tag, atts, cite, content )
+        cite, cite_title = check_refs( cite )
+        cite = " cite=\"#{ cite }\"" if cite
+        atts = shelve( atts ) if atts
+        "\t<blockquote#{ cite }>\n\t\t<p#{ atts }>#{ content }</p>\n\t</blockquote>"
+    end
+
+    def textile_p( tag, atts, cite, content )
+        atts = shelve( atts ) if atts
+        "\t<#{ tag }#{ atts }>#{ content }</#{ tag }>"
+    end
+
+    alias textile_h1 textile_p
+    alias textile_h2 textile_p
+    alias textile_h3 textile_p
+    alias textile_h4 textile_p
+    alias textile_h5 textile_p
+    alias textile_h6 textile_p
+    
+    def textile_fn_( tag, num, atts, cite, content )
+        atts << " id=\"fn#{ num }\""
+        content = "<sup>#{ num }</sup> #{ content }"
+        atts = shelve( atts ) if atts
+        "\t<p#{ atts }>#{ content }</p>"
+    end
+    
+    def textile_ch( tag, atts, cite, content )
+      textile_p("h1", atts, cite, content)
+    end
+
+    def block_textile_prefix( text ) 
+        if text =~ BLOCK_RE
+            tag,tagpre,num,atts,cite,content = $~[1..6]
+            atts = pba( atts )
+
+            # pass to prefix handler
+            if respond_to? "textile_#{ tag }", true
+                text.gsub!( $&, method( "textile_#{ tag }" ).call( tag, atts, cite, content ) )
+            elsif respond_to? "textile_#{ tagpre }_", true
+                text.gsub!( $&, method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) )
+            end
+        end
+    end
+
+    def inline_textile_span( text ) 
+        QTAGS.each do |qtag_rc, ht, qtag_re, rtype, escaped_re|
+            text.gsub!( qtag_re ) do |m|
+             
+                case rtype
+                when :limit
+                    sta,qtag,atts,cite,content = $~[1..5]
+                else
+                    qtag,atts,cite,content = $~[1..4]
+                    sta = ''
+                end
+                atts = pba( atts )
+                atts << " cite=\"#{ cite }\"" if cite
+                atts = shelve( atts ) if atts
+
+                "#{ sta }<#{ ht }#{ atts }>#{ content }</#{ ht }>"
+            end
+        end
+    end
+            
+    def post_inline_textile_span( text ) 
+        QTAGS.each do |qtag_rc, ht, qtag_re, rtype, escaped_re|
+            text.gsub!( escaped_re ) do |m|
+             
+                case rtype
+                when :limit
+                    sta,qtag,atts,cite,content = $~[1..5]
+                else
+                    qtag,atts,cite,content = $~[1..4]
+                    sta = ''
+                end
+                atts = pba( atts )
+                atts << " cite=\"#{ cite }\"" if cite
+
+                "#{ sta }<#{ ht }#{ atts }>#{ content }</#{ ht }>"
+            end
+        end
+    end
+
+    def inline_textile_link( text ) 
+        text.gsub!( LINK_RE ) do |m|
+            pre,atts,text,title,url,slash,post = $~[1..7]
+
+            url, url_title = check_refs( url )
+            title ||= url_title
+            
+            atts = pba( atts )
+            atts = " href=\"#{ url }#{ slash }\"#{ atts }"
+            atts << " title=\"#{ title }\"" if title
+            atts = shelve( atts ) if atts
+            
+            "#{ pre }<a#{ atts }>#{ text }</a>#{ post }"
+        end
+    end
+
+    TEXTILE_REFS_RE =  /(^ *)\[([^\n\[]+?)\](#{HYPERLINK})(?=\s|$)/
+
+    def refs_textile( text ) 
+        text.gsub!( TEXTILE_REFS_RE ) do |m|
+            flag, url = $~[2..3]
+            @urlrefs[flag.downcase] = [url, nil]
+            nil
+        end
+    end
+
+    def inline_textile_image( text ) 
+        text.gsub!( IMAGE_RE )  do |m|
+            stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]
+            atts = pba( atts )
+            atts = " src=\"#{ url }\"#{ atts }"
+            atts << " title=\"#{ title }\"" if title
+            atts << " alt=\"#{ title }\"" 
+            # size = @getimagesize($url);
+            # if($size) $atts.= " $size[3]";
+
+            href, alt_title = check_refs( href ) if href
+            url, url_title = check_refs( url )
+
+            out = ''
+            out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href
+            out << "<img#{ shelve( atts ) } />"
+            out << "</a>#{ href_a1 }#{ href_a2 }" if href
+            
+            if algn 
+                algn = h_align( algn )
+                if stln == "<p>"
+                    out = "<p style=\"float:#{ algn }\">#{ out }"
+                else
+                    out = "#{ stln }<div style=\"float:#{ algn }\">#{ out }</div>"
+                end
+            else
+                out = stln + out
+            end
+
+            out
+        end
+    end
+
+    def no_textile( text )
+        text.gsub!( /(^|\s)(\\?)==([^=]+.*?)\2==(\s|$)?/ ) do |m|
+          $2.empty? ? "#{$1}<notextile>#{$3}</notextile>#{$4}" : "#{$1}==#{$3}==#{$4}"
+        end
+        text.gsub!( /^ *(\\?)==([^=]+.*?)\1==/m ) do |m|
+          $1.empty? ? "<notextile>#{$2}</notextile>" : "==#{$2}=="
+        end
+    end
+
+    def glyphs_textile( text, level = 0 )
+        if text !~ HASTAG_MATCH
+            pgl text
+            footnote_ref text
+        else
+            codepre = 0
+            text.gsub!( ALLTAG_MATCH ) do |line|
+                ## matches are off if we're between <code>, <pre> etc.
+                if $1
+                    if line =~ OFFTAG_OPEN
+                        codepre += 1
+                    elsif line =~ OFFTAG_CLOSE
+                        codepre -= 1
+                        codepre = 0 if codepre < 0
+                    end 
+                elsif codepre.zero?
+                    glyphs_textile( line, level + 1 )
+                else
+                    htmlesc( line, :NoQuotes )
+                end
+                ## p [level, codepre, orig_line, line]
+
+                line
+            end
+        end
+    end
+
+    def textile_popup_help( name, windowW, windowH )
+        ' <a target="_blank" href="http://hobix.com/textile/#' + helpvar + '" onclick="window.open(this.href, \'popupwindow\', \'width=' + windowW + ',height=' + windowH + ',scrollbars,resizable\'); return false;">' + name + '</a><br />'
+    end
+    
+    # Turns all urls into clickable links.
+    # Taken from ActionPack's ActionView
+    def inline_textile_autolink_urls(text)
+      text.gsub!(AUTO_LINK_RE) do
+        all, a, b, c, d = $&, $1, $2, $3, $5
+        if a =~ /<a\s/i # don't replace URL's that are already linked
+          all
+        else
+          %(#{a}<a href="#{b=="www."?"http://www.":b}#{c}">#{b}#{c}</a>#{d})
+        end
+      end
+    end
+
+    # Turns all email addresses into clickable links.
+    def inline_textile_autolink_emails(text)
+      text.gsub!(/([\w\.!#\$%\-+.]+@[A-Za-z0-9\-]+(\.[A-Za-z0-9\-]+)+)/, '<a href="mailto:\1">\1</a>')
+    end
+end
+