##// END OF EJS Templates
jro_apps » redmine
RSS
Do not html escape code that is going to be highlighted (#2985, #3359)....
Jean-Philippe Lang -
r3468:7621463acb1c
parent child
Show More
Side by Side Unified
Context file:
r3468:7621463acb1c Loading diff...:
Show file before | Show file after | Hide comments
@@ -1,1187 +1,1191
1 1 # vim:ts=4:sw=4:
2 2 # = RedCloth - Textile and Markdown Hybrid for Ruby
3 3 #
4 4 # Homepage:: http://whytheluckystiff.net/ruby/redcloth/
5 5 # Author:: why the lucky stiff (http://whytheluckystiff.net/)
6 6 # Copyright:: (cc) 2004 why the lucky stiff (and his puppet organizations.)
7 7 # License:: BSD
8 8 #
9 9 # (see http://hobix.com/textile/ for a Textile Reference.)
10 10 #
11 11 # Based on (and also inspired by) both:
12 12 #
13 13 # PyTextile: http://diveintomark.org/projects/textile/textile.py.txt
14 14 # Textism for PHP: http://www.textism.com/tools/textile/
15 15 #
16 16 #
17 17
18 18 # = RedCloth
19 19 #
20 20 # RedCloth is a Ruby library for converting Textile and/or Markdown
21 21 # into HTML. You can use either format, intermingled or separately.
22 22 # You can also extend RedCloth to honor your own custom text stylings.
23 23 #
24 24 # RedCloth users are encouraged to use Textile if they are generating
25 25 # HTML and to use Markdown if others will be viewing the plain text.
26 26 #
27 27 # == What is Textile?
28 28 #
29 29 # Textile is a simple formatting style for text
30 30 # documents, loosely based on some HTML conventions.
31 31 #
32 32 # == Sample Textile Text
33 33 #
34 34 # h2. This is a title
35 35 #
36 36 # h3. This is a subhead
37 37 #
38 38 # This is a bit of paragraph.
39 39 #
40 40 # bq. This is a blockquote.
41 41 #
42 42 # = Writing Textile
43 43 #
44 44 # A Textile document consists of paragraphs. Paragraphs
45 45 # can be specially formatted by adding a small instruction
46 46 # to the beginning of the paragraph.
47 47 #
48 48 # h[n]. Header of size [n].
49 49 # bq. Blockquote.
50 50 # # Numeric list.
51 51 # * Bulleted list.
52 52 #
53 53 # == Quick Phrase Modifiers
54 54 #
55 55 # Quick phrase modifiers are also included, to allow formatting
56 56 # of small portions of text within a paragraph.
57 57 #
58 58 # \_emphasis\_
59 59 # \_\_italicized\_\_
60 60 # \*strong\*
61 61 # \*\*bold\*\*
62 62 # ??citation??
63 63 # -deleted text-
64 64 # +inserted text+
65 65 # ^superscript^
66 66 # ~subscript~
67 67 # @code@
68 68 # %(classname)span%
69 69 #
70 70 # ==notextile== (leave text alone)
71 71 #
72 72 # == Links
73 73 #
74 74 # To make a hypertext link, put the link text in "quotation
75 75 # marks" followed immediately by a colon and the URL of the link.
76 76 #
77 77 # Optional: text in (parentheses) following the link text,
78 78 # but before the closing quotation mark, will become a Title
79 79 # attribute for the link, visible as a tool tip when a cursor is above it.
80 80 #
81 81 # Example:
82 82 #
83 83 # "This is a link (This is a title) ":http://www.textism.com
84 84 #
85 85 # Will become:
86 86 #
87 87 # <a href="http://www.textism.com" title="This is a title">This is a link</a>
88 88 #
89 89 # == Images
90 90 #
91 91 # To insert an image, put the URL for the image inside exclamation marks.
92 92 #
93 93 # Optional: text that immediately follows the URL in (parentheses) will
94 94 # be used as the Alt text for the image. Images on the web should always
95 95 # have descriptive Alt text for the benefit of readers using non-graphical
96 96 # browsers.
97 97 #
98 98 # Optional: place a colon followed by a URL immediately after the
99 99 # closing ! to make the image into a link.
100 100 #
101 101 # Example:
102 102 #
103 103 # !http://www.textism.com/common/textist.gif(Textist)!
104 104 #
105 105 # Will become:
106 106 #
107 107 # <img src="http://www.textism.com/common/textist.gif" alt="Textist" />
108 108 #
109 109 # With a link:
110 110 #
111 111 # !/common/textist.gif(Textist)!:http://textism.com
112 112 #
113 113 # Will become:
114 114 #
115 115 # <a href="http://textism.com"><img src="/common/textist.gif" alt="Textist" /></a>
116 116 #
117 117 # == Defining Acronyms
118 118 #
119 119 # HTML allows authors to define acronyms via the tag. The definition appears as a
120 120 # tool tip when a cursor hovers over the acronym. A crucial aid to clear writing,
121 121 # this should be used at least once for each acronym in documents where they appear.
122 122 #
123 123 # To quickly define an acronym in Textile, place the full text in (parentheses)
124 124 # immediately following the acronym.
125 125 #
126 126 # Example:
127 127 #
128 128 # ACLU(American Civil Liberties Union)
129 129 #
130 130 # Will become:
131 131 #
132 132 # <acronym title="American Civil Liberties Union">ACLU</acronym>
133 133 #
134 134 # == Adding Tables
135 135 #
136 136 # In Textile, simple tables can be added by seperating each column by
137 137 # a pipe.
138 138 #
139 139 # |a|simple|table|row|
140 140 # |And|Another|table|row|
141 141 #
142 142 # Attributes are defined by style definitions in parentheses.
143 143 #
144 144 # table(border:1px solid black).
145 145 # (background:#ddd;color:red). |{}| | | |
146 146 #
147 147 # == Using RedCloth
148 148 #
149 149 # RedCloth is simply an extension of the String class, which can handle
150 150 # Textile formatting. Use it like a String and output HTML with its
151 151 # RedCloth#to_html method.
152 152 #
153 153 # doc = RedCloth.new "
154 154 #
155 155 # h2. Test document
156 156 #
157 157 # Just a simple test."
158 158 #
159 159 # puts doc.to_html
160 160 #
161 161 # By default, RedCloth uses both Textile and Markdown formatting, with
162 162 # Textile formatting taking precedence. If you want to turn off Markdown
163 163 # formatting, to boost speed and limit the processor:
164 164 #
165 165 # class RedCloth::Textile.new( str )
166 166
167 167 class RedCloth3 < String
168 168
169 169 VERSION = '3.0.4'
170 170 DEFAULT_RULES = [:textile, :markdown]
171 171
172 172 #
173 173 # Two accessor for setting security restrictions.
174 174 #
175 175 # This is a nice thing if you're using RedCloth for
176 176 # formatting in public places (e.g. Wikis) where you
177 177 # don't want users to abuse HTML for bad things.
178 178 #
179 179 # If +:filter_html+ is set, HTML which wasn't
180 180 # created by the Textile processor will be escaped.
181 181 #
182 182 # If +:filter_styles+ is set, it will also disable
183 183 # the style markup specifier. ('{color: red}')
184 184 #
185 185 attr_accessor :filter_html, :filter_styles
186 186
187 187 #
188 188 # Accessor for toggling hard breaks.
189 189 #
190 190 # If +:hard_breaks+ is set, single newlines will
191 191 # be converted to HTML break tags. This is the
192 192 # default behavior for traditional RedCloth.
193 193 #
194 194 attr_accessor :hard_breaks
195 195
196 196 # Accessor for toggling lite mode.
197 197 #
198 198 # In lite mode, block-level rules are ignored. This means
199 199 # that tables, paragraphs, lists, and such aren't available.
200 200 # Only the inline markup for bold, italics, entities and so on.
201 201 #
202 202 # r = RedCloth.new( "And then? She *fell*!", [:lite_mode] )
203 203 # r.to_html
204 204 # #=> "And then? She <strong>fell</strong>!"
205 205 #
206 206 attr_accessor :lite_mode
207 207
208 208 #
209 209 # Accessor for toggling span caps.
210 210 #
211 211 # Textile places `span' tags around capitalized
212 212 # words by default, but this wreaks havoc on Wikis.
213 213 # If +:no_span_caps+ is set, this will be
214 214 # suppressed.
215 215 #
216 216 attr_accessor :no_span_caps
217 217
218 218 #
219 219 # Establishes the markup predence. Available rules include:
220 220 #
221 221 # == Textile Rules
222 222 #
223 223 # The following textile rules can be set individually. Or add the complete
224 224 # set of rules with the single :textile rule, which supplies the rule set in
225 225 # the following precedence:
226 226 #
227 227 # refs_textile:: Textile references (i.e. [hobix]http://hobix.com/)
228 228 # block_textile_table:: Textile table block structures
229 229 # block_textile_lists:: Textile list structures
230 230 # block_textile_prefix:: Textile blocks with prefixes (i.e. bq., h2., etc.)
231 231 # inline_textile_image:: Textile inline images
232 232 # inline_textile_link:: Textile inline links
233 233 # inline_textile_span:: Textile inline spans
234 234 # glyphs_textile:: Textile entities (such as em-dashes and smart quotes)
235 235 #
236 236 # == Markdown
237 237 #
238 238 # refs_markdown:: Markdown references (for example: [hobix]: http://hobix.com/)
239 239 # block_markdown_setext:: Markdown setext headers
240 240 # block_markdown_atx:: Markdown atx headers
241 241 # block_markdown_rule:: Markdown horizontal rules
242 242 # block_markdown_bq:: Markdown blockquotes
243 243 # block_markdown_lists:: Markdown lists
244 244 # inline_markdown_link:: Markdown links
245 245 attr_accessor :rules
246 246
247 247 # Returns a new RedCloth object, based on _string_ and
248 248 # enforcing all the included _restrictions_.
249 249 #
250 250 # r = RedCloth.new( "h1. A <b>bold</b> man", [:filter_html] )
251 251 # r.to_html
252 252 # #=>"<h1>A &lt;b&gt;bold&lt;/b&gt; man</h1>"
253 253 #
254 254 def initialize( string, restrictions = [] )
255 255 restrictions.each { |r| method( "#{ r }=" ).call( true ) }
256 256 super( string )
257 257 end
258 258
259 259 #
260 260 # Generates HTML from the Textile contents.
261 261 #
262 262 # r = RedCloth.new( "And then? She *fell*!" )
263 263 # r.to_html( true )
264 264 # #=>"And then? She <strong>fell</strong>!"
265 265 #
266 266 def to_html( *rules )
267 267 rules = DEFAULT_RULES if rules.empty?
268 268 # make our working copy
269 269 text = self.dup
270 270
271 271 @urlrefs = {}
272 272 @shelf = []
273 273 textile_rules = [:block_textile_table, :block_textile_lists,
274 274 :block_textile_prefix, :inline_textile_image, :inline_textile_link,
275 275 :inline_textile_code, :inline_textile_span, :glyphs_textile]
276 276 markdown_rules = [:refs_markdown, :block_markdown_setext, :block_markdown_atx, :block_markdown_rule,
277 277 :block_markdown_bq, :block_markdown_lists,
278 278 :inline_markdown_reflink, :inline_markdown_link]
279 279 @rules = rules.collect do |rule|
280 280 case rule
281 281 when :markdown
282 282 markdown_rules
283 283 when :textile
284 284 textile_rules
285 285 else
286 286 rule
287 287 end
288 288 end.flatten
289 289
290 290 # standard clean up
291 291 incoming_entities text
292 292 clean_white_space text
293 293
294 294 # start processor
295 295 @pre_list = []
296 296 rip_offtags text
297 297 no_textile text
298 298 escape_html_tags text
299 299 hard_break text
300 300 unless @lite_mode
301 301 refs text
302 302 # need to do this before text is split by #blocks
303 303 block_textile_quotes text
304 304 blocks text
305 305 end
306 306 inline text
307 307 smooth_offtags text
308 308
309 309 retrieve text
310 310
311 311 text.gsub!( /<\/?notextile>/, '' )
312 312 text.gsub!( /x%x%/, '&#38;' )
313 313 clean_html text if filter_html
314 314 text.strip!
315 315 text
316 316
317 317 end
318 318
319 319 #######
320 320 private
321 321 #######
322 322 #
323 323 # Mapping of 8-bit ASCII codes to HTML numerical entity equivalents.
324 324 # (from PyTextile)
325 325 #
326 326 TEXTILE_TAGS =
327 327
328 328 [[128, 8364], [129, 0], [130, 8218], [131, 402], [132, 8222], [133, 8230],
329 329 [134, 8224], [135, 8225], [136, 710], [137, 8240], [138, 352], [139, 8249],
330 330 [140, 338], [141, 0], [142, 0], [143, 0], [144, 0], [145, 8216], [146, 8217],
331 331 [147, 8220], [148, 8221], [149, 8226], [150, 8211], [151, 8212], [152, 732],
332 332 [153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]].
333 333
334 334 collect! do |a, b|
335 335 [a.chr, ( b.zero? and "" or "&#{ b };" )]
336 336 end
337 337
338 338 #
339 339 # Regular expressions to convert to HTML.
340 340 #
341 341 A_HLGN = /(?:(?:<>|<|>|\=|[()]+)+)/
342 342 A_VLGN = /[\-^~]/
343 343 C_CLAS = '(?:\([^)]+\))'
344 344 C_LNGE = '(?:\[[^\[\]]+\])'
345 345 C_STYL = '(?:\{[^}]+\})'
346 346 S_CSPN = '(?:\\\\\d+)'
347 347 S_RSPN = '(?:/\d+)'
348 348 A = "(?:#{A_HLGN}?#{A_VLGN}?|#{A_VLGN}?#{A_HLGN}?)"
349 349 S = "(?:#{S_CSPN}?#{S_RSPN}|#{S_RSPN}?#{S_CSPN}?)"
350 350 C = "(?:#{C_CLAS}?#{C_STYL}?#{C_LNGE}?|#{C_STYL}?#{C_LNGE}?#{C_CLAS}?|#{C_LNGE}?#{C_STYL}?#{C_CLAS}?)"
351 351 # PUNCT = Regexp::quote( '!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~' )
352 352 PUNCT = Regexp::quote( '!"#$%&\'*+,-./:;=?@\\^_`|~' )
353 353 PUNCT_NOQ = Regexp::quote( '!"#$&\',./:;=?@\\`|' )
354 354 PUNCT_Q = Regexp::quote( '*-_+^~%' )
355 355 HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(?=\s|<|$)'
356 356
357 357 # Text markup tags, don't conflict with block tags
358 358 SIMPLE_HTML_TAGS = [
359 359 'tt', 'b', 'i', 'big', 'small', 'em', 'strong', 'dfn', 'code',
360 360 'samp', 'kbd', 'var', 'cite', 'abbr', 'acronym', 'a', 'img', 'br',
361 361 'br', 'map', 'q', 'sub', 'sup', 'span', 'bdo'
362 362 ]
363 363
364 364 QTAGS = [
365 365 ['**', 'b', :limit],
366 366 ['*', 'strong', :limit],
367 367 ['??', 'cite', :limit],
368 368 ['-', 'del', :limit],
369 369 ['__', 'i', :limit],
370 370 ['_', 'em', :limit],
371 371 ['%', 'span', :limit],
372 372 ['+', 'ins', :limit],
373 373 ['^', 'sup', :limit],
374 374 ['~', 'sub', :limit]
375 375 ]
376 376 QTAGS_JOIN = QTAGS.map {|rc, ht, rtype| Regexp::quote rc}.join('|')
377 377
378 378 QTAGS.collect! do |rc, ht, rtype|
379 379 rcq = Regexp::quote rc
380 380 re =
381 381 case rtype
382 382 when :limit
383 383 /(^|[>\s\(]) # sta
384 384 (#{QTAGS_JOIN}|) # oqs
385 385 (#{rcq}) # qtag
386 386 (\w|[^\s].*?[^\s]) # content
387 387 #{rcq}
388 388 (#{QTAGS_JOIN}|) # oqa
389 389 (?=[[:punct:]]|\s|\)|$)/x
390 390 else
391 391 /(#{rcq})
392 392 (#{C})
393 393 (?::(\S+))?
394 394 (\w|[^\s\-].*?[^\s\-])
395 395 #{rcq}/xm
396 396 end
397 397 [rc, ht, re, rtype]
398 398 end
399 399
400 400 # Elements to handle
401 401 GLYPHS = [
402 402 # [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1&#8217;\2' ], # single closing
403 403 # [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)\'/, '\1&#8217;' ], # single closing
404 404 # [ /\'(?=[#{PUNCT_Q}]*(s\b|[\s#{PUNCT_NOQ}]))/, '&#8217;' ], # single closing
405 405 # [ /\'/, '&#8216;' ], # single opening
406 406 # [ /</, '&lt;' ], # less-than
407 407 # [ />/, '&gt;' ], # greater-than
408 408 # [ /([^\s\[{(])?"(\s|:|$)/, '\1&#8221;\2' ], # double closing
409 409 # [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/, '\1&#8221;' ], # double closing
410 410 # [ /"(?=[#{PUNCT_Q}]*[\s#{PUNCT_NOQ}])/, '&#8221;' ], # double closing
411 411 # [ /"/, '&#8220;' ], # double opening
412 412 # [ /\b( )?\.{3}/, '\1&#8230;' ], # ellipsis
413 413 # [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym
414 414 # [ /(^|[^"][>\s])([A-Z][A-Z0-9 ]+[A-Z0-9])([^<A-Za-z0-9]|$)/, '\1<span class="caps">\2</span>\3', :no_span_caps ], # 3+ uppercase caps
415 415 # [ /(\.\s)?\s?--\s?/, '\1&#8212;' ], # em dash
416 416 # [ /\s->\s/, ' &rarr; ' ], # right arrow
417 417 # [ /\s-\s/, ' &#8211; ' ], # en dash
418 418 # [ /(\d+) ?x ?(\d+)/, '\1&#215;\2' ], # dimension sign
419 419 # [ /\b ?[(\[]TM[\])]/i, '&#8482;' ], # trademark
420 420 # [ /\b ?[(\[]R[\])]/i, '&#174;' ], # registered
421 421 # [ /\b ?[(\[]C[\])]/i, '&#169;' ] # copyright
422 422 ]
423 423
424 424 H_ALGN_VALS = {
425 425 '<' => 'left',
426 426 '=' => 'center',
427 427 '>' => 'right',
428 428 '<>' => 'justify'
429 429 }
430 430
431 431 V_ALGN_VALS = {
432 432 '^' => 'top',
433 433 '-' => 'middle',
434 434 '~' => 'bottom'
435 435 }
436 436
437 437 #
438 438 # Flexible HTML escaping
439 439 #
440 440 def htmlesc( str, mode=:Quotes )
441 441 if str
442 442 str.gsub!( '&', '&amp;' )
443 443 str.gsub!( '"', '&quot;' ) if mode != :NoQuotes
444 444 str.gsub!( "'", '&#039;' ) if mode == :Quotes
445 445 str.gsub!( '<', '&lt;')
446 446 str.gsub!( '>', '&gt;')
447 447 end
448 448 str
449 449 end
450 450
451 451 # Search and replace for Textile glyphs (quotes, dashes, other symbols)
452 452 def pgl( text )
453 453 #GLYPHS.each do |re, resub, tog|
454 454 # next if tog and method( tog ).call
455 455 # text.gsub! re, resub
456 456 #end
457 457 text.gsub!(/\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/) do |m|
458 458 "<acronym title=\"#{htmlesc $2}\">#{$1}</acronym>"
459 459 end
460 460 end
461 461
462 462 # Parses Textile attribute lists and builds an HTML attribute string
463 463 def pba( text_in, element = "" )
464 464
465 465 return '' unless text_in
466 466
467 467 style = []
468 468 text = text_in.dup
469 469 if element == 'td'
470 470 colspan = $1 if text =~ /\\(\d+)/
471 471 rowspan = $1 if text =~ /\/(\d+)/
472 472 style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN
473 473 end
474 474
475 475 style << "#{ htmlesc $1 };" if text.sub!( /\{([^}]*)\}/, '' ) && !filter_styles
476 476
477 477 lang = $1 if
478 478 text.sub!( /\[([^)]+?)\]/, '' )
479 479
480 480 cls = $1 if
481 481 text.sub!( /\(([^()]+?)\)/, '' )
482 482
483 483 style << "padding-left:#{ $1.length }em;" if
484 484 text.sub!( /([(]+)/, '' )
485 485
486 486 style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' )
487 487
488 488 style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN
489 489
490 490 cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/
491 491
492 492 atts = ''
493 493 atts << " style=\"#{ style.join }\"" unless style.empty?
494 494 atts << " class=\"#{ cls }\"" unless cls.to_s.empty?
495 495 atts << " lang=\"#{ lang }\"" if lang
496 496 atts << " id=\"#{ id }\"" if id
497 497 atts << " colspan=\"#{ colspan }\"" if colspan
498 498 atts << " rowspan=\"#{ rowspan }\"" if rowspan
499 499
500 500 atts
501 501 end
502 502
503 503 TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m
504 504
505 505 # Parses a Textile table block, building HTML from the result.
506 506 def block_textile_table( text )
507 507 text.gsub!( TABLE_RE ) do |matches|
508 508
509 509 tatts, fullrow = $~[1..2]
510 510 tatts = pba( tatts, 'table' )
511 511 tatts = shelve( tatts ) if tatts
512 512 rows = []
513 513
514 514 fullrow.each_line do |row|
515 515 ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m
516 516 cells = []
517 517 row.split( /(\|)(?![^\[\|]*\]\])/ )[1..-2].each do |cell|
518 518 next if cell == '|'
519 519 ctyp = 'd'
520 520 ctyp = 'h' if cell =~ /^_/
521 521
522 522 catts = ''
523 523 catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/
524 524
525 525 catts = shelve( catts ) if catts
526 526 cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>"
527 527 end
528 528 ratts = shelve( ratts ) if ratts
529 529 rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"
530 530 end
531 531 "\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"
532 532 end
533 533 end
534 534
535 535 LISTS_RE = /^([#*]+?#{C} .*?)$(?![^#*])/m
536 536 LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m
537 537
538 538 # Parses Textile lists and generates HTML
539 539 def block_textile_lists( text )
540 540 text.gsub!( LISTS_RE ) do |match|
541 541 lines = match.split( /\n/ )
542 542 last_line = -1
543 543 depth = []
544 544 lines.each_with_index do |line, line_id|
545 545 if line =~ LISTS_CONTENT_RE
546 546 tl,atts,content = $~[1..3]
547 547 if depth.last
548 548 if depth.last.length > tl.length
549 549 (depth.length - 1).downto(0) do |i|
550 550 break if depth[i].length == tl.length
551 551 lines[line_id - 1] << "</li>\n\t</#{ lT( depth[i] ) }l>\n\t"
552 552 depth.pop
553 553 end
554 554 end
555 555 if depth.last and depth.last.length == tl.length
556 556 lines[line_id - 1] << '</li>'
557 557 end
558 558 end
559 559 unless depth.last == tl
560 560 depth << tl
561 561 atts = pba( atts )
562 562 atts = shelve( atts ) if atts
563 563 lines[line_id] = "\t<#{ lT(tl) }l#{ atts }>\n\t<li>#{ content }"
564 564 else
565 565 lines[line_id] = "\t\t<li>#{ content }"
566 566 end
567 567 last_line = line_id
568 568
569 569 else
570 570 last_line = line_id
571 571 end
572 572 if line_id - last_line > 1 or line_id == lines.length - 1
573 573 depth.delete_if do |v|
574 574 lines[last_line] << "</li>\n\t</#{ lT( v ) }l>"
575 575 end
576 576 end
577 577 end
578 578 lines.join( "\n" )
579 579 end
580 580 end
581 581
582 582 QUOTES_RE = /(^>+([^\n]*?)(\n|$))+/m
583 583 QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m
584 584
585 585 def block_textile_quotes( text )
586 586 text.gsub!( QUOTES_RE ) do |match|
587 587 lines = match.split( /\n/ )
588 588 quotes = ''
589 589 indent = 0
590 590 lines.each do |line|
591 591 line =~ QUOTES_CONTENT_RE
592 592 bq,content = $1, $2
593 593 l = bq.count('>')
594 594 if l != indent
595 595 quotes << ("\n\n" + (l>indent ? '<blockquote>' * (l-indent) : '</blockquote>' * (indent-l)) + "\n\n")
596 596 indent = l
597 597 end
598 598 quotes << (content + "\n")
599 599 end
600 600 quotes << ("\n" + '</blockquote>' * indent + "\n\n")
601 601 quotes
602 602 end
603 603 end
604 604
605 605 CODE_RE = /(\W)
606 606 @
607 607 (?:\|(\w+?)\|)?
608 608 (.+?)
609 609 @
610 610 (?=\W)/x
611 611
612 612 def inline_textile_code( text )
613 613 text.gsub!( CODE_RE ) do |m|
614 614 before,lang,code,after = $~[1..4]
615 615 lang = " lang=\"#{ lang }\"" if lang
616 616 rip_offtags( "#{ before }<code#{ lang }>#{ code }</code>#{ after }", false )
617 617 end
618 618 end
619 619
620 620 def lT( text )
621 621 text =~ /\#$/ ? 'o' : 'u'
622 622 end
623 623
624 624 def hard_break( text )
625 625 text.gsub!( /(.)\n(?!\Z| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks
626 626 end
627 627
628 628 BLOCKS_GROUP_RE = /\n{2,}(?! )/m
629 629
630 630 def blocks( text, deep_code = false )
631 631 text.replace( text.split( BLOCKS_GROUP_RE ).collect do |blk|
632 632 plain = blk !~ /\A[#*> ]/
633 633
634 634 # skip blocks that are complex HTML
635 635 if blk =~ /^<\/?(\w+).*>/ and not SIMPLE_HTML_TAGS.include? $1
636 636 blk
637 637 else
638 638 # search for indentation levels
639 639 blk.strip!
640 640 if blk.empty?
641 641 blk
642 642 else
643 643 code_blk = nil
644 644 blk.gsub!( /((?:\n(?:\n^ +[^\n]*)+)+)/m ) do |iblk|
645 645 flush_left iblk
646 646 blocks iblk, plain
647 647 iblk.gsub( /^(\S)/, "\t\\1" )
648 648 if plain
649 649 code_blk = iblk; ""
650 650 else
651 651 iblk
652 652 end
653 653 end
654 654
655 655 block_applied = 0
656 656 @rules.each do |rule_name|
657 657 block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) )
658 658 end
659 659 if block_applied.zero?
660 660 if deep_code
661 661 blk = "\t<pre><code>#{ blk }</code></pre>"
662 662 else
663 663 blk = "\t<p>#{ blk }</p>"
664 664 end
665 665 end
666 666 # hard_break blk
667 667 blk + "\n#{ code_blk }"
668 668 end
669 669 end
670 670
671 671 end.join( "\n\n" ) )
672 672 end
673 673
674 674 def textile_bq( tag, atts, cite, content )
675 675 cite, cite_title = check_refs( cite )
676 676 cite = " cite=\"#{ cite }\"" if cite
677 677 atts = shelve( atts ) if atts
678 678 "\t<blockquote#{ cite }>\n\t\t<p#{ atts }>#{ content }</p>\n\t</blockquote>"
679 679 end
680 680
681 681 def textile_p( tag, atts, cite, content )
682 682 atts = shelve( atts ) if atts
683 683 "\t<#{ tag }#{ atts }>#{ content }</#{ tag }>"
684 684 end
685 685
686 686 alias textile_h1 textile_p
687 687 alias textile_h2 textile_p
688 688 alias textile_h3 textile_p
689 689 alias textile_h4 textile_p
690 690 alias textile_h5 textile_p
691 691 alias textile_h6 textile_p
692 692
693 693 def textile_fn_( tag, num, atts, cite, content )
694 694 atts << " id=\"fn#{ num }\" class=\"footnote\""
695 695 content = "<sup>#{ num }</sup> #{ content }"
696 696 atts = shelve( atts ) if atts
697 697 "\t<p#{ atts }>#{ content }</p>"
698 698 end
699 699
700 700 BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m
701 701
702 702 def block_textile_prefix( text )
703 703 if text =~ BLOCK_RE
704 704 tag,tagpre,num,atts,cite,content = $~[1..6]
705 705 atts = pba( atts )
706 706
707 707 # pass to prefix handler
708 708 if respond_to? "textile_#{ tag }", true
709 709 text.gsub!( $&, method( "textile_#{ tag }" ).call( tag, atts, cite, content ) )
710 710 elsif respond_to? "textile_#{ tagpre }_", true
711 711 text.gsub!( $&, method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) )
712 712 end
713 713 end
714 714 end
715 715
716 716 SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m
717 717 def block_markdown_setext( text )
718 718 if text =~ SETEXT_RE
719 719 tag = if $2 == "="; "h1"; else; "h2"; end
720 720 blk, cont = "<#{ tag }>#{ $1 }</#{ tag }>", $'
721 721 blocks cont
722 722 text.replace( blk + cont )
723 723 end
724 724 end
725 725
726 726 ATX_RE = /\A(\#{1,6}) # $1 = string of #'s
727 727 [ ]*
728 728 (.+?) # $2 = Header text
729 729 [ ]*
730 730 \#* # optional closing #'s (not counted)
731 731 $/x
732 732 def block_markdown_atx( text )
733 733 if text =~ ATX_RE
734 734 tag = "h#{ $1.length }"
735 735 blk, cont = "<#{ tag }>#{ $2 }</#{ tag }>\n\n", $'
736 736 blocks cont
737 737 text.replace( blk + cont )
738 738 end
739 739 end
740 740
741 741 MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m
742 742
743 743 def block_markdown_bq( text )
744 744 text.gsub!( MARKDOWN_BQ_RE ) do |blk|
745 745 blk.gsub!( /^ *> ?/, '' )
746 746 flush_left blk
747 747 blocks blk
748 748 blk.gsub!( /^(\S)/, "\t\\1" )
749 749 "<blockquote>\n#{ blk }\n</blockquote>\n\n"
750 750 end
751 751 end
752 752
753 753 MARKDOWN_RULE_RE = /^(#{
754 754 ['*', '-', '_'].collect { |ch| ' ?(' + Regexp::quote( ch ) + ' ?){3,}' }.join( '|' )
755 755 })$/
756 756
757 757 def block_markdown_rule( text )
758 758 text.gsub!( MARKDOWN_RULE_RE ) do |blk|
759 759 "<hr />"
760 760 end
761 761 end
762 762
763 763 # XXX TODO XXX
764 764 def block_markdown_lists( text )
765 765 end
766 766
767 767 def inline_textile_span( text )
768 768 QTAGS.each do |qtag_rc, ht, qtag_re, rtype|
769 769 text.gsub!( qtag_re ) do |m|
770 770
771 771 case rtype
772 772 when :limit
773 773 sta,oqs,qtag,content,oqa = $~[1..6]
774 774 atts = nil
775 775 if content =~ /^(#{C})(.+)$/
776 776 atts, content = $~[1..2]
777 777 end
778 778 else
779 779 qtag,atts,cite,content = $~[1..4]
780 780 sta = ''
781 781 end
782 782 atts = pba( atts )
783 783 atts = shelve( atts ) if atts
784 784
785 785 "#{ sta }#{ oqs }<#{ ht }#{ atts }>#{ content }</#{ ht }>#{ oqa }"
786 786
787 787 end
788 788 end
789 789 end
790 790
791 791 LINK_RE = /
792 792 (
793 793 ([\s\[{(]|[#{PUNCT}])? # $pre
794 794 " # start
795 795 (#{C}) # $atts
796 796 ([^"\n]+?) # $text
797 797 \s?
798 798 (?:\(([^)]+?)\)(?="))? # $title
799 799 ":
800 800 ( # $url
801 801 (\/|[a-zA-Z]+:\/\/|www\.|mailto:) # $proto
802 802 [\w\/]\S+?
803 803 )
804 804 (\/)? # $slash
805 805 ([^\w\=\/;\(\)]*?) # $post
806 806 )
807 807 (?=<|\s|$)
808 808 /x
809 809 #"
810 810 def inline_textile_link( text )
811 811 text.gsub!( LINK_RE ) do |m|
812 812 all,pre,atts,text,title,url,proto,slash,post = $~[1..9]
813 813 if text.include?('<br />')
814 814 all
815 815 else
816 816 url, url_title = check_refs( url )
817 817 title ||= url_title
818 818
819 819 # Idea below : an URL with unbalanced parethesis and
820 820 # ending by ')' is put into external parenthesis
821 821 if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )
822 822 url=url[0..-2] # discard closing parenth from url
823 823 post = ")"+post # add closing parenth to post
824 824 end
825 825 atts = pba( atts )
826 826 atts = " href=\"#{ url }#{ slash }\"#{ atts }"
827 827 atts << " title=\"#{ htmlesc title }\"" if title
828 828 atts = shelve( atts ) if atts
829 829
830 830 external = (url =~ /^https?:\/\//) ? ' class="external"' : ''
831 831
832 832 "#{ pre }<a#{ atts }#{ external }>#{ text }</a>#{ post }"
833 833 end
834 834 end
835 835 end
836 836
837 837 MARKDOWN_REFLINK_RE = /
838 838 \[([^\[\]]+)\] # $text
839 839 [ ]? # opt. space
840 840 (?:\n[ ]*)? # one optional newline followed by spaces
841 841 \[(.*?)\] # $id
842 842 /x
843 843
844 844 def inline_markdown_reflink( text )
845 845 text.gsub!( MARKDOWN_REFLINK_RE ) do |m|
846 846 text, id = $~[1..2]
847 847
848 848 if id.empty?
849 849 url, title = check_refs( text )
850 850 else
851 851 url, title = check_refs( id )
852 852 end
853 853
854 854 atts = " href=\"#{ url }\""
855 855 atts << " title=\"#{ title }\"" if title
856 856 atts = shelve( atts )
857 857
858 858 "<a#{ atts }>#{ text }</a>"
859 859 end
860 860 end
861 861
862 862 MARKDOWN_LINK_RE = /
863 863 \[([^\[\]]+)\] # $text
864 864 \( # open paren
865 865 [ \t]* # opt space
866 866 <?(.+?)>? # $href
867 867 [ \t]* # opt space
868 868 (?: # whole title
869 869 (['"]) # $quote
870 870 (.*?) # $title
871 871 \3 # matching quote
872 872 )? # title is optional
873 873 \)
874 874 /x
875 875
876 876 def inline_markdown_link( text )
877 877 text.gsub!( MARKDOWN_LINK_RE ) do |m|
878 878 text, url, quote, title = $~[1..4]
879 879
880 880 atts = " href=\"#{ url }\""
881 881 atts << " title=\"#{ title }\"" if title
882 882 atts = shelve( atts )
883 883
884 884 "<a#{ atts }>#{ text }</a>"
885 885 end
886 886 end
887 887
888 888 TEXTILE_REFS_RE = /(^ *)\[([^\[\n]+?)\](#{HYPERLINK})(?=\s|$)/
889 889 MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+<?(#{HYPERLINK})>?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m
890 890
891 891 def refs( text )
892 892 @rules.each do |rule_name|
893 893 method( rule_name ).call( text ) if rule_name.to_s.match /^refs_/
894 894 end
895 895 end
896 896
897 897 def refs_textile( text )
898 898 text.gsub!( TEXTILE_REFS_RE ) do |m|
899 899 flag, url = $~[2..3]
900 900 @urlrefs[flag.downcase] = [url, nil]
901 901 nil
902 902 end
903 903 end
904 904
905 905 def refs_markdown( text )
906 906 text.gsub!( MARKDOWN_REFS_RE ) do |m|
907 907 flag, url = $~[2..3]
908 908 title = $~[6]
909 909 @urlrefs[flag.downcase] = [url, title]
910 910 nil
911 911 end
912 912 end
913 913
914 914 def check_refs( text )
915 915 ret = @urlrefs[text.downcase] if text
916 916 ret || [text, nil]
917 917 end
918 918
919 919 IMAGE_RE = /
920 920 (>|\s|^) # start of line?
921 921 \! # opening
922 922 (\<|\=|\>)? # optional alignment atts
923 923 (#{C}) # optional style,class atts
924 924 (?:\. )? # optional dot-space
925 925 ([^\s(!]+?) # presume this is the src
926 926 \s? # optional space
927 927 (?:\(((?:[^\(\)]|\([^\)]+\))+?)\))? # optional title
928 928 \! # closing
929 929 (?::#{ HYPERLINK })? # optional href
930 930 /x
931 931
932 932 def inline_textile_image( text )
933 933 text.gsub!( IMAGE_RE ) do |m|
934 934 stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]
935 935 htmlesc title
936 936 atts = pba( atts )
937 937 atts = " src=\"#{ url }\"#{ atts }"
938 938 atts << " title=\"#{ title }\"" if title
939 939 atts << " alt=\"#{ title }\""
940 940 # size = @getimagesize($url);
941 941 # if($size) $atts.= " $size[3]";
942 942
943 943 href, alt_title = check_refs( href ) if href
944 944 url, url_title = check_refs( url )
945 945
946 946 out = ''
947 947 out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href
948 948 out << "<img#{ shelve( atts ) } />"
949 949 out << "</a>#{ href_a1 }#{ href_a2 }" if href
950 950
951 951 if algn
952 952 algn = h_align( algn )
953 953 if stln == "<p>"
954 954 out = "<p style=\"float:#{ algn }\">#{ out }"
955 955 else
956 956 out = "#{ stln }<div style=\"float:#{ algn }\">#{ out }</div>"
957 957 end
958 958 else
959 959 out = stln + out
960 960 end
961 961
962 962 out
963 963 end
964 964 end
965 965
966 966 def shelve( val )
967 967 @shelf << val
968 968 " :redsh##{ @shelf.length }:"
969 969 end
970 970
971 971 def retrieve( text )
972 972 @shelf.each_with_index do |r, i|
973 973 text.gsub!( " :redsh##{ i + 1 }:", r )
974 974 end
975 975 end
976 976
977 977 def incoming_entities( text )
978 978 ## turn any incoming ampersands into a dummy character for now.
979 979 ## This uses a negative lookahead for alphanumerics followed by a semicolon,
980 980 ## implying an incoming html entity, to be skipped
981 981
982 982 text.gsub!( /&(?![#a-z0-9]+;)/i, "x%x%" )
983 983 end
984 984
985 985 def no_textile( text )
986 986 text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/,
987 987 '\1<notextile>\2</notextile>\3' )
988 988 text.gsub!( /^ *==([^=]+.*?)==/m,
989 989 '\1<notextile>\2</notextile>\3' )
990 990 end
991 991
992 992 def clean_white_space( text )
993 993 # normalize line breaks
994 994 text.gsub!( /\r\n/, "\n" )
995 995 text.gsub!( /\r/, "\n" )
996 996 text.gsub!( /\t/, ' ' )
997 997 text.gsub!( /^ +$/, '' )
998 998 text.gsub!( /\n{3,}/, "\n\n" )
999 999 text.gsub!( /"$/, "\" " )
1000 1000
1001 1001 # if entire document is indented, flush
1002 1002 # to the left side
1003 1003 flush_left text
1004 1004 end
1005 1005
1006 1006 def flush_left( text )
1007 1007 indt = 0
1008 1008 if text =~ /^ /
1009 1009 while text !~ /^ {#{indt}}\S/
1010 1010 indt += 1
1011 1011 end unless text.empty?
1012 1012 if indt.nonzero?
1013 1013 text.gsub!( /^ {#{indt}}/, '' )
1014 1014 end
1015 1015 end
1016 1016 end
1017 1017
1018 1018 def footnote_ref( text )
1019 1019 text.gsub!( /\b\[([0-9]+?)\](\s)?/,
1020 1020 '<sup><a href="#fn\1">\1</a></sup>\2' )
1021 1021 end
1022 1022
1023 1023 OFFTAGS = /(code|pre|kbd|notextile)/
1024 1024 OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }>)|(<#{ OFFTAGS }[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }\W|\Z)/mi
1025 1025 OFFTAG_OPEN = /<#{ OFFTAGS }/
1026 1026 OFFTAG_CLOSE = /<\/?#{ OFFTAGS }/
1027 1027 HASTAG_MATCH = /(<\/?\w[^\n]*?>)/m
1028 1028 ALLTAG_MATCH = /(<\/?\w[^\n]*?>)|.*?(?=<\/?\w[^\n]*?>|$)/m
1029 1029
1030 1030 def glyphs_textile( text, level = 0 )
1031 1031 if text !~ HASTAG_MATCH
1032 1032 pgl text
1033 1033 footnote_ref text
1034 1034 else
1035 1035 codepre = 0
1036 1036 text.gsub!( ALLTAG_MATCH ) do |line|
1037 1037 ## matches are off if we're between <code>, <pre> etc.
1038 1038 if $1
1039 1039 if line =~ OFFTAG_OPEN
1040 1040 codepre += 1
1041 1041 elsif line =~ OFFTAG_CLOSE
1042 1042 codepre -= 1
1043 1043 codepre = 0 if codepre < 0
1044 1044 end
1045 1045 elsif codepre.zero?
1046 1046 glyphs_textile( line, level + 1 )
1047 1047 else
1048 1048 htmlesc( line, :NoQuotes )
1049 1049 end
1050 1050 # p [level, codepre, line]
1051 1051
1052 1052 line
1053 1053 end
1054 1054 end
1055 1055 end
1056 1056
1057 1057 def rip_offtags( text, escape_aftertag=true )
1058 1058 if text =~ /<.*>/
1059 1059 ## strip and encode <pre> content
1060 1060 codepre, used_offtags = 0, {}
1061 1061 text.gsub!( OFFTAG_MATCH ) do |line|
1062 1062 if $3
1063 offtag, aftertag = $4, $5
1063 first, offtag, aftertag = $3, $4, $5
1064 1064 codepre += 1
1065 1065 used_offtags[offtag] = true
1066 1066 if codepre - used_offtags.length > 0
1067 1067 htmlesc( line, :NoQuotes )
1068 1068 @pre_list.last << line
1069 1069 line = ""
1070 1070 else
1071 htmlesc( aftertag, :NoQuotes ) if aftertag && escape_aftertag
1071 ### htmlesc is disabled between CODE tags which will be parsed with highlighter
1072 ### Regexp in formatter.rb is : /<code\s+class="(\w+)">\s?(.+)/m
1073 ### NB: some changes were made not to use $N variables, because we use "match"
1074 ### and it breaks following lines
1075 htmlesc( aftertag, :NoQuotes ) if aftertag && escape_aftertag && !first.match(/<code\s+class="(\w+)">/)
1072 1076 line = "<redpre##{ @pre_list.length }>"
1073 $3.match(/<#{ OFFTAGS }([^>]*)>/)
1077 first.match(/<#{ OFFTAGS }([^>]*)>/)
1074 1078 tag = $1
1075 1079 $2.to_s.match(/(class\=\S+)/i)
1076 1080 tag << " #{$1}" if $1
1077 1081 @pre_list << "<#{ tag }>#{ aftertag }"
1078 1082 end
1079 1083 elsif $1 and codepre > 0
1080 1084 if codepre - used_offtags.length > 0
1081 1085 htmlesc( line, :NoQuotes )
1082 1086 @pre_list.last << line
1083 1087 line = ""
1084 1088 end
1085 1089 codepre -= 1 unless codepre.zero?
1086 1090 used_offtags = {} if codepre.zero?
1087 1091 end
1088 1092 line
1089 1093 end
1090 1094 end
1091 1095 text
1092 1096 end
1093 1097
1094 1098 def smooth_offtags( text )
1095 1099 unless @pre_list.empty?
1096 1100 ## replace <pre> content
1097 1101 text.gsub!( /<redpre#(\d+)>/ ) { @pre_list[$1.to_i] }
1098 1102 end
1099 1103 end
1100 1104
1101 1105 def inline( text )
1102 1106 [/^inline_/, /^glyphs_/].each do |meth_re|
1103 1107 @rules.each do |rule_name|
1104 1108 method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )
1105 1109 end
1106 1110 end
1107 1111 end
1108 1112
1109 1113 def h_align( text )
1110 1114 H_ALGN_VALS[text]
1111 1115 end
1112 1116
1113 1117 def v_align( text )
1114 1118 V_ALGN_VALS[text]
1115 1119 end
1116 1120
1117 1121 def textile_popup_help( name, windowW, windowH )
1118 1122 ' <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 />'
1119 1123 end
1120 1124
1121 1125 # HTML cleansing stuff
1122 1126 BASIC_TAGS = {
1123 1127 'a' => ['href', 'title'],
1124 1128 'img' => ['src', 'alt', 'title'],
1125 1129 'br' => [],
1126 1130 'i' => nil,
1127 1131 'u' => nil,
1128 1132 'b' => nil,
1129 1133 'pre' => nil,
1130 1134 'kbd' => nil,
1131 1135 'code' => ['lang'],
1132 1136 'cite' => nil,
1133 1137 'strong' => nil,
1134 1138 'em' => nil,
1135 1139 'ins' => nil,
1136 1140 'sup' => nil,
1137 1141 'sub' => nil,
1138 1142 'del' => nil,
1139 1143 'table' => nil,
1140 1144 'tr' => nil,
1141 1145 'td' => ['colspan', 'rowspan'],
1142 1146 'th' => nil,
1143 1147 'ol' => nil,
1144 1148 'ul' => nil,
1145 1149 'li' => nil,
1146 1150 'p' => nil,
1147 1151 'h1' => nil,
1148 1152 'h2' => nil,
1149 1153 'h3' => nil,
1150 1154 'h4' => nil,
1151 1155 'h5' => nil,
1152 1156 'h6' => nil,
1153 1157 'blockquote' => ['cite']
1154 1158 }
1155 1159
1156 1160 def clean_html( text, tags = BASIC_TAGS )
1157 1161 text.gsub!( /<!\[CDATA\[/, '' )
1158 1162 text.gsub!( /<(\/*)(\w+)([^>]*)>/ ) do
1159 1163 raw = $~
1160 1164 tag = raw[2].downcase
1161 1165 if tags.has_key? tag
1162 1166 pcs = [tag]
1163 1167 tags[tag].each do |prop|
1164 1168 ['"', "'", ''].each do |q|
1165 1169 q2 = ( q != '' ? q : '\s' )
1166 1170 if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i
1167 1171 attrv = $1
1168 1172 next if prop == 'src' and attrv =~ %r{^(?!http)\w+:}
1169 1173 pcs << "#{prop}=\"#{$1.gsub('"', '\\"')}\""
1170 1174 break
1171 1175 end
1172 1176 end
1173 1177 end if tags[tag]
1174 1178 "<#{raw[1]}#{pcs.join " "}>"
1175 1179 else
1176 1180 " "
1177 1181 end
1178 1182 end
1179 1183 end
1180 1184
1181 1185 ALLOWED_TAGS = %w(redpre pre code notextile)
1182 1186
1183 1187 def escape_html_tags(text)
1184 1188 text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "&lt;#{$1}#{'&gt;' unless $3.blank?}" }
1185 1189 end
1186 1190 end
1187 1191
Show file before | Show file after | Hide comments
@@ -1,157 +1,157
1 1 # Redmine - project management software
2 2 # Copyright (C) 2006-2008 Jean-Philippe Lang
3 3 #
4 4 # This program is free software; you can redistribute it and/or
5 5 # modify it under the terms of the GNU General Public License
6 6 # as published by the Free Software Foundation; either version 2
7 7 # of the License, or (at your option) any later version.
8 8 #
9 9 # This program is distributed in the hope that it will be useful,
10 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 12 # GNU General Public License for more details.
13 13 #
14 14 # You should have received a copy of the GNU General Public License
15 15 # along with this program; if not, write to the Free Software
16 16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
17 17
18 18 require 'redcloth3'
19 19 require 'coderay'
20 20
21 21 module Redmine
22 22 module WikiFormatting
23 23 module Textile
24 24 class Formatter < RedCloth3
25 25
26 26 # auto_link rule after textile rules so that it doesn't break !image_url! tags
27 27 RULES = [:textile, :block_markdown_rule, :inline_auto_link, :inline_auto_mailto, :inline_toc]
28 28
29 29 def initialize(*args)
30 30 super
31 31 self.hard_breaks=true
32 32 self.no_span_caps=true
33 33 self.filter_styles=true
34 34 end
35 35
36 36 def to_html(*rules)
37 37 @toc = []
38 38 super(*RULES).to_s
39 39 end
40 40
41 41 private
42 42
43 43 # Patch for RedCloth. Fixed in RedCloth r128 but _why hasn't released it yet.
44 44 # <a href="http://code.whytheluckystiff.net/redcloth/changeset/128">http://code.whytheluckystiff.net/redcloth/changeset/128</a>
45 45 def hard_break( text )
46 46 text.gsub!( /(.)\n(?!\n|\Z|>| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks
47 47 end
48 48
49 49 # Patch to add code highlighting support to RedCloth
50 50 def smooth_offtags( text )
51 51 unless @pre_list.empty?
52 52 ## replace <pre> content
53 53 text.gsub!(/<redpre#(\d+)>/) do
54 54 content = @pre_list[$1.to_i]
55 55 if content.match(/<code\s+class="(\w+)">\s?(.+)/m)
56 56 content = "<code class=\"#{$1} CodeRay\">" +
57 CodeRay.scan($2, $1.downcase).html(:escape => false, :line_numbers => :inline)
57 CodeRay.scan($2, $1.downcase).html(:line_numbers => :inline)
58 58 end
59 59 content
60 60 end
61 61 end
62 62 end
63 63
64 64 # Patch to add 'table of content' support to RedCloth
65 65 def textile_p_withtoc(tag, atts, cite, content)
66 66 # removes wiki links from the item
67 67 toc_item = content.gsub(/(\[\[([^\]\|]*)(\|([^\]]*))?\]\])/) { $4 || $2 }
68 68 # removes styles
69 69 # eg. %{color:red}Triggers% => Triggers
70 70 toc_item.gsub! %r[%\{[^\}]*\}([^%]+)%], '\\1'
71 71
72 72 # replaces non word caracters by dashes
73 73 anchor = toc_item.gsub(%r{[^\w\s\-]}, '').gsub(%r{\s+(\-+\s*)?}, '-')
74 74
75 75 unless anchor.blank?
76 76 if tag =~ /^h(\d)$/
77 77 @toc << [$1.to_i, anchor, toc_item]
78 78 end
79 79 atts << " id=\"#{anchor}\""
80 80 content = content + "<a href=\"##{anchor}\" class=\"wiki-anchor\">&para;</a>"
81 81 end
82 82 textile_p(tag, atts, cite, content)
83 83 end
84 84
85 85 alias :textile_h1 :textile_p_withtoc
86 86 alias :textile_h2 :textile_p_withtoc
87 87 alias :textile_h3 :textile_p_withtoc
88 88
89 89 def inline_toc(text)
90 90 text.gsub!(/<p>\{\{([<>]?)toc\}\}<\/p>/i) do
91 91 div_class = 'toc'
92 92 div_class << ' right' if $1 == '>'
93 93 div_class << ' left' if $1 == '<'
94 94 out = "<ul class=\"#{div_class}\">"
95 95 @toc.each do |heading|
96 96 level, anchor, toc_item = heading
97 97 out << "<li class=\"heading#{level}\"><a href=\"##{anchor}\">#{toc_item}</a></li>\n"
98 98 end
99 99 out << '</ul>'
100 100 out
101 101 end
102 102 end
103 103
104 104 AUTO_LINK_RE = %r{
105 105 ( # leading text
106 106 <\w+.*?>| # leading HTML tag, or
107 107 [^=<>!:'"/]| # leading punctuation, or
108 108 ^ # beginning of line
109 109 )
110 110 (
111 111 (?:https?://)| # protocol spec, or
112 112 (?:s?ftps?://)|
113 113 (?:www\.) # www.*
114 114 )
115 115 (
116 116 (\S+?) # url
117 117 (\/)? # slash
118 118 )
119 119 ([^\w\=\/;\(\)]*?) # post
120 120 (?=<|\s|$)
121 121 }x unless const_defined?(:AUTO_LINK_RE)
122 122
123 123 # Turns all urls into clickable links (code from Rails).
124 124 def inline_auto_link(text)
125 125 text.gsub!(AUTO_LINK_RE) do
126 126 all, leading, proto, url, post = $&, $1, $2, $3, $6
127 127 if leading =~ /<a\s/i || leading =~ /![<>=]?/
128 128 # don't replace URL's that are already linked
129 129 # and URL's prefixed with ! !> !< != (textile images)
130 130 all
131 131 else
132 132 # Idea below : an URL with unbalanced parethesis and
133 133 # ending by ')' is put into external parenthesis
134 134 if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )
135 135 url=url[0..-2] # discard closing parenth from url
136 136 post = ")"+post # add closing parenth to post
137 137 end
138 138 %(#{leading}<a class="external" href="#{proto=="www."?"http://www.":proto}#{url}">#{proto + url}</a>#{post})
139 139 end
140 140 end
141 141 end
142 142
143 143 # Turns all email addresses into clickable links (code from Rails).
144 144 def inline_auto_mailto(text)
145 145 text.gsub!(/([\w\.!#\$%\-+.]+@[A-Za-z0-9\-]+(\.[A-Za-z0-9\-]+)+)/) do
146 146 mail = $1
147 147 if text.match(/<a\b[^>]*>(.*)(#{Regexp.escape(mail)})(.*)<\/a>/)
148 148 mail
149 149 else
150 150 %{<a href="mailto:#{mail}" class="email">#{mail}</a>}
151 151 end
152 152 end
153 153 end
154 154 end
155 155 end
156 156 end
157 157 end
General Comments 0
You need to be logged in to leave comments. Login now