instiki 0.10.0 → 0.10.1

data/lib/instiki_errors.rb

@@ -1,15 +1,15 @@
-# Model methods that want to rollback transactions gracefully 
-# (i.e, returning the user back to the form from which the request was posted)
-# should raise Instiki::ValidationError.
-# 
-# E.g. if a model object does
-#   raise "Foo: '#{foo}' is not equal to Bar: '#{bar}'" if (foo != bar) 
-# 
-# then the operation is not committed; Rails returns the user to the page 
-# where s/he was entering foo and bar, and the error message will be displayed 
-# on the page
-
-module Instiki
-  class ValidationError < StandardError
-  end
+# Model methods that want to rollback transactions gracefully 
+# (i.e, returning the user back to the form from which the request was posted)
+# should raise Instiki::ValidationError.
+# 
+# E.g. if a model object does
+#   raise "Foo: '#{foo}' is not equal to Bar: '#{bar}'" if (foo != bar) 
+# 
+# then the operation is not committed; Rails returns the user to the page 
+# where s/he was entering foo and bar, and the error message will be displayed 
+# on the page
+
+module Instiki
+  class ValidationError < StandardError
+  end
 end

data/lib/rdocsupport.rb

@@ -1,152 +1,152 @@
-begin
-  require "rdoc/markup/simple_markup"
-  require 'rdoc/markup/simple_markup/to_html'
-rescue LoadError
-  # use old version if available
-  require 'markup/simple_markup'
-  require 'markup/simple_markup/to_html'
-end
-
-module RDocSupport
-
-# A simple +rdoc+ markup class which recognizes some additional
-# formatting commands suitable for Wiki use.
-class RDocMarkup < SM::SimpleMarkup
-  def initialize
-    super()
-
-    pre = '(?:\\s|^|\\\\)'
-
-    # links of the form
-    # [[<url> description with spaces]]
-    add_special(/((\\)?\[\[\S+?\s+.+?\]\])/,:TIDYLINK)
-
-    # and external references
-    add_special(/((\\)?(link:|anchor:|http:|mailto:|ftp:|img:|www\.)\S+\w\/?)/,
-                :HYPERLINK)
-
-    # <br/>
-    add_special(%r{(#{pre}<br/>)}, :BR)
-
-    # and <center> ... </center>
-    add_html("center", :CENTER)
-  end
-
-  def convert(text, handler)
-    super.sub(/^<p>\n/, '').sub(/<\/p>$/, '')
-  end
-end
-
-# Handle special hyperlinking requirments for RDoc formatted
-# entries. Requires RDoc
-
-class HyperLinkHtml < SM::ToHtml
-
-  # Initialize the HyperLinkHtml object.
-  # [path] location of the node
-  # [site] object representing the whole site (typically of class
-  #             +Site+)
-  def initialize
-    super()
-    add_tag(:CENTER, "<center>", "</center>")
-  end
-
-  # handle <br/>
-  def handle_special_BR(special)
-    return "&lt;br/&gt" if special.text[0,1] == '\\'
-    special.text
-  end
-
-  # We're invoked with a potential external hyperlink.
-  # [mailto:]   just gets inserted.
-  # [http:]     links are checked to see if they
-  #             reference an image. If so, that image gets inserted
-  #             using an <img> tag. Otherwise a conventional <a href>
-  #             is used.
-  # [img:] insert a <tt><img></tt> tag
-  # [link:] used to insert arbitrary <tt><a></tt> references
-  # [anchor:] used to create an anchor
-  def handle_special_HYPERLINK(special)
-      text = special.text.strip
-      return text[1..-1] if text[0,1] == '\\'
-      url = special.text.strip
-      if url =~ /([A-Za-z]+):(.*)/
-        type = $1
-        path = $2
-      else
-        type = "http"
-        path = url
-        url  = "http://#{url}"
-      end
-
-      case type 
-      when "http"
-        if url =~ /\.(gif|png|jpg|jpeg|bmp)$/
-          "<img src=\"#{url}\"/>"
-        else
-          "<a href=\"#{url}\">#{url.sub(%r{^\w+:/*}, '')}</a>"
-        end
-      when "img"
-        "<img src=\"#{path}\"/>"
-      when "link"
-        "<a href=\"#{path}\">#{path}</a>"
-      when "anchor"
-        "<a name=\"#{path}\"></a>"
-      else
-        "<a href=\"#{url}\">#{url.sub(%r{^\w+:/*}, '')}</a>"
-      end
-    end
-
-    # Here's a hyperlink where the label is different to the URL
-    #  [[url label that may contain spaces]]
-    #
-
-    def handle_special_TIDYLINK(special)
-      text = special.text.strip
-      return text[1..-1] if text[0,1] == '\\'
-      unless text =~ /\[\[(\S+?)\s+(.+?)\]\]/
-        return text
-      end
-      url   = $1
-      label = $2
-      label = RDocFormatter.new(label).to_html
-      label = label.split.select{|x| x =~ /\S/}.
-        map{|x| x.chomp}.join(' ')
-
-      case url
-      when /link:(\S+)/
-        return %{<a href="#{$1}">#{label}</a>}
-      when /img:(\S+)/
-        return %{<img src="http://#{$1}" alt="#{label}" />}
-      when /rubytalk:(\S+)/
-        return %{<a href="http://ruby-talk.org/blade/#{$1}">#{label}</a>}
-      when /rubygarden:(\S+)/
-        return %{<a href="http://www.rubygarden.org/ruby?#{$1}">#{label}</a>}
-      when /c2:(\S+)/
-        return %{<a href="http://c2.com/cgi/wiki?#{$1}">#{label}</a>}
-      when /isbn:(\S+)/
-        return %{<a href="http://search.barnesandnoble.com/bookSearch/} +
-          %{isbnInquiry.asp?isbn=#{$1}">#{label}</a>}
-      end
-
-      unless url =~ /\w+?:/
-        url = "http://#{url}"
-      end
-
-      "<a href=\"#{url}\">#{label}</a>"
-    end
-end
-
-class RDocFormatter
-  def initialize(text)
-    @text = text
-  end
-
-  def to_html
-    markup = RDocMarkup.new
-    h = HyperLinkHtml.new
-    markup.convert(@text, h)
-  end
-end
-
+begin
+  require "rdoc/markup/simple_markup"
+  require 'rdoc/markup/simple_markup/to_html'
+rescue LoadError
+  # use old version if available
+  require 'markup/simple_markup'
+  require 'markup/simple_markup/to_html'
+end
+
+module RDocSupport
+
+# A simple +rdoc+ markup class which recognizes some additional
+# formatting commands suitable for Wiki use.
+class RDocMarkup < SM::SimpleMarkup
+  def initialize
+    super()
+
+    pre = '(?:\\s|^|\\\\)'
+
+    # links of the form
+    # [[<url> description with spaces]]
+    add_special(/((\\)?\[\[\S+?\s+.+?\]\])/,:TIDYLINK)
+
+    # and external references
+    add_special(/((\\)?(link:|anchor:|http:|mailto:|ftp:|img:|www\.)\S+\w\/?)/,
+                :HYPERLINK)
+
+    # <br/>
+    add_special(%r{(#{pre}<br/>)}, :BR)
+
+    # and <center> ... </center>
+    add_html("center", :CENTER)
+  end
+
+  def convert(text, handler)
+    super.sub(/^<p>\n/, '').sub(/<\/p>$/, '')
+  end
+end
+
+# Handle special hyperlinking requirments for RDoc formatted
+# entries. Requires RDoc
+
+class HyperLinkHtml < SM::ToHtml
+
+  # Initialize the HyperLinkHtml object.
+  # [path] location of the node
+  # [site] object representing the whole site (typically of class
+  #             +Site+)
+  def initialize
+    super()
+    add_tag(:CENTER, "<center>", "</center>")
+  end
+
+  # handle <br/>
+  def handle_special_BR(special)
+    return "&lt;br/&gt" if special.text[0,1] == '\\'
+    special.text
+  end
+
+  # We're invoked with a potential external hyperlink.
+  # [mailto:]   just gets inserted.
+  # [http:]     links are checked to see if they
+  #             reference an image. If so, that image gets inserted
+  #             using an <img> tag. Otherwise a conventional <a href>
+  #             is used.
+  # [img:] insert a <tt><img></tt> tag
+  # [link:] used to insert arbitrary <tt><a></tt> references
+  # [anchor:] used to create an anchor
+  def handle_special_HYPERLINK(special)
+      text = special.text.strip
+      return text[1..-1] if text[0,1] == '\\'
+      url = special.text.strip
+      if url =~ /([A-Za-z]+):(.*)/
+        type = $1
+        path = $2
+      else
+        type = "http"
+        path = url
+        url  = "http://#{url}"
+      end
+
+      case type 
+      when "http"
+        if url =~ /\.(gif|png|jpg|jpeg|bmp)$/
+          "<img src=\"#{url}\"/>"
+        else
+          "<a href=\"#{url}\">#{url.sub(%r{^\w+:/*}, '')}</a>"
+        end
+      when "img"
+        "<img src=\"#{path}\"/>"
+      when "link"
+        "<a href=\"#{path}\">#{path}</a>"
+      when "anchor"
+        "<a name=\"#{path}\"></a>"
+      else
+        "<a href=\"#{url}\">#{url.sub(%r{^\w+:/*}, '')}</a>"
+      end
+    end
+
+    # Here's a hyperlink where the label is different to the URL
+    #  [[url label that may contain spaces]]
+    #
+
+    def handle_special_TIDYLINK(special)
+      text = special.text.strip
+      return text[1..-1] if text[0,1] == '\\'
+      unless text =~ /\[\[(\S+?)\s+(.+?)\]\]/
+        return text
+      end
+      url   = $1
+      label = $2
+      label = RDocFormatter.new(label).to_html
+      label = label.split.select{|x| x =~ /\S/}.
+        map{|x| x.chomp}.join(' ')
+
+      case url
+      when /link:(\S+)/
+        return %{<a href="#{$1}">#{label}</a>}
+      when /img:(\S+)/
+        return %{<img src="http://#{$1}" alt="#{label}" />}
+      when /rubytalk:(\S+)/
+        return %{<a href="http://ruby-talk.org/blade/#{$1}">#{label}</a>}
+      when /rubygarden:(\S+)/
+        return %{<a href="http://www.rubygarden.org/ruby?#{$1}">#{label}</a>}
+      when /c2:(\S+)/
+        return %{<a href="http://c2.com/cgi/wiki?#{$1}">#{label}</a>}
+      when /isbn:(\S+)/
+        return %{<a href="http://search.barnesandnoble.com/bookSearch/} +
+          %{isbnInquiry.asp?isbn=#{$1}">#{label}</a>}
+      end
+
+      unless url =~ /\w+?:/
+        url = "http://#{url}"
+      end
+
+      "<a href=\"#{url}\">#{label}</a>"
+    end
+end
+
+class RDocFormatter
+  def initialize(text)
+    @text = text
+  end
+
+  def to_html
+    markup = RDocMarkup.new
+    h = HyperLinkHtml.new
+    markup.convert(@text, h)
+  end
+end
+
 end

data/lib/redcloth_for_tex.rb

@@ -1,736 +1,736 @@
-# This is RedCloth (http://www.whytheluckystiff.net/ruby/redcloth/) 
-# converted by David Heinemeier Hansson to emit Tex
-
-class String
-  # Flexible HTML escaping
-  def texesc!( mode )
-    gsub!( '&', '\\\\&' )
-    gsub!( '%', '\%' )
-    gsub!( '$', '\$' )
-    gsub!( '~', '$\sim$' )
-  end
-end
-
-
-def table_of_contents(text, pages)
-  text.gsub( /^([#*]+? .*?)$(?![^#*])/m ) do |match|
-    lines = match.split( /\n/ )
-    last_line = -1
-    depth = []
-    lines.each_with_index do |line, line_id|
-      if line =~ /^([#*]+) (.*)$/m
-        tl,content = $~[1..2]
-        content.gsub! /[\[\]]/, ""
-        content.strip!
-        
-        if depth.last
-          if depth.last.length > tl.length
-           (depth.length - 1).downto(0) do |i|
-              break if depth[i].length == tl.length
-              lines[line_id - 1] << "" # "\n\t\\end{#{ lT( depth[i] ) }}\n\t"
-              depth.pop
-            end
-          end
-          if !depth.last.nil? && !tl.length.nil? && depth.last.length == tl.length
-            lines[line_id - 1] << ''
-          end
-        end
-        
-        depth << tl unless depth.last == tl
-        
-        subsection_depth = [depth.length - 1, 2].min
-        
-        lines[line_id] = "\n\\#{ "sub" * subsection_depth }section{#{ content }}"
-        lines[line_id] += "\n#{pages[content]}" if pages.keys.include?(content)
-        
-        lines[line_id] = "\\pagebreak\n#{lines[line_id]}" if subsection_depth == 0
-        
-        last_line = line_id
-        
-      elsif line =~ /^\s+\S/
-        last_line = line_id
-      elsif line_id - last_line < 2 and line =~ /^\S/
-        last_line = line_id
-      end
-      if line_id - last_line > 1 or line_id == lines.length - 1
-        depth.delete_if do |v|
-          lines[last_line] << "" # "\n\t\\end{#{ lT( v ) }}"
-        end
-      end
-    end
-    lines.join( "\n" )
-  end
-end
-
-class RedClothForTex < String
-  
-  VERSION = '2.0.7'
-  
-  #
-  # 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
-  
-  #
-  # Regular expressions to convert to HTML.
-  #
-  A_HLGN = /(?:(?:<>|<|>|\=|[()]+)+)/
-  A_VLGN = /[\-^~]/
-  C_CLAS = '(?:\([^)]+\))'
-  C_LNGE = '(?:\[[^\]]+\])'
-  C_STYL = '(?:\{[^}]+\})'
-  S_CSPN = '(?:\\\\\d+)'
-  S_RSPN = '(?:/\d+)'
-  A = "(?:#{A_HLGN}?#{A_VLGN}?|#{A_VLGN}?#{A_HLGN}?)"
-  S = "(?:#{S_CSPN}?#{S_RSPN}|#{S_RSPN}?#{S_CSPN}?)"
-  C = "(?:#{C_CLAS}?#{C_STYL}?#{C_LNGE}?|#{C_STYL}?#{C_LNGE}?#{C_CLAS}?|#{C_LNGE}?#{C_STYL}?#{C_CLAS}?)"
-  # PUNCT = Regexp::quote( '!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~' )
-  PUNCT = Regexp::quote( '!"#$%&\'*+,-./:;=?@\\^_`|~' )
-  HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(\s|$)'
-  
-  GLYPHS = [
-  #   [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1&#8217;\2' ], # single closing
-  [ /([^\s\[{(>])\'/, '\1&#8217;' ], # single closing
-  [ /\'(?=\s|s\b|[#{PUNCT}])/, '&#8217;' ], # single closing
-  [ /\'/, '&#8216;' ], # single opening
-  #   [ /([^\s\[{(])?"(\s|:|$)/, '\1&#8221;\2' ], # double closing
-  [ /([^\s\[{(>])"/, '\1&#8221;' ], # double closing
-  [ /"(?=\s|[#{PUNCT}])/, '&#8221;' ], # double closing
-  [ /"/, '&#8220;' ], # double opening
-  [ /\b( )?\.{3}/, '\1&#8230;' ], # ellipsis
-  [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym
-  [ /(^|[^"][>\s])([A-Z][A-Z0-9 ]{2,})([^<a-z0-9]|$)/, '\1<span class="caps">\2</span>\3' ], # 3+ uppercase caps
-  [ /(\.\s)?\s?--\s?/, '\1&#8212;' ], # em dash
-  [ /\s->\s/, ' &rarr; ' ], # en dash
-  [ /\s-\s/, ' &#8211; ' ], # en dash
-  [ /(\d+) ?x ?(\d+)/, '\1&#215;\2' ], # dimension sign
-  [ /\b ?[(\[]TM[\])]/i, '&#8482;' ], # trademark
-  [ /\b ?[(\[]R[\])]/i, '&#174;' ], # registered
-  [ /\b ?[(\[]C[\])]/i, '&#169;' ] # copyright
-  ]
-  
-  I_ALGN_VALS = {
-        '<' => 'left',
-        '=' => 'center',
-        '>' => 'right'
-  }
-  
-  H_ALGN_VALS = {
-        '<' => 'left',
-        '=' => 'center',
-        '>' => 'right',
-        '<>' => 'justify'
-  }
-  
-  V_ALGN_VALS = {
-        '^' => 'top',
-        '-' => 'middle',
-        '~' => 'bottom'
-  }
-  
-  QTAGS = [
-  ['**', 'bf'],
-  ['*', 'bf'],
-  ['??', 'cite'],
-  ['-', 'del'],
-  ['__', 'underline'],
-  ['_', 'em'],
-  ['%', 'span'],
-  ['+', 'ins'],
-  ['^', 'sup'],
-  ['~', 'sub']
-  ]
-  
-  def self.available?
-    if not defined? @@available 
-      begin 
-        @@available = system "pdflatex -version"
-      rescue Errno::ENOENT
-        @@available = false
-      end
-    end
-    @@available
-  end
-  
-  #
-  # Two accessor for setting security restrictions.
-  #
-  # This is a nice thing if you're using RedCloth for
-  # formatting in public places (e.g. Wikis) where you
-  # don't want users to abuse HTML for bad things.
-  #
-  # If +:filter_html+ is set, HTML which wasn't
-  # created by the Textile processor will be escaped.
-  #
-  # If +:filter_styles+ is set, it will also disable
-  # the style markup specifier. ('{color: red}')
-  #
-  attr_accessor :filter_html, :filter_styles
-  
-  #
-  # Accessor for toggling line folding.
-  #
-  # If +:fold_lines+ is set, single newlines will
-  # not be converted to break tags.
-  #
-  attr_accessor :fold_lines
-  
-  def initialize( string, restrictions = [] )
-    restrictions.each { |r| method( "#{ r }=" ).call( true ) }
-    super( string )
-  end
-  
-  #
-  # Generate tex.
-  #
-  def to_tex( lite = false )
-    
-    # make our working copy
-    text = self.dup
-    
-    @urlrefs = {}
-    @shelf = []
-    
-    # incoming_entities text 
-    fix_entities text 
-    clean_white_space text 
-    
-    get_refs text 
-    
-    no_textile text 
-    
-    unless lite
-      lists text
-      table text
-    end
-    
-    glyphs text
-    
-    unless lite
-      fold text
-      block text
-    end
-    
-    retrieve text
-    encode_entities text 
-    
-    text.gsub!(/\[\[(.*?)\]\]/, "\\1")
-    text.gsub!(/_/, "\\_")
-    text.gsub!( /<\/?notextile>/, '' )
-    # text.gsub!( /x%x%/, '&#38;' )
-    # text.gsub!( /<br \/>/, "<br />\n" )
-    text.strip!
-    text
-    
-  end
-  
-  def pgl( text )
-    GLYPHS.each do |re, resub|
-      text.gsub! re, resub
-    end
-  end
-  
-  def pba( text_in, element = "" )
-    
-    return '' unless text_in
-    
-    style = []
-    text = text_in.dup
-    if element == 'td'
-      colspan = $1 if text =~ /\\(\d+)/
-      rowspan = $1 if text =~ /\/(\d+)/
-      style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN
-    end
-    
-    style << "#{ $1 };" if not @filter_styles and
-    text.sub!( /\{([^}]*)\}/, '' )
-    
-    lang = $1 if
-    text.sub!( /\[([^)]+?)\]/, '' )
-    
-    cls = $1 if
-    text.sub!( /\(([^()]+?)\)/, '' )
-    
-    style << "padding-left:#{ $1.length }em;" if
-    text.sub!( /([(]+)/, '' )
-    
-    style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' )
-    
-    style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN
-    
-    cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/
-    
-    atts = ''
-    atts << " style=\"#{ style.join }\"" unless style.empty?
-    atts << " class=\"#{ cls }\"" unless cls.to_s.empty?
-    atts << " lang=\"#{ lang }\"" if lang
-    atts << " id=\"#{ id }\"" if id
-    atts << " colspan=\"#{ colspan }\"" if colspan
-    atts << " rowspan=\"#{ rowspan }\"" if rowspan
-    
-    atts
-  end
-  
-  def table( text ) 
-    text << "\n\n"
-    text.gsub!( /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)\n\n/m ) do |matches|
-      
-      tatts, fullrow = $~[1..2]
-      tatts = pba( tatts, 'table' )
-      rows = []
-      
-      fullrow.
-      split( /\|$/m ).
-      delete_if { |x| x.empty? }.
-      each do |row|
-        
-        ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m
-        
-        cells = []
-        row.split( '|' ).each do |cell|
-          ctyp = 'd'
-          ctyp = 'h' if cell =~ /^_/
-          
-          catts = ''
-          catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. )(.*)/
-          
-          unless cell.strip.empty?
-            cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>" 
-          end
-        end
-        rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"
-      end
-            "\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"
-    end
-  end
-  
-  def lists( text ) 
-    text.gsub!( /^([#*]+?#{C} .*?)$(?![^#*])/m ) do |match|
-      lines = match.split( /\n/ )
-      last_line = -1
-      depth = []
-      lines.each_with_index do |line, line_id|
-        if line =~ /^([#*]+)(#{A}#{C}) (.*)$/m
-          tl,atts,content = $~[1..3]
-          if depth.last
-            if depth.last.length > tl.length
-             (depth.length - 1).downto(0) do |i|
-                break if depth[i].length == tl.length
-                lines[line_id - 1] << "\n\t\\end{#{ lT( depth[i] ) }}\n\t"
-                depth.pop
-              end
-            end
-            if !depth.last.nil? && !tl.length.nil? && depth.last.length == tl.length
-              lines[line_id - 1] << ''
-            end
-          end
-          unless depth.last == tl
-            depth << tl
-            atts = pba( atts )
-            lines[line_id] = "\t\\begin{#{ lT(tl) }}\n\t\\item #{ content }"
-          else
-            lines[line_id] = "\t\t\\item #{ content }"
-          end
-          last_line = line_id
-          
-        elsif line =~ /^\s+\S/
-          last_line = line_id
-        elsif line_id - last_line < 2 and line =~ /^\S/
-          last_line = line_id
-        end
-        if line_id - last_line > 1 or line_id == lines.length - 1
-          depth.delete_if do |v|
-            lines[last_line] << "\n\t\\end{#{ lT( v ) }}"
-          end
-        end
-      end
-      lines.join( "\n" )
-    end
-  end
-  
-  def lT( text ) 
-    text =~ /\#$/ ? 'enumerate' : 'itemize'
-  end
-  
-  def fold( text )
-    text.gsub!( /(.+)\n(?![#*\s|])/, "\\1\\\\\\\\" )
-    # text.gsub!( /(.+)\n(?![#*\s|])/, "\\1#{ @fold_lines ? ' ' : '<br />' }" )
-  end
-  
-  def block( text ) 
-    pre = false
-    find = ['bq','h[1-6]','fn\d+']
-    
-    regexp_cue = []
-    
-    lines = text.split( /\n/ ) + [' '] 
-    new_text = 
-    lines.collect do |line|
-      pre = true if line =~ /<(pre|notextile)>/i
-      find.each do |tag|
-        line.gsub!( /^(#{ tag })(#{A}#{C})\.(?::(\S+))? (.*)$/ ) do |m|
-          tag,atts,cite,content = $~[1..4]
-          
-          atts = pba( atts )
-          
-          if tag =~ /fn(\d+)/
-            # tag = 'p';
-            # atts << " id=\"fn#{ $1 }\""
-            regexp_cue << [ /footnote\{#{$1}}/, "footnote{#{content}}" ]
-            content = ""
-          end
-          
-          if tag =~ /h([1-6])/
-            section_type = "sub" * [$1.to_i - 1, 2].min
-            start = "\t\\#{section_type}section*{"
-            tend = "}"                        
-          end
-          
-          if tag == "bq"
-            cite = check_refs( cite )
-            cite = " cite=\"#{ cite }\"" if cite
-            start = "\t\\begin{quotation}\n\\noindent {\\em ";
-            tend = "}\n\t\\end{quotation}";
-          end
-          
-                    "#{ start }#{ content }#{ tend }"
-        end unless pre
-      end
-      
-      #line.gsub!( /^(?!\t|<\/?pre|<\/?notextile|<\/?code|$| )(.*)/, "\t<p>\\1</p>" )
-      
-      #line.gsub!( "<br />", "\n" ) if pre
-      # pre = false if line =~ /<\/(pre|notextile)>/i
-      
-      line
-      end.join( "\n" )
-      text.replace( new_text )
-      regexp_cue.each { |pair| text.gsub!(pair.first, pair.last) }
-    end
-    
-    def span( text ) 
-      QTAGS.each do |tt, ht|
-        ttr = Regexp::quote( tt )
-        text.gsub!( 
-                   
-                   /(^|\s|\>|[#{PUNCT}{(\[])
-                     #{ttr}
-                      (#{C})
-                       (?::(\S+?))?
-                        ([^\s#{ttr}]+?(?:[^\n]|\n(?!\n))*?)
-                         ([#{PUNCT}]*?)
-                         #{ttr}
-                          (?=[\])}]|[#{PUNCT}]+?|<|\s|$)/xm 
-      
-      ) do |m|
-        
-        start,atts,cite,content,tend = $~[1..5]
-        atts = pba( atts )
-        atts << " cite=\"#{ cite }\"" if cite
-        
-                "#{ start }{\\#{ ht } #{ content }#{ tend }}"
-        
-      end
-    end
-  end
-  
-  def links( text ) 
-    text.gsub!( /
-     ([\s\[{(]|[#{PUNCT}])?     # $pre
-            "                          # start
-            (#{C})                     # $atts
-            ([^"]+?)                   # $text
-      \s?
-       (?:\(([^)]+?)\)(?="))?     # $title
-            ":
-                        (\S+?)                     # $url
-                         (\/)?                      # $slash
-                          ([^\w\/;]*?)               # $post
-                           (?=\s|$)
-      /x ) do |m|
-        pre,atts,text,title,url,slash,post = $~[1..7]
-
-        url.gsub!(/(\\)(.)/, '\2')
-        url = check_refs( url )
-        
-        atts = pba( atts )
-        atts << " title=\"#{ title }\"" if title
-        atts = shelve( atts ) if atts
-        
-        "#{ pre }\\textit{#{ text }} \\footnote{\\texttt{\\textless #{ url }#{ slash }" + 
-            "\\textgreater}#{ post }}"
-      end
-    end
-    
-    def get_refs( text ) 
-      text.gsub!( /(^|\s)\[(.+?)\]((?:http:\/\/|javascript:|ftp:\/\/|\/)\S+?)(?=\s|$)/ ) do |m|
-        flag, url = $~[1..2]
-        @urlrefs[flag] = url
-      end
-    end
-    
-    def check_refs( text ) 
-      @urlrefs[text] || text
-    end
-    
-    def image( text ) 
-      text.gsub!( /
-                 \!                   # opening
-                  (\<|\=|\>)?          # optional alignment atts
-                   (#{C})               # optional style,class atts
-                    (?:\. )?             # optional dot-space
-                     ([^\s(!]+?)          # presume this is the src
-      \s?                  # optional space
-       (?:\(((?:[^\(\)]|\([^\)]+\))+?)\))?   # optional title
-      \!                   # closing
-       (?::#{ HYPERLINK })? # optional href
-       /x ) do |m|
-        algn,atts,url,title,href,href_a1,href_a2 = $~[1..7]
-        atts = pba( atts )
-        atts << " align=\"#{ i_align( algn ) }\"" if algn
-        atts << " title=\"#{ title }\"" if title
-        atts << " alt=\"#{ title }\"" 
-        # size = @getimagesize($url);
-        # if($size) $atts.= " $size[3]";
-        
-        href = check_refs( href ) if href
-        url = check_refs( url )
-        
-        out = ''
-        out << "<a href=\"#{ href }\">" if href
-        out << "<img src=\"#{ url }\"#{ atts } />"
-        out << "</a>#{ href_a1 }#{ href_a2 }" if href
-        
-        out
-      end
-    end
-    
-    def code( text ) 
-      text.gsub!( /
-       (?:^|([\s\(\[{]))                # 1 open bracket?
-        @                                # opening
-         (?:\|(\w+?)\|)?                  # 2 language
-          (\S(?:[^\n]|\n(?!\n))*?)         # 3 code
-        @                                # closing
-         (?:$|([\]})])|
-          (?=[#{PUNCT}]{1,2}|
-          \s))                             # 4 closing bracket?
-      /x ) do |m|
-        before,lang,code,after = $~[1..4]
-        lang = " language=\"#{ lang }\"" if lang
-            "#{ before }<code#{ lang }>#{ code }</code>#{ after }"
-      end
-    end
-    
-    def shelve( val ) 
-      @shelf << val
-        " <#{ @shelf.length }>"
-    end
-    
-    def retrieve( text ) 
-      @shelf.each_with_index do |r, i|
-        text.gsub!( " <#{ i + 1 }>", r )
-      end
-    end
-    
-    def incoming_entities( text ) 
-      ## 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
-    
-    def encode_entities( text ) 
-      ## Convert high and low ascii to entities.
-      #  if $-K == "UTF-8"  
-      #      encode_high( text )
-      #  else
-      text.texesc!( :NoQuotes )
-      #  end
-    end
-    
-    def fix_entities( text )
-      ## de-entify any remaining angle brackets or ampersands
-      text.gsub!( "\&", "&" )
-      text.gsub!( "\%", "%" )
-    end
-    
-    def clean_white_space( text ) 
-      text.gsub!( /\r\n/, "\n" )
-      text.gsub!( /\t/, '' )
-      text.gsub!( /\n{3,}/, "\n\n" )
-      text.gsub!( /\n *\n/, "\n\n" )
-      text.gsub!( /"$/, "\" " )
-    end
-    
-    def no_textile( text ) 
-      text.gsub!( /(^|\s)==(.*?)==(\s|$)?/,
-            '\1<notextile>\2</notextile>\3' )
-    end
-    
-    def footnote_ref( text ) 
-      text.gsub!( /\[([0-9]+?)\](\s)?/,
-            '\footnote{\1}\2')
-      #'<sup><a href="#fn\1">\1</a></sup>\2' )
-    end
-    
-    def inline( text )
-      image text 
-      links text 
-      code text 
-      span text
-    end
-    
-    def glyphs_deep( text )
-      codepre = 0
-      offtags = /(?:code|pre|kbd|notextile)/
-      if text !~ /<.*>/
-        # pgl text
-        footnote_ref text
-      else
-        used_offtags = {}
-        text.gsub!( /(?:[^<].*?(?=<[^\n]*?>|$)|<[^\n]*?>+)/m ) do |line|
-          tagline = ( line =~ /^<.*>/ )
-          
-          ## matches are off if we're between <code>, <pre> etc.
-          if tagline
-            if line =~ /<(#{ offtags })>/i
-              codepre += 1
-              used_offtags[$1] = true
-              line.texesc!( :NoQuotes ) if codepre - used_offtags.length > 0
-            elsif line =~ /<\/(#{ offtags })>/i
-              line.texesc!( :NoQuotes ) if codepre - used_offtags.length > 0
-              codepre -= 1 unless codepre.zero?
-              used_offtags = {} if codepre.zero?
-            elsif @filter_html or codepre > 0
-              line.texesc!( :NoQuotes )
-              ## line.gsub!( /&lt;(\/?#{ offtags })&gt;/, '<\1>' )
-            end 
-            ## do htmlspecial if between <code>
-          elsif codepre > 0
-            line.texesc!( :NoQuotes )
-            ## line.gsub!( /&lt;(\/?#{ offtags })&gt;/, '<\1>' )
-          elsif not tagline
-            inline line
-            glyphs_deep line
-          end
-          
-          line
-        end
-      end
-    end
-    
-    def glyphs( text ) 
-      text.gsub!( /"\z/, "\" " )
-      ## if no html, do a simple search and replace...
-      if text !~ /<.*>/
-        inline text
-      end
-      glyphs_deep text
-    end
-    
-    def i_align( text )
-      I_ALGN_VALS[text]
-    end
-    
-    def h_align( text ) 
-      H_ALGN_VALS[text]
-    end
-    
-    def v_align( text ) 
-      V_ALGN_VALS[text]
-    end
-    
-    def encode_high( text )
-      ## mb_encode_numericentity($text, $cmap, $charset);
-    end
-    
-    def decode_high( text )
-      ## mb_decode_numericentity($text, $cmap, $charset);
-    end
-    
-    def textile_popup_help( name, helpvar, windowW, windowH )
-        ' <a target="_blank" href="http://www.textpattern.com/help/?item=' + helpvar + '" onclick="window.open(this.href, \'popupwindow\', \'width=' + windowW + ',height=' + windowH + ',scrollbars,resizable\'); return false;">' + name + '</a><br />'
-    end
-    
-    CMAP = [
-    160,  255,  0, 0xffff,
-    402,  402,  0, 0xffff,
-    913,  929,  0, 0xffff,
-    931,  937,  0, 0xffff,
-    945,  969,  0, 0xffff,
-    977,  978,  0, 0xffff, 
-    982,  982,  0, 0xffff,
-    8226, 8226, 0, 0xffff,
-    8230, 8230, 0, 0xffff,
-    8242, 8243, 0, 0xffff,
-    8254, 8254, 0, 0xffff,
-    8260, 8260, 0, 0xffff,
-    8465, 8465, 0, 0xffff,
-    8472, 8472, 0, 0xffff,
-    8476, 8476, 0, 0xffff,
-    8482, 8482, 0, 0xffff,
-    8501, 8501, 0, 0xffff,
-    8592, 8596, 0, 0xffff,
-    8629, 8629, 0, 0xffff,
-    8656, 8660, 0, 0xffff,
-    8704, 8704, 0, 0xffff,
-    8706, 8707, 0, 0xffff,
-    8709, 8709, 0, 0xffff,
-    8711, 8713, 0, 0xffff,
-    8715, 8715, 0, 0xffff,
-    8719, 8719, 0, 0xffff,
-    8721, 8722, 0, 0xffff,
-    8727, 8727, 0, 0xffff,
-    8730, 8730, 0, 0xffff,
-    8733, 8734, 0, 0xffff,
-    8736, 8736, 0, 0xffff,
-    8743, 8747, 0, 0xffff,
-    8756, 8756, 0, 0xffff,
-    8764, 8764, 0, 0xffff,
-    8773, 8773, 0, 0xffff,
-    8776, 8776, 0, 0xffff,
-    8800, 8801, 0, 0xffff,
-    8804, 8805, 0, 0xffff,
-    8834, 8836, 0, 0xffff,
-    8838, 8839, 0, 0xffff,
-    8853, 8853, 0, 0xffff,
-    8855, 8855, 0, 0xffff,
-    8869, 8869, 0, 0xffff,
-    8901, 8901, 0, 0xffff,
-    8968, 8971, 0, 0xffff,
-    9001, 9002, 0, 0xffff,
-    9674, 9674, 0, 0xffff,
-    9824, 9824, 0, 0xffff,
-    9827, 9827, 0, 0xffff,
-    9829, 9830, 0, 0xffff,
-    338,  339,  0, 0xffff,
-    352,  353,  0, 0xffff,
-    376,  376,  0, 0xffff, 
-    710,  710,  0, 0xffff,
-    732,  732,  0, 0xffff,
-    8194, 8195, 0, 0xffff,
-    8201, 8201, 0, 0xffff,
-    8204, 8207, 0, 0xffff,
-    8211, 8212, 0, 0xffff,
-    8216, 8218, 0, 0xffff,
-    8218, 8218, 0, 0xffff,
-    8220, 8222, 0, 0xffff,
-    8224, 8225, 0, 0xffff,
-    8240, 8240, 0, 0xffff,
-    8249, 8250, 0, 0xffff,
-    8364, 8364, 0, 0xffff
-    ]
-  end
+# This is RedCloth (http://www.whytheluckystiff.net/ruby/redcloth/) 
+# converted by David Heinemeier Hansson to emit Tex
+
+class String
+  # Flexible HTML escaping
+  def texesc!( mode )
+    gsub!( '&', '\\\\&' )
+    gsub!( '%', '\%' )
+    gsub!( '$', '\$' )
+    gsub!( '~', '$\sim$' )
+  end
+end
+
+
+def table_of_contents(text, pages)
+  text.gsub( /^([#*]+? .*?)$(?![^#*])/m ) do |match|
+    lines = match.split( /\n/ )
+    last_line = -1
+    depth = []
+    lines.each_with_index do |line, line_id|
+      if line =~ /^([#*]+) (.*)$/m
+        tl,content = $~[1..2]
+        content.gsub! /[\[\]]/, ""
+        content.strip!
+        
+        if depth.last
+          if depth.last.length > tl.length
+           (depth.length - 1).downto(0) do |i|
+              break if depth[i].length == tl.length
+              lines[line_id - 1] << "" # "\n\t\\end{#{ lT( depth[i] ) }}\n\t"
+              depth.pop
+            end
+          end
+          if !depth.last.nil? && !tl.length.nil? && depth.last.length == tl.length
+            lines[line_id - 1] << ''
+          end
+        end
+        
+        depth << tl unless depth.last == tl
+        
+        subsection_depth = [depth.length - 1, 2].min
+        
+        lines[line_id] = "\n\\#{ "sub" * subsection_depth }section{#{ content }}"
+        lines[line_id] += "\n#{pages[content]}" if pages.keys.include?(content)
+        
+        lines[line_id] = "\\pagebreak\n#{lines[line_id]}" if subsection_depth == 0
+        
+        last_line = line_id
+        
+      elsif line =~ /^\s+\S/
+        last_line = line_id
+      elsif line_id - last_line < 2 and line =~ /^\S/
+        last_line = line_id
+      end
+      if line_id - last_line > 1 or line_id == lines.length - 1
+        depth.delete_if do |v|
+          lines[last_line] << "" # "\n\t\\end{#{ lT( v ) }}"
+        end
+      end
+    end
+    lines.join( "\n" )
+  end
+end
+
+class RedClothForTex < String
+  
+  VERSION = '2.0.7'
+  
+  #
+  # 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
+  
+  #
+  # Regular expressions to convert to HTML.
+  #
+  A_HLGN = /(?:(?:<>|<|>|\=|[()]+)+)/
+  A_VLGN = /[\-^~]/
+  C_CLAS = '(?:\([^)]+\))'
+  C_LNGE = '(?:\[[^\]]+\])'
+  C_STYL = '(?:\{[^}]+\})'
+  S_CSPN = '(?:\\\\\d+)'
+  S_RSPN = '(?:/\d+)'
+  A = "(?:#{A_HLGN}?#{A_VLGN}?|#{A_VLGN}?#{A_HLGN}?)"
+  S = "(?:#{S_CSPN}?#{S_RSPN}|#{S_RSPN}?#{S_CSPN}?)"
+  C = "(?:#{C_CLAS}?#{C_STYL}?#{C_LNGE}?|#{C_STYL}?#{C_LNGE}?#{C_CLAS}?|#{C_LNGE}?#{C_STYL}?#{C_CLAS}?)"
+  # PUNCT = Regexp::quote( '!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~' )
+  PUNCT = Regexp::quote( '!"#$%&\'*+,-./:;=?@\\^_`|~' )
+  HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(\s|$)'
+  
+  GLYPHS = [
+  #   [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1&#8217;\2' ], # single closing
+  [ /([^\s\[{(>])\'/, '\1&#8217;' ], # single closing
+  [ /\'(?=\s|s\b|[#{PUNCT}])/, '&#8217;' ], # single closing
+  [ /\'/, '&#8216;' ], # single opening
+  #   [ /([^\s\[{(])?"(\s|:|$)/, '\1&#8221;\2' ], # double closing
+  [ /([^\s\[{(>])"/, '\1&#8221;' ], # double closing
+  [ /"(?=\s|[#{PUNCT}])/, '&#8221;' ], # double closing
+  [ /"/, '&#8220;' ], # double opening
+  [ /\b( )?\.{3}/, '\1&#8230;' ], # ellipsis
+  [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym
+  [ /(^|[^"][>\s])([A-Z][A-Z0-9 ]{2,})([^<a-z0-9]|$)/, '\1<span class="caps">\2</span>\3' ], # 3+ uppercase caps
+  [ /(\.\s)?\s?--\s?/, '\1&#8212;' ], # em dash
+  [ /\s->\s/, ' &rarr; ' ], # en dash
+  [ /\s-\s/, ' &#8211; ' ], # en dash
+  [ /(\d+) ?x ?(\d+)/, '\1&#215;\2' ], # dimension sign
+  [ /\b ?[(\[]TM[\])]/i, '&#8482;' ], # trademark
+  [ /\b ?[(\[]R[\])]/i, '&#174;' ], # registered
+  [ /\b ?[(\[]C[\])]/i, '&#169;' ] # copyright
+  ]
+  
+  I_ALGN_VALS = {
+        '<' => 'left',
+        '=' => 'center',
+        '>' => 'right'
+  }
+  
+  H_ALGN_VALS = {
+        '<' => 'left',
+        '=' => 'center',
+        '>' => 'right',
+        '<>' => 'justify'
+  }
+  
+  V_ALGN_VALS = {
+        '^' => 'top',
+        '-' => 'middle',
+        '~' => 'bottom'
+  }
+  
+  QTAGS = [
+  ['**', 'bf'],
+  ['*', 'bf'],
+  ['??', 'cite'],
+  ['-', 'del'],
+  ['__', 'underline'],
+  ['_', 'em'],
+  ['%', 'span'],
+  ['+', 'ins'],
+  ['^', 'sup'],
+  ['~', 'sub']
+  ]
+  
+  def self.available?
+    if not defined? @@available 
+      begin 
+        @@available = system "pdflatex -version"
+      rescue Errno::ENOENT
+        @@available = false
+      end
+    end
+    @@available
+  end
+  
+  #
+  # Two accessor for setting security restrictions.
+  #
+  # This is a nice thing if you're using RedCloth for
+  # formatting in public places (e.g. Wikis) where you
+  # don't want users to abuse HTML for bad things.
+  #
+  # If +:filter_html+ is set, HTML which wasn't
+  # created by the Textile processor will be escaped.
+  #
+  # If +:filter_styles+ is set, it will also disable
+  # the style markup specifier. ('{color: red}')
+  #
+  attr_accessor :filter_html, :filter_styles
+  
+  #
+  # Accessor for toggling line folding.
+  #
+  # If +:fold_lines+ is set, single newlines will
+  # not be converted to break tags.
+  #
+  attr_accessor :fold_lines
+  
+  def initialize( string, restrictions = [] )
+    restrictions.each { |r| method( "#{ r }=" ).call( true ) }
+    super( string )
+  end
+  
+  #
+  # Generate tex.
+  #
+  def to_tex( lite = false )
+    
+    # make our working copy
+    text = self.dup
+    
+    @urlrefs = {}
+    @shelf = []
+    
+    # incoming_entities text 
+    fix_entities text 
+    clean_white_space text 
+    
+    get_refs text 
+    
+    no_textile text 
+    
+    unless lite
+      lists text
+      table text
+    end
+    
+    glyphs text
+    
+    unless lite
+      fold text
+      block text
+    end
+    
+    retrieve text
+    encode_entities text 
+    
+    text.gsub!(/\[\[(.*?)\]\]/, "\\1")
+    text.gsub!(/_/, "\\_")
+    text.gsub!( /<\/?notextile>/, '' )
+    # text.gsub!( /x%x%/, '&#38;' )
+    # text.gsub!( /<br \/>/, "<br />\n" )
+    text.strip!
+    text
+    
+  end
+  
+  def pgl( text )
+    GLYPHS.each do |re, resub|
+      text.gsub! re, resub
+    end
+  end
+  
+  def pba( text_in, element = "" )
+    
+    return '' unless text_in
+    
+    style = []
+    text = text_in.dup
+    if element == 'td'
+      colspan = $1 if text =~ /\\(\d+)/
+      rowspan = $1 if text =~ /\/(\d+)/
+      style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN
+    end
+    
+    style << "#{ $1 };" if not @filter_styles and
+    text.sub!( /\{([^}]*)\}/, '' )
+    
+    lang = $1 if
+    text.sub!( /\[([^)]+?)\]/, '' )
+    
+    cls = $1 if
+    text.sub!( /\(([^()]+?)\)/, '' )
+    
+    style << "padding-left:#{ $1.length }em;" if
+    text.sub!( /([(]+)/, '' )
+    
+    style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' )
+    
+    style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN
+    
+    cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/
+    
+    atts = ''
+    atts << " style=\"#{ style.join }\"" unless style.empty?
+    atts << " class=\"#{ cls }\"" unless cls.to_s.empty?
+    atts << " lang=\"#{ lang }\"" if lang
+    atts << " id=\"#{ id }\"" if id
+    atts << " colspan=\"#{ colspan }\"" if colspan
+    atts << " rowspan=\"#{ rowspan }\"" if rowspan
+    
+    atts
+  end
+  
+  def table( text ) 
+    text << "\n\n"
+    text.gsub!( /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)\n\n/m ) do |matches|
+      
+      tatts, fullrow = $~[1..2]
+      tatts = pba( tatts, 'table' )
+      rows = []
+      
+      fullrow.
+      split( /\|$/m ).
+      delete_if { |x| x.empty? }.
+      each do |row|
+        
+        ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m
+        
+        cells = []
+        row.split( '|' ).each do |cell|
+          ctyp = 'd'
+          ctyp = 'h' if cell =~ /^_/
+          
+          catts = ''
+          catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. )(.*)/
+          
+          unless cell.strip.empty?
+            cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>" 
+          end
+        end
+        rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"
+      end
+            "\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"
+    end
+  end
+  
+  def lists( text ) 
+    text.gsub!( /^([#*]+?#{C} .*?)$(?![^#*])/m ) do |match|
+      lines = match.split( /\n/ )
+      last_line = -1
+      depth = []
+      lines.each_with_index do |line, line_id|
+        if line =~ /^([#*]+)(#{A}#{C}) (.*)$/m
+          tl,atts,content = $~[1..3]
+          if depth.last
+            if depth.last.length > tl.length
+             (depth.length - 1).downto(0) do |i|
+                break if depth[i].length == tl.length
+                lines[line_id - 1] << "\n\t\\end{#{ lT( depth[i] ) }}\n\t"
+                depth.pop
+              end
+            end
+            if !depth.last.nil? && !tl.length.nil? && depth.last.length == tl.length
+              lines[line_id - 1] << ''
+            end
+          end
+          unless depth.last == tl
+            depth << tl
+            atts = pba( atts )
+            lines[line_id] = "\t\\begin{#{ lT(tl) }}\n\t\\item #{ content }"
+          else
+            lines[line_id] = "\t\t\\item #{ content }"
+          end
+          last_line = line_id
+          
+        elsif line =~ /^\s+\S/
+          last_line = line_id
+        elsif line_id - last_line < 2 and line =~ /^\S/
+          last_line = line_id
+        end
+        if line_id - last_line > 1 or line_id == lines.length - 1
+          depth.delete_if do |v|
+            lines[last_line] << "\n\t\\end{#{ lT( v ) }}"
+          end
+        end
+      end
+      lines.join( "\n" )
+    end
+  end
+  
+  def lT( text ) 
+    text =~ /\#$/ ? 'enumerate' : 'itemize'
+  end
+  
+  def fold( text )
+    text.gsub!( /(.+)\n(?![#*\s|])/, "\\1\\\\\\\\" )
+    # text.gsub!( /(.+)\n(?![#*\s|])/, "\\1#{ @fold_lines ? ' ' : '<br />' }" )
+  end
+  
+  def block( text ) 
+    pre = false
+    find = ['bq','h[1-6]','fn\d+']
+    
+    regexp_cue = []
+    
+    lines = text.split( /\n/ ) + [' '] 
+    new_text = 
+    lines.collect do |line|
+      pre = true if line =~ /<(pre|notextile)>/i
+      find.each do |tag|
+        line.gsub!( /^(#{ tag })(#{A}#{C})\.(?::(\S+))? (.*)$/ ) do |m|
+          tag,atts,cite,content = $~[1..4]
+          
+          atts = pba( atts )
+          
+          if tag =~ /fn(\d+)/
+            # tag = 'p';
+            # atts << " id=\"fn#{ $1 }\""
+            regexp_cue << [ /footnote\{#{$1}}/, "footnote{#{content}}" ]
+            content = ""
+          end
+          
+          if tag =~ /h([1-6])/
+            section_type = "sub" * [$1.to_i - 1, 2].min
+            start = "\t\\#{section_type}section*{"
+            tend = "}"                        
+          end
+          
+          if tag == "bq"
+            cite = check_refs( cite )
+            cite = " cite=\"#{ cite }\"" if cite
+            start = "\t\\begin{quotation}\n\\noindent {\\em ";
+            tend = "}\n\t\\end{quotation}";
+          end
+          
+                    "#{ start }#{ content }#{ tend }"
+        end unless pre
+      end
+      
+      #line.gsub!( /^(?!\t|<\/?pre|<\/?notextile|<\/?code|$| )(.*)/, "\t<p>\\1</p>" )
+      
+      #line.gsub!( "<br />", "\n" ) if pre
+      # pre = false if line =~ /<\/(pre|notextile)>/i
+      
+      line
+      end.join( "\n" )
+      text.replace( new_text )
+      regexp_cue.each { |pair| text.gsub!(pair.first, pair.last) }
+    end
+    
+    def span( text ) 
+      QTAGS.each do |tt, ht|
+        ttr = Regexp::quote( tt )
+        text.gsub!( 
+                   
+                   /(^|\s|\>|[#{PUNCT}{(\[])
+                     #{ttr}
+                      (#{C})
+                       (?::(\S+?))?
+                        ([^\s#{ttr}]+?(?:[^\n]|\n(?!\n))*?)
+                         ([#{PUNCT}]*?)
+                         #{ttr}
+                          (?=[\])}]|[#{PUNCT}]+?|<|\s|$)/xm 
+      
+      ) do |m|
+        
+        start,atts,cite,content,tend = $~[1..5]
+        atts = pba( atts )
+        atts << " cite=\"#{ cite }\"" if cite
+        
+                "#{ start }{\\#{ ht } #{ content }#{ tend }}"
+        
+      end
+    end
+  end
+  
+  def links( text ) 
+    text.gsub!( /
+     ([\s\[{(]|[#{PUNCT}])?     # $pre
+            "                          # start
+            (#{C})                     # $atts
+            ([^"]+?)                   # $text
+      \s?
+       (?:\(([^)]+?)\)(?="))?     # $title
+            ":
+                        (\S+?)                     # $url
+                         (\/)?                      # $slash
+                          ([^\w\/;]*?)               # $post
+                           (?=\s|$)
+      /x ) do |m|
+        pre,atts,text,title,url,slash,post = $~[1..7]
+
+        url.gsub!(/(\\)(.)/, '\2')
+        url = check_refs( url )
+        
+        atts = pba( atts )
+        atts << " title=\"#{ title }\"" if title
+        atts = shelve( atts ) if atts
+        
+        "#{ pre }\\textit{#{ text }} \\footnote{\\texttt{\\textless #{ url }#{ slash }" + 
+            "\\textgreater}#{ post }}"
+      end
+    end
+    
+    def get_refs( text ) 
+      text.gsub!( /(^|\s)\[(.+?)\]((?:http:\/\/|javascript:|ftp:\/\/|\/)\S+?)(?=\s|$)/ ) do |m|
+        flag, url = $~[1..2]
+        @urlrefs[flag] = url
+      end
+    end
+    
+    def check_refs( text ) 
+      @urlrefs[text] || text
+    end
+    
+    def image( text ) 
+      text.gsub!( /
+                 \!                   # opening
+                  (\<|\=|\>)?          # optional alignment atts
+                   (#{C})               # optional style,class atts
+                    (?:\. )?             # optional dot-space
+                     ([^\s(!]+?)          # presume this is the src
+      \s?                  # optional space
+       (?:\(((?:[^\(\)]|\([^\)]+\))+?)\))?   # optional title
+      \!                   # closing
+       (?::#{ HYPERLINK })? # optional href
+       /x ) do |m|
+        algn,atts,url,title,href,href_a1,href_a2 = $~[1..7]
+        atts = pba( atts )
+        atts << " align=\"#{ i_align( algn ) }\"" if algn
+        atts << " title=\"#{ title }\"" if title
+        atts << " alt=\"#{ title }\"" 
+        # size = @getimagesize($url);
+        # if($size) $atts.= " $size[3]";
+        
+        href = check_refs( href ) if href
+        url = check_refs( url )
+        
+        out = ''
+        out << "<a href=\"#{ href }\">" if href
+        out << "<img src=\"#{ url }\"#{ atts } />"
+        out << "</a>#{ href_a1 }#{ href_a2 }" if href
+        
+        out
+      end
+    end
+    
+    def code( text ) 
+      text.gsub!( /
+       (?:^|([\s\(\[{]))                # 1 open bracket?
+        @                                # opening
+         (?:\|(\w+?)\|)?                  # 2 language
+          (\S(?:[^\n]|\n(?!\n))*?)         # 3 code
+        @                                # closing
+         (?:$|([\]})])|
+          (?=[#{PUNCT}]{1,2}|
+          \s))                             # 4 closing bracket?
+      /x ) do |m|
+        before,lang,code,after = $~[1..4]
+        lang = " language=\"#{ lang }\"" if lang
+            "#{ before }<code#{ lang }>#{ code }</code>#{ after }"
+      end
+    end
+    
+    def shelve( val ) 
+      @shelf << val
+        " <#{ @shelf.length }>"
+    end
+    
+    def retrieve( text ) 
+      @shelf.each_with_index do |r, i|
+        text.gsub!( " <#{ i + 1 }>", r )
+      end
+    end
+    
+    def incoming_entities( text ) 
+      ## 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
+    
+    def encode_entities( text ) 
+      ## Convert high and low ascii to entities.
+      #  if $-K == "UTF-8"  
+      #      encode_high( text )
+      #  else
+      text.texesc!( :NoQuotes )
+      #  end
+    end
+    
+    def fix_entities( text )
+      ## de-entify any remaining angle brackets or ampersands
+      text.gsub!( "\&", "&" )
+      text.gsub!( "\%", "%" )
+    end
+    
+    def clean_white_space( text ) 
+      text.gsub!( /\r\n/, "\n" )
+      text.gsub!( /\t/, '' )
+      text.gsub!( /\n{3,}/, "\n\n" )
+      text.gsub!( /\n *\n/, "\n\n" )
+      text.gsub!( /"$/, "\" " )
+    end
+    
+    def no_textile( text ) 
+      text.gsub!( /(^|\s)==(.*?)==(\s|$)?/,
+            '\1<notextile>\2</notextile>\3' )
+    end
+    
+    def footnote_ref( text ) 
+      text.gsub!( /\[([0-9]+?)\](\s)?/,
+            '\footnote{\1}\2')
+      #'<sup><a href="#fn\1">\1</a></sup>\2' )
+    end
+    
+    def inline( text )
+      image text 
+      links text 
+      code text 
+      span text
+    end
+    
+    def glyphs_deep( text )
+      codepre = 0
+      offtags = /(?:code|pre|kbd|notextile)/
+      if text !~ /<.*>/
+        # pgl text
+        footnote_ref text
+      else
+        used_offtags = {}
+        text.gsub!( /(?:[^<].*?(?=<[^\n]*?>|$)|<[^\n]*?>+)/m ) do |line|
+          tagline = ( line =~ /^<.*>/ )
+          
+          ## matches are off if we're between <code>, <pre> etc.
+          if tagline
+            if line =~ /<(#{ offtags })>/i
+              codepre += 1
+              used_offtags[$1] = true
+              line.texesc!( :NoQuotes ) if codepre - used_offtags.length > 0
+            elsif line =~ /<\/(#{ offtags })>/i
+              line.texesc!( :NoQuotes ) if codepre - used_offtags.length > 0
+              codepre -= 1 unless codepre.zero?
+              used_offtags = {} if codepre.zero?
+            elsif @filter_html or codepre > 0
+              line.texesc!( :NoQuotes )
+              ## line.gsub!( /&lt;(\/?#{ offtags })&gt;/, '<\1>' )
+            end 
+            ## do htmlspecial if between <code>
+          elsif codepre > 0
+            line.texesc!( :NoQuotes )
+            ## line.gsub!( /&lt;(\/?#{ offtags })&gt;/, '<\1>' )
+          elsif not tagline
+            inline line
+            glyphs_deep line
+          end
+          
+          line
+        end
+      end
+    end
+    
+    def glyphs( text ) 
+      text.gsub!( /"\z/, "\" " )
+      ## if no html, do a simple search and replace...
+      if text !~ /<.*>/
+        inline text
+      end
+      glyphs_deep text
+    end
+    
+    def i_align( text )
+      I_ALGN_VALS[text]
+    end
+    
+    def h_align( text ) 
+      H_ALGN_VALS[text]
+    end
+    
+    def v_align( text ) 
+      V_ALGN_VALS[text]
+    end
+    
+    def encode_high( text )
+      ## mb_encode_numericentity($text, $cmap, $charset);
+    end
+    
+    def decode_high( text )
+      ## mb_decode_numericentity($text, $cmap, $charset);
+    end
+    
+    def textile_popup_help( name, helpvar, windowW, windowH )
+        ' <a target="_blank" href="http://www.textpattern.com/help/?item=' + helpvar + '" onclick="window.open(this.href, \'popupwindow\', \'width=' + windowW + ',height=' + windowH + ',scrollbars,resizable\'); return false;">' + name + '</a><br />'
+    end
+    
+    CMAP = [
+    160,  255,  0, 0xffff,
+    402,  402,  0, 0xffff,
+    913,  929,  0, 0xffff,
+    931,  937,  0, 0xffff,
+    945,  969,  0, 0xffff,
+    977,  978,  0, 0xffff, 
+    982,  982,  0, 0xffff,
+    8226, 8226, 0, 0xffff,
+    8230, 8230, 0, 0xffff,
+    8242, 8243, 0, 0xffff,
+    8254, 8254, 0, 0xffff,
+    8260, 8260, 0, 0xffff,
+    8465, 8465, 0, 0xffff,
+    8472, 8472, 0, 0xffff,
+    8476, 8476, 0, 0xffff,
+    8482, 8482, 0, 0xffff,
+    8501, 8501, 0, 0xffff,
+    8592, 8596, 0, 0xffff,
+    8629, 8629, 0, 0xffff,
+    8656, 8660, 0, 0xffff,
+    8704, 8704, 0, 0xffff,
+    8706, 8707, 0, 0xffff,
+    8709, 8709, 0, 0xffff,
+    8711, 8713, 0, 0xffff,
+    8715, 8715, 0, 0xffff,
+    8719, 8719, 0, 0xffff,
+    8721, 8722, 0, 0xffff,
+    8727, 8727, 0, 0xffff,
+    8730, 8730, 0, 0xffff,
+    8733, 8734, 0, 0xffff,
+    8736, 8736, 0, 0xffff,
+    8743, 8747, 0, 0xffff,
+    8756, 8756, 0, 0xffff,
+    8764, 8764, 0, 0xffff,
+    8773, 8773, 0, 0xffff,
+    8776, 8776, 0, 0xffff,
+    8800, 8801, 0, 0xffff,
+    8804, 8805, 0, 0xffff,
+    8834, 8836, 0, 0xffff,
+    8838, 8839, 0, 0xffff,
+    8853, 8853, 0, 0xffff,
+    8855, 8855, 0, 0xffff,
+    8869, 8869, 0, 0xffff,
+    8901, 8901, 0, 0xffff,
+    8968, 8971, 0, 0xffff,
+    9001, 9002, 0, 0xffff,
+    9674, 9674, 0, 0xffff,
+    9824, 9824, 0, 0xffff,
+    9827, 9827, 0, 0xffff,
+    9829, 9830, 0, 0xffff,
+    338,  339,  0, 0xffff,
+    352,  353,  0, 0xffff,
+    376,  376,  0, 0xffff, 
+    710,  710,  0, 0xffff,
+    732,  732,  0, 0xffff,
+    8194, 8195, 0, 0xffff,
+    8201, 8201, 0, 0xffff,
+    8204, 8207, 0, 0xffff,
+    8211, 8212, 0, 0xffff,
+    8216, 8218, 0, 0xffff,
+    8218, 8218, 0, 0xffff,
+    8220, 8222, 0, 0xffff,
+    8224, 8225, 0, 0xffff,
+    8240, 8240, 0, 0xffff,
+    8249, 8250, 0, 0xffff,
+    8364, 8364, 0, 0xffff
+    ]
+  end