##// END OF EJS Templates
jro_apps » redmine
RSS
Allow textile mailto links (#3127)....
Jean-Philippe Lang -
r2572:bab9b0d6ff7e
parent child
Show More
Side by Side Unified
Context file:
r2572:bab9b0d6ff7e Loading diff...:
Show file before | Show file after | Hide comments
@@ -1,1177 +1,1177
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 = [:refs_textile, :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.collect! do |rc, ht, rtype|
377 377 rcq = Regexp::quote rc
378 378 re =
379 379 case rtype
380 380 when :limit
381 381 /(^|[>\s\(])
382 382 (#{rcq})
383 383 (#{C})
384 384 (?::(\S+?))?
385 385 (\w|[^\s\-].*?[^\s\-])
386 386 #{rcq}
387 387 (?=[[:punct:]]|\s|\)|$)/x
388 388 else
389 389 /(#{rcq})
390 390 (#{C})
391 391 (?::(\S+))?
392 392 (\w|[^\s\-].*?[^\s\-])
393 393 #{rcq}/xm
394 394 end
395 395 [rc, ht, re, rtype]
396 396 end
397 397
398 398 # Elements to handle
399 399 GLYPHS = [
400 400 # [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1&#8217;\2' ], # single closing
401 401 # [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)\'/, '\1&#8217;' ], # single closing
402 402 # [ /\'(?=[#{PUNCT_Q}]*(s\b|[\s#{PUNCT_NOQ}]))/, '&#8217;' ], # single closing
403 403 # [ /\'/, '&#8216;' ], # single opening
404 404 # [ /</, '&lt;' ], # less-than
405 405 # [ />/, '&gt;' ], # greater-than
406 406 # [ /([^\s\[{(])?"(\s|:|$)/, '\1&#8221;\2' ], # double closing
407 407 # [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/, '\1&#8221;' ], # double closing
408 408 # [ /"(?=[#{PUNCT_Q}]*[\s#{PUNCT_NOQ}])/, '&#8221;' ], # double closing
409 409 # [ /"/, '&#8220;' ], # double opening
410 410 # [ /\b( )?\.{3}/, '\1&#8230;' ], # ellipsis
411 411 # [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym
412 412 # [ /(^|[^"][>\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
413 413 # [ /(\.\s)?\s?--\s?/, '\1&#8212;' ], # em dash
414 414 # [ /\s->\s/, ' &rarr; ' ], # right arrow
415 415 # [ /\s-\s/, ' &#8211; ' ], # en dash
416 416 # [ /(\d+) ?x ?(\d+)/, '\1&#215;\2' ], # dimension sign
417 417 # [ /\b ?[(\[]TM[\])]/i, '&#8482;' ], # trademark
418 418 # [ /\b ?[(\[]R[\])]/i, '&#174;' ], # registered
419 419 # [ /\b ?[(\[]C[\])]/i, '&#169;' ] # copyright
420 420 ]
421 421
422 422 H_ALGN_VALS = {
423 423 '<' => 'left',
424 424 '=' => 'center',
425 425 '>' => 'right',
426 426 '<>' => 'justify'
427 427 }
428 428
429 429 V_ALGN_VALS = {
430 430 '^' => 'top',
431 431 '-' => 'middle',
432 432 '~' => 'bottom'
433 433 }
434 434
435 435 #
436 436 # Flexible HTML escaping
437 437 #
438 438 def htmlesc( str, mode=:Quotes )
439 439 if str
440 440 str.gsub!( '&', '&amp;' )
441 441 str.gsub!( '"', '&quot;' ) if mode != :NoQuotes
442 442 str.gsub!( "'", '&#039;' ) if mode == :Quotes
443 443 str.gsub!( '<', '&lt;')
444 444 str.gsub!( '>', '&gt;')
445 445 end
446 446 str
447 447 end
448 448
449 449 # Search and replace for Textile glyphs (quotes, dashes, other symbols)
450 450 def pgl( text )
451 451 #GLYPHS.each do |re, resub, tog|
452 452 # next if tog and method( tog ).call
453 453 # text.gsub! re, resub
454 454 #end
455 455 text.gsub!(/\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/) do |m|
456 456 "<acronym title=\"#{htmlesc $2}\">#{$1}</acronym>"
457 457 end
458 458 end
459 459
460 460 # Parses Textile attribute lists and builds an HTML attribute string
461 461 def pba( text_in, element = "" )
462 462
463 463 return '' unless text_in
464 464
465 465 style = []
466 466 text = text_in.dup
467 467 if element == 'td'
468 468 colspan = $1 if text =~ /\\(\d+)/
469 469 rowspan = $1 if text =~ /\/(\d+)/
470 470 style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN
471 471 end
472 472
473 473 style << "#{ htmlesc $1 };" if text.sub!( /\{([^}]*)\}/, '' ) && !filter_styles
474 474
475 475 lang = $1 if
476 476 text.sub!( /\[([^)]+?)\]/, '' )
477 477
478 478 cls = $1 if
479 479 text.sub!( /\(([^()]+?)\)/, '' )
480 480
481 481 style << "padding-left:#{ $1.length }em;" if
482 482 text.sub!( /([(]+)/, '' )
483 483
484 484 style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' )
485 485
486 486 style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN
487 487
488 488 cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/
489 489
490 490 atts = ''
491 491 atts << " style=\"#{ style.join }\"" unless style.empty?
492 492 atts << " class=\"#{ cls }\"" unless cls.to_s.empty?
493 493 atts << " lang=\"#{ lang }\"" if lang
494 494 atts << " id=\"#{ id }\"" if id
495 495 atts << " colspan=\"#{ colspan }\"" if colspan
496 496 atts << " rowspan=\"#{ rowspan }\"" if rowspan
497 497
498 498 atts
499 499 end
500 500
501 501 TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m
502 502
503 503 # Parses a Textile table block, building HTML from the result.
504 504 def block_textile_table( text )
505 505 text.gsub!( TABLE_RE ) do |matches|
506 506
507 507 tatts, fullrow = $~[1..2]
508 508 tatts = pba( tatts, 'table' )
509 509 tatts = shelve( tatts ) if tatts
510 510 rows = []
511 511
512 512 fullrow.each_line do |row|
513 513 ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m
514 514 cells = []
515 515 row.split( /(\|)(?![^\[\|]*\]\])/ )[1..-2].each do |cell|
516 516 next if cell == '|'
517 517 ctyp = 'd'
518 518 ctyp = 'h' if cell =~ /^_/
519 519
520 520 catts = ''
521 521 catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/
522 522
523 523 catts = shelve( catts ) if catts
524 524 cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>"
525 525 end
526 526 ratts = shelve( ratts ) if ratts
527 527 rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"
528 528 end
529 529 "\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"
530 530 end
531 531 end
532 532
533 533 LISTS_RE = /^([#*]+?#{C} .*?)$(?![^#*])/m
534 534 LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m
535 535
536 536 # Parses Textile lists and generates HTML
537 537 def block_textile_lists( text )
538 538 text.gsub!( LISTS_RE ) do |match|
539 539 lines = match.split( /\n/ )
540 540 last_line = -1
541 541 depth = []
542 542 lines.each_with_index do |line, line_id|
543 543 if line =~ LISTS_CONTENT_RE
544 544 tl,atts,content = $~[1..3]
545 545 if depth.last
546 546 if depth.last.length > tl.length
547 547 (depth.length - 1).downto(0) do |i|
548 548 break if depth[i].length == tl.length
549 549 lines[line_id - 1] << "</li>\n\t</#{ lT( depth[i] ) }l>\n\t"
550 550 depth.pop
551 551 end
552 552 end
553 553 if depth.last and depth.last.length == tl.length
554 554 lines[line_id - 1] << '</li>'
555 555 end
556 556 end
557 557 unless depth.last == tl
558 558 depth << tl
559 559 atts = pba( atts )
560 560 atts = shelve( atts ) if atts
561 561 lines[line_id] = "\t<#{ lT(tl) }l#{ atts }>\n\t<li>#{ content }"
562 562 else
563 563 lines[line_id] = "\t\t<li>#{ content }"
564 564 end
565 565 last_line = line_id
566 566
567 567 else
568 568 last_line = line_id
569 569 end
570 570 if line_id - last_line > 1 or line_id == lines.length - 1
571 571 depth.delete_if do |v|
572 572 lines[last_line] << "</li>\n\t</#{ lT( v ) }l>"
573 573 end
574 574 end
575 575 end
576 576 lines.join( "\n" )
577 577 end
578 578 end
579 579
580 580 QUOTES_RE = /(^>+([^\n]*?)\n?)+/m
581 581 QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m
582 582
583 583 def block_textile_quotes( text )
584 584 text.gsub!( QUOTES_RE ) do |match|
585 585 lines = match.split( /\n/ )
586 586 quotes = ''
587 587 indent = 0
588 588 lines.each do |line|
589 589 line =~ QUOTES_CONTENT_RE
590 590 bq,content = $1, $2
591 591 l = bq.count('>')
592 592 if l != indent
593 593 quotes << ("\n\n" + (l>indent ? '<blockquote>' * (l-indent) : '</blockquote>' * (indent-l)) + "\n\n")
594 594 indent = l
595 595 end
596 596 quotes << (content + "\n")
597 597 end
598 598 quotes << ("\n" + '</blockquote>' * indent + "\n\n")
599 599 quotes
600 600 end
601 601 end
602 602
603 603 CODE_RE = /(\W)
604 604 @
605 605 (?:\|(\w+?)\|)?
606 606 (.+?)
607 607 @
608 608 (?=\W)/x
609 609
610 610 def inline_textile_code( text )
611 611 text.gsub!( CODE_RE ) do |m|
612 612 before,lang,code,after = $~[1..4]
613 613 lang = " lang=\"#{ lang }\"" if lang
614 614 rip_offtags( "#{ before }<code#{ lang }>#{ code }</code>#{ after }" )
615 615 end
616 616 end
617 617
618 618 def lT( text )
619 619 text =~ /\#$/ ? 'o' : 'u'
620 620 end
621 621
622 622 def hard_break( text )
623 623 text.gsub!( /(.)\n(?!\Z| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks
624 624 end
625 625
626 626 BLOCKS_GROUP_RE = /\n{2,}(?! )/m
627 627
628 628 def blocks( text, deep_code = false )
629 629 text.replace( text.split( BLOCKS_GROUP_RE ).collect do |blk|
630 630 plain = blk !~ /\A[#*> ]/
631 631
632 632 # skip blocks that are complex HTML
633 633 if blk =~ /^<\/?(\w+).*>/ and not SIMPLE_HTML_TAGS.include? $1
634 634 blk
635 635 else
636 636 # search for indentation levels
637 637 blk.strip!
638 638 if blk.empty?
639 639 blk
640 640 else
641 641 code_blk = nil
642 642 blk.gsub!( /((?:\n(?:\n^ +[^\n]*)+)+)/m ) do |iblk|
643 643 flush_left iblk
644 644 blocks iblk, plain
645 645 iblk.gsub( /^(\S)/, "\t\\1" )
646 646 if plain
647 647 code_blk = iblk; ""
648 648 else
649 649 iblk
650 650 end
651 651 end
652 652
653 653 block_applied = 0
654 654 @rules.each do |rule_name|
655 655 block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) )
656 656 end
657 657 if block_applied.zero?
658 658 if deep_code
659 659 blk = "\t<pre><code>#{ blk }</code></pre>"
660 660 else
661 661 blk = "\t<p>#{ blk }</p>"
662 662 end
663 663 end
664 664 # hard_break blk
665 665 blk + "\n#{ code_blk }"
666 666 end
667 667 end
668 668
669 669 end.join( "\n\n" ) )
670 670 end
671 671
672 672 def textile_bq( tag, atts, cite, content )
673 673 cite, cite_title = check_refs( cite )
674 674 cite = " cite=\"#{ cite }\"" if cite
675 675 atts = shelve( atts ) if atts
676 676 "\t<blockquote#{ cite }>\n\t\t<p#{ atts }>#{ content }</p>\n\t</blockquote>"
677 677 end
678 678
679 679 def textile_p( tag, atts, cite, content )
680 680 atts = shelve( atts ) if atts
681 681 "\t<#{ tag }#{ atts }>#{ content }</#{ tag }>"
682 682 end
683 683
684 684 alias textile_h1 textile_p
685 685 alias textile_h2 textile_p
686 686 alias textile_h3 textile_p
687 687 alias textile_h4 textile_p
688 688 alias textile_h5 textile_p
689 689 alias textile_h6 textile_p
690 690
691 691 def textile_fn_( tag, num, atts, cite, content )
692 692 atts << " id=\"fn#{ num }\" class=\"footnote\""
693 693 content = "<sup>#{ num }</sup> #{ content }"
694 694 atts = shelve( atts ) if atts
695 695 "\t<p#{ atts }>#{ content }</p>"
696 696 end
697 697
698 698 BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m
699 699
700 700 def block_textile_prefix( text )
701 701 if text =~ BLOCK_RE
702 702 tag,tagpre,num,atts,cite,content = $~[1..6]
703 703 atts = pba( atts )
704 704
705 705 # pass to prefix handler
706 706 if respond_to? "textile_#{ tag }", true
707 707 text.gsub!( $&, method( "textile_#{ tag }" ).call( tag, atts, cite, content ) )
708 708 elsif respond_to? "textile_#{ tagpre }_", true
709 709 text.gsub!( $&, method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) )
710 710 end
711 711 end
712 712 end
713 713
714 714 SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m
715 715 def block_markdown_setext( text )
716 716 if text =~ SETEXT_RE
717 717 tag = if $2 == "="; "h1"; else; "h2"; end
718 718 blk, cont = "<#{ tag }>#{ $1 }</#{ tag }>", $'
719 719 blocks cont
720 720 text.replace( blk + cont )
721 721 end
722 722 end
723 723
724 724 ATX_RE = /\A(\#{1,6}) # $1 = string of #'s
725 725 [ ]*
726 726 (.+?) # $2 = Header text
727 727 [ ]*
728 728 \#* # optional closing #'s (not counted)
729 729 $/x
730 730 def block_markdown_atx( text )
731 731 if text =~ ATX_RE
732 732 tag = "h#{ $1.length }"
733 733 blk, cont = "<#{ tag }>#{ $2 }</#{ tag }>\n\n", $'
734 734 blocks cont
735 735 text.replace( blk + cont )
736 736 end
737 737 end
738 738
739 739 MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m
740 740
741 741 def block_markdown_bq( text )
742 742 text.gsub!( MARKDOWN_BQ_RE ) do |blk|
743 743 blk.gsub!( /^ *> ?/, '' )
744 744 flush_left blk
745 745 blocks blk
746 746 blk.gsub!( /^(\S)/, "\t\\1" )
747 747 "<blockquote>\n#{ blk }\n</blockquote>\n\n"
748 748 end
749 749 end
750 750
751 751 MARKDOWN_RULE_RE = /^(#{
752 752 ['*', '-', '_'].collect { |ch| ' ?(' + Regexp::quote( ch ) + ' ?){3,}' }.join( '|' )
753 753 })$/
754 754
755 755 def block_markdown_rule( text )
756 756 text.gsub!( MARKDOWN_RULE_RE ) do |blk|
757 757 "<hr />"
758 758 end
759 759 end
760 760
761 761 # XXX TODO XXX
762 762 def block_markdown_lists( text )
763 763 end
764 764
765 765 def inline_textile_span( text )
766 766 QTAGS.each do |qtag_rc, ht, qtag_re, rtype|
767 767 text.gsub!( qtag_re ) do |m|
768 768
769 769 case rtype
770 770 when :limit
771 771 sta,qtag,atts,cite,content = $~[1..5]
772 772 else
773 773 qtag,atts,cite,content = $~[1..4]
774 774 sta = ''
775 775 end
776 776 atts = pba( atts )
777 777 atts << " cite=\"#{ cite }\"" if cite
778 778 atts = shelve( atts ) if atts
779 779
780 780 "#{ sta }<#{ ht }#{ atts }>#{ content }</#{ ht }>"
781 781
782 782 end
783 783 end
784 784 end
785 785
786 786 LINK_RE = /
787 787 ([\s\[{(]|[#{PUNCT}])? # $pre
788 788 " # start
789 789 (#{C}) # $atts
790 790 ([^"\n]+?) # $text
791 791 \s?
792 792 (?:\(([^)]+?)\)(?="))? # $title
793 793 ":
794 794 ( # $url
795 (\/|[a-zA-Z]+:\/\/|www\.) # $proto
795 (\/|[a-zA-Z]+:\/\/|www\.|mailto:) # $proto
796 796 [\w\/]\S+?
797 797 )
798 798 (\/)? # $slash
799 799 ([^\w\=\/;\(\)]*?) # $post
800 800 (?=<|\s|$)
801 801 /x
802 802 #"
803 803 def inline_textile_link( text )
804 804 text.gsub!( LINK_RE ) do |m|
805 805 pre,atts,text,title,url,proto,slash,post = $~[1..8]
806 806
807 807 url, url_title = check_refs( url )
808 808 title ||= url_title
809 809
810 810 # Idea below : an URL with unbalanced parethesis and
811 811 # ending by ')' is put into external parenthesis
812 812 if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )
813 813 url=url[0..-2] # discard closing parenth from url
814 814 post = ")"+post # add closing parenth to post
815 815 end
816 816 atts = pba( atts )
817 817 atts = " href=\"#{ url }#{ slash }\"#{ atts }"
818 818 atts << " title=\"#{ htmlesc title }\"" if title
819 819 atts = shelve( atts ) if atts
820 820
821 821 external = (url =~ /^https?:\/\//) ? ' class="external"' : ''
822 822
823 823 "#{ pre }<a#{ atts }#{ external }>#{ text }</a>#{ post }"
824 824 end
825 825 end
826 826
827 827 MARKDOWN_REFLINK_RE = /
828 828 \[([^\[\]]+)\] # $text
829 829 [ ]? # opt. space
830 830 (?:\n[ ]*)? # one optional newline followed by spaces
831 831 \[(.*?)\] # $id
832 832 /x
833 833
834 834 def inline_markdown_reflink( text )
835 835 text.gsub!( MARKDOWN_REFLINK_RE ) do |m|
836 836 text, id = $~[1..2]
837 837
838 838 if id.empty?
839 839 url, title = check_refs( text )
840 840 else
841 841 url, title = check_refs( id )
842 842 end
843 843
844 844 atts = " href=\"#{ url }\""
845 845 atts << " title=\"#{ title }\"" if title
846 846 atts = shelve( atts )
847 847
848 848 "<a#{ atts }>#{ text }</a>"
849 849 end
850 850 end
851 851
852 852 MARKDOWN_LINK_RE = /
853 853 \[([^\[\]]+)\] # $text
854 854 \( # open paren
855 855 [ \t]* # opt space
856 856 <?(.+?)>? # $href
857 857 [ \t]* # opt space
858 858 (?: # whole title
859 859 (['"]) # $quote
860 860 (.*?) # $title
861 861 \3 # matching quote
862 862 )? # title is optional
863 863 \)
864 864 /x
865 865
866 866 def inline_markdown_link( text )
867 867 text.gsub!( MARKDOWN_LINK_RE ) do |m|
868 868 text, url, quote, title = $~[1..4]
869 869
870 870 atts = " href=\"#{ url }\""
871 871 atts << " title=\"#{ title }\"" if title
872 872 atts = shelve( atts )
873 873
874 874 "<a#{ atts }>#{ text }</a>"
875 875 end
876 876 end
877 877
878 878 TEXTILE_REFS_RE = /(^ *)\[([^\[\n]+?)\](#{HYPERLINK})(?=\s|$)/
879 879 MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+<?(#{HYPERLINK})>?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m
880 880
881 881 def refs( text )
882 882 @rules.each do |rule_name|
883 883 method( rule_name ).call( text ) if rule_name.to_s.match /^refs_/
884 884 end
885 885 end
886 886
887 887 def refs_textile( text )
888 888 text.gsub!( TEXTILE_REFS_RE ) do |m|
889 889 flag, url = $~[2..3]
890 890 @urlrefs[flag.downcase] = [url, nil]
891 891 nil
892 892 end
893 893 end
894 894
895 895 def refs_markdown( text )
896 896 text.gsub!( MARKDOWN_REFS_RE ) do |m|
897 897 flag, url = $~[2..3]
898 898 title = $~[6]
899 899 @urlrefs[flag.downcase] = [url, title]
900 900 nil
901 901 end
902 902 end
903 903
904 904 def check_refs( text )
905 905 ret = @urlrefs[text.downcase] if text
906 906 ret || [text, nil]
907 907 end
908 908
909 909 IMAGE_RE = /
910 910 (<p>|.|^) # start of line?
911 911 \! # opening
912 912 (\<|\=|\>)? # optional alignment atts
913 913 (#{C}) # optional style,class atts
914 914 (?:\. )? # optional dot-space
915 915 ([^\s(!]+?) # presume this is the src
916 916 \s? # optional space
917 917 (?:\(((?:[^\(\)]|\([^\)]+\))+?)\))? # optional title
918 918 \! # closing
919 919 (?::#{ HYPERLINK })? # optional href
920 920 /x
921 921
922 922 def inline_textile_image( text )
923 923 text.gsub!( IMAGE_RE ) do |m|
924 924 stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]
925 925 htmlesc title
926 926 atts = pba( atts )
927 927 atts = " src=\"#{ url }\"#{ atts }"
928 928 atts << " title=\"#{ title }\"" if title
929 929 atts << " alt=\"#{ title }\""
930 930 # size = @getimagesize($url);
931 931 # if($size) $atts.= " $size[3]";
932 932
933 933 href, alt_title = check_refs( href ) if href
934 934 url, url_title = check_refs( url )
935 935
936 936 out = ''
937 937 out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href
938 938 out << "<img#{ shelve( atts ) } />"
939 939 out << "</a>#{ href_a1 }#{ href_a2 }" if href
940 940
941 941 if algn
942 942 algn = h_align( algn )
943 943 if stln == "<p>"
944 944 out = "<p style=\"float:#{ algn }\">#{ out }"
945 945 else
946 946 out = "#{ stln }<div style=\"float:#{ algn }\">#{ out }</div>"
947 947 end
948 948 else
949 949 out = stln + out
950 950 end
951 951
952 952 out
953 953 end
954 954 end
955 955
956 956 def shelve( val )
957 957 @shelf << val
958 958 " :redsh##{ @shelf.length }:"
959 959 end
960 960
961 961 def retrieve( text )
962 962 @shelf.each_with_index do |r, i|
963 963 text.gsub!( " :redsh##{ i + 1 }:", r )
964 964 end
965 965 end
966 966
967 967 def incoming_entities( text )
968 968 ## turn any incoming ampersands into a dummy character for now.
969 969 ## This uses a negative lookahead for alphanumerics followed by a semicolon,
970 970 ## implying an incoming html entity, to be skipped
971 971
972 972 text.gsub!( /&(?![#a-z0-9]+;)/i, "x%x%" )
973 973 end
974 974
975 975 def no_textile( text )
976 976 text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/,
977 977 '\1<notextile>\2</notextile>\3' )
978 978 text.gsub!( /^ *==([^=]+.*?)==/m,
979 979 '\1<notextile>\2</notextile>\3' )
980 980 end
981 981
982 982 def clean_white_space( text )
983 983 # normalize line breaks
984 984 text.gsub!( /\r\n/, "\n" )
985 985 text.gsub!( /\r/, "\n" )
986 986 text.gsub!( /\t/, ' ' )
987 987 text.gsub!( /^ +$/, '' )
988 988 text.gsub!( /\n{3,}/, "\n\n" )
989 989 text.gsub!( /"$/, "\" " )
990 990
991 991 # if entire document is indented, flush
992 992 # to the left side
993 993 flush_left text
994 994 end
995 995
996 996 def flush_left( text )
997 997 indt = 0
998 998 if text =~ /^ /
999 999 while text !~ /^ {#{indt}}\S/
1000 1000 indt += 1
1001 1001 end unless text.empty?
1002 1002 if indt.nonzero?
1003 1003 text.gsub!( /^ {#{indt}}/, '' )
1004 1004 end
1005 1005 end
1006 1006 end
1007 1007
1008 1008 def footnote_ref( text )
1009 1009 text.gsub!( /\b\[([0-9]+?)\](\s)?/,
1010 1010 '<sup><a href="#fn\1">\1</a></sup>\2' )
1011 1011 end
1012 1012
1013 1013 OFFTAGS = /(code|pre|kbd|notextile)/
1014 1014 OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }>)|(<#{ OFFTAGS }[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }|\Z)/mi
1015 1015 OFFTAG_OPEN = /<#{ OFFTAGS }/
1016 1016 OFFTAG_CLOSE = /<\/?#{ OFFTAGS }/
1017 1017 HASTAG_MATCH = /(<\/?\w[^\n]*?>)/m
1018 1018 ALLTAG_MATCH = /(<\/?\w[^\n]*?>)|.*?(?=<\/?\w[^\n]*?>|$)/m
1019 1019
1020 1020 def glyphs_textile( text, level = 0 )
1021 1021 if text !~ HASTAG_MATCH
1022 1022 pgl text
1023 1023 footnote_ref text
1024 1024 else
1025 1025 codepre = 0
1026 1026 text.gsub!( ALLTAG_MATCH ) do |line|
1027 1027 ## matches are off if we're between <code>, <pre> etc.
1028 1028 if $1
1029 1029 if line =~ OFFTAG_OPEN
1030 1030 codepre += 1
1031 1031 elsif line =~ OFFTAG_CLOSE
1032 1032 codepre -= 1
1033 1033 codepre = 0 if codepre < 0
1034 1034 end
1035 1035 elsif codepre.zero?
1036 1036 glyphs_textile( line, level + 1 )
1037 1037 else
1038 1038 htmlesc( line, :NoQuotes )
1039 1039 end
1040 1040 # p [level, codepre, line]
1041 1041
1042 1042 line
1043 1043 end
1044 1044 end
1045 1045 end
1046 1046
1047 1047 def rip_offtags( text )
1048 1048 if text =~ /<.*>/
1049 1049 ## strip and encode <pre> content
1050 1050 codepre, used_offtags = 0, {}
1051 1051 text.gsub!( OFFTAG_MATCH ) do |line|
1052 1052 if $3
1053 1053 offtag, aftertag = $4, $5
1054 1054 codepre += 1
1055 1055 used_offtags[offtag] = true
1056 1056 if codepre - used_offtags.length > 0
1057 1057 htmlesc( line, :NoQuotes )
1058 1058 @pre_list.last << line
1059 1059 line = ""
1060 1060 else
1061 1061 htmlesc( aftertag, :NoQuotes ) if aftertag
1062 1062 line = "<redpre##{ @pre_list.length }>"
1063 1063 $3.match(/<#{ OFFTAGS }([^>]*)>/)
1064 1064 tag = $1
1065 1065 $2.to_s.match(/(class\=\S+)/i)
1066 1066 tag << " #{$1}" if $1
1067 1067 @pre_list << "<#{ tag }>#{ aftertag }"
1068 1068 end
1069 1069 elsif $1 and codepre > 0
1070 1070 if codepre - used_offtags.length > 0
1071 1071 htmlesc( line, :NoQuotes )
1072 1072 @pre_list.last << line
1073 1073 line = ""
1074 1074 end
1075 1075 codepre -= 1 unless codepre.zero?
1076 1076 used_offtags = {} if codepre.zero?
1077 1077 end
1078 1078 line
1079 1079 end
1080 1080 end
1081 1081 text
1082 1082 end
1083 1083
1084 1084 def smooth_offtags( text )
1085 1085 unless @pre_list.empty?
1086 1086 ## replace <pre> content
1087 1087 text.gsub!( /<redpre#(\d+)>/ ) { @pre_list[$1.to_i] }
1088 1088 end
1089 1089 end
1090 1090
1091 1091 def inline( text )
1092 1092 [/^inline_/, /^glyphs_/].each do |meth_re|
1093 1093 @rules.each do |rule_name|
1094 1094 method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )
1095 1095 end
1096 1096 end
1097 1097 end
1098 1098
1099 1099 def h_align( text )
1100 1100 H_ALGN_VALS[text]
1101 1101 end
1102 1102
1103 1103 def v_align( text )
1104 1104 V_ALGN_VALS[text]
1105 1105 end
1106 1106
1107 1107 def textile_popup_help( name, windowW, windowH )
1108 1108 ' <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 />'
1109 1109 end
1110 1110
1111 1111 # HTML cleansing stuff
1112 1112 BASIC_TAGS = {
1113 1113 'a' => ['href', 'title'],
1114 1114 'img' => ['src', 'alt', 'title'],
1115 1115 'br' => [],
1116 1116 'i' => nil,
1117 1117 'u' => nil,
1118 1118 'b' => nil,
1119 1119 'pre' => nil,
1120 1120 'kbd' => nil,
1121 1121 'code' => ['lang'],
1122 1122 'cite' => nil,
1123 1123 'strong' => nil,
1124 1124 'em' => nil,
1125 1125 'ins' => nil,
1126 1126 'sup' => nil,
1127 1127 'sub' => nil,
1128 1128 'del' => nil,
1129 1129 'table' => nil,
1130 1130 'tr' => nil,
1131 1131 'td' => ['colspan', 'rowspan'],
1132 1132 'th' => nil,
1133 1133 'ol' => nil,
1134 1134 'ul' => nil,
1135 1135 'li' => nil,
1136 1136 'p' => nil,
1137 1137 'h1' => nil,
1138 1138 'h2' => nil,
1139 1139 'h3' => nil,
1140 1140 'h4' => nil,
1141 1141 'h5' => nil,
1142 1142 'h6' => nil,
1143 1143 'blockquote' => ['cite']
1144 1144 }
1145 1145
1146 1146 def clean_html( text, tags = BASIC_TAGS )
1147 1147 text.gsub!( /<!\[CDATA\[/, '' )
1148 1148 text.gsub!( /<(\/*)(\w+)([^>]*)>/ ) do
1149 1149 raw = $~
1150 1150 tag = raw[2].downcase
1151 1151 if tags.has_key? tag
1152 1152 pcs = [tag]
1153 1153 tags[tag].each do |prop|
1154 1154 ['"', "'", ''].each do |q|
1155 1155 q2 = ( q != '' ? q : '\s' )
1156 1156 if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i
1157 1157 attrv = $1
1158 1158 next if prop == 'src' and attrv =~ %r{^(?!http)\w+:}
1159 1159 pcs << "#{prop}=\"#{$1.gsub('"', '\\"')}\""
1160 1160 break
1161 1161 end
1162 1162 end
1163 1163 end if tags[tag]
1164 1164 "<#{raw[1]}#{pcs.join " "}>"
1165 1165 else
1166 1166 " "
1167 1167 end
1168 1168 end
1169 1169 end
1170 1170
1171 1171 ALLOWED_TAGS = %w(redpre pre code notextile)
1172 1172
1173 1173 def escape_html_tags(text)
1174 1174 text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "&lt;#{$1}#{'&gt;' unless $3.blank?}" }
1175 1175 end
1176 1176 end
1177 1177
General Comments 0
You need to be logged in to leave comments. Login now