737 lines
21 KiB
Ruby
737 lines
21 KiB
Ruby
|
# 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’\2' ], # single closing
|
||
|
|
[ /([^\s\[{(>])\'/, '\1’' ], # single closing
|
||
|
|
[ /\'(?=\s|s\b|[#{PUNCT}])/, '’' ], # single closing
|
||
|
|
[ /\'/, '‘' ], # single opening
|
||
|
|
# [ /([^\s\[{(])?"(\s|:|$)/, '\1”\2' ], # double closing
|
||
|
|
[ /([^\s\[{(>])"/, '\1”' ], # double closing
|
||
|
|
[ /"(?=\s|[#{PUNCT}])/, '”' ], # double closing
|
||
|
|
[ /"/, '“' ], # double opening
|
||
|
|
[ /\b( )?\.{3}/, '\1…' ], # 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—' ], # em dash
|
||
|
|
[ /\s->\s/, ' → ' ], # en dash
|
||
|
|
[ /\s-\s/, ' – ' ], # en dash
|
||
|
|
[ /(\d+) ?x ?(\d+)/, '\1×\2' ], # dimension sign
|
||
|
|
[ /\b ?[(\[]TM[\])]/i, '™' ], # trademark
|
||
|
|
[ /\b ?[(\[]R[\])]/i, '®' ], # registered
|
||
|
|
[ /\b ?[(\[]C[\])]/i, '©' ] # 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%/, '&' )
|
||
|
|
# 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!( /<(\/?#{ offtags })>/, '<\1>' )
|
||
|
|
end
|
||
|
|
## do htmlspecial if between <code>
|
||
|
|
elsif codepre > 0
|
||
|
|
line.texesc!( :NoQuotes )
|
||
|
|
## line.gsub!( /<(\/?#{ offtags })>/, '<\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
|