jro_apps/redmine Commit - r3604:0a47389a65f3

1

# vim:ts=4:sw=4:

1

# vim:ts=4:sw=4:

2

# = RedCloth - Textile and Markdown Hybrid for Ruby

2

# = RedCloth - Textile and Markdown Hybrid for Ruby

3

#

3

#

4

# Homepage:: http://whytheluckystiff.net/ruby/redcloth/

4

# Homepage:: http://whytheluckystiff.net/ruby/redcloth/

5

# Author:: why the lucky stiff (http://whytheluckystiff.net/)

5

# Author:: why the lucky stiff (http://whytheluckystiff.net/)

6

# Copyright:: (cc) 2004 why the lucky stiff (and his puppet organizations.)

6

# Copyright:: (cc) 2004 why the lucky stiff (and his puppet organizations.)

7

# License:: BSD

7

# License:: BSD

8

#

8

#

9

# (see http://hobix.com/textile/ for a Textile Reference.)

9

# (see http://hobix.com/textile/ for a Textile Reference.)

10

#

10

#

11

# Based on (and also inspired by) both:

11

# Based on (and also inspired by) both:

12

#

12

#

13

# PyTextile: http://diveintomark.org/projects/textile/textile.py.txt

13

# PyTextile: http://diveintomark.org/projects/textile/textile.py.txt

14

# Textism for PHP: http://www.textism.com/tools/textile/

14

# Textism for PHP: http://www.textism.com/tools/textile/

15

#

15

#

16

#

16

#

17

18

# = RedCloth

18

# = RedCloth

19

#

19

#

20

# RedCloth is a Ruby library for converting Textile and/or Markdown

20

# RedCloth is a Ruby library for converting Textile and/or Markdown

21

# into HTML. You can use either format, intermingled or separately.

21

# into HTML. You can use either format, intermingled or separately.

22

# You can also extend RedCloth to honor your own custom text stylings.

22

# You can also extend RedCloth to honor your own custom text stylings.

23

#

23

#

24

# RedCloth users are encouraged to use Textile if they are generating

24

# RedCloth users are encouraged to use Textile if they are generating

25

# HTML and to use Markdown if others will be viewing the plain text.

25

# HTML and to use Markdown if others will be viewing the plain text.

26

#

26

#

27

# == What is Textile?

27

# == What is Textile?

28

#

28

#

29

# Textile is a simple formatting style for text

29

# Textile is a simple formatting style for text

30

# documents, loosely based on some HTML conventions.

30

# documents, loosely based on some HTML conventions.

31

#

31

#

32

# == Sample Textile Text

32

# == Sample Textile Text

33

#

33

#

34

# h2. This is a title

34

# h2. This is a title

35

#

35

#

36

# h3. This is a subhead

36

# h3. This is a subhead

37

#

37

#

38

# This is a bit of paragraph.

38

# This is a bit of paragraph.

39

#

39

#

40

# bq. This is a blockquote.

40

# bq. This is a blockquote.

41

#

41

#

42

# = Writing Textile

42

# = Writing Textile

43

#

43

#

44

# A Textile document consists of paragraphs. Paragraphs

44

# A Textile document consists of paragraphs. Paragraphs

45

# can be specially formatted by adding a small instruction

45

# can be specially formatted by adding a small instruction

46

# to the beginning of the paragraph.

46

# to the beginning of the paragraph.

47

#

47

#

48

# h[n]. Header of size [n].

48

# h[n]. Header of size [n].

49

# bq. Blockquote.

49

# bq. Blockquote.

50

# # Numeric list.

50

# # Numeric list.

51

# * Bulleted list.

51

# * Bulleted list.

52

#

52

#

53

# == Quick Phrase Modifiers

53

# == Quick Phrase Modifiers

54

#

54

#

55

# Quick phrase modifiers are also included, to allow formatting

55

# Quick phrase modifiers are also included, to allow formatting

56

# of small portions of text within a paragraph.

56

# of small portions of text within a paragraph.

57

#

57

#

58

# \_emphasis\_

58

# \_emphasis\_

59

# \_\_italicized\_\_

59

# \_\_italicized\_\_

60

# \*strong\*

60

# \*strong\*

61

# \*\*bold\*\*

61

# \*\*bold\*\*

62

# ??citation??

62

# ??citation??

63

# -deleted text-

63

# -deleted text-

64

# +inserted text+

64

# +inserted text+

65

# ^superscript^

65

# ^superscript^

66

# ~subscript~

66

# ~subscript~

67

# @code@

67

# @code@

68

# %(classname)span%

68

# %(classname)span%

69

#

69

#

70

# ==notextile== (leave text alone)

70

# ==notextile== (leave text alone)

71

#

71

#

72

# == Links

72

# == Links

73

#

73

#

74

# To make a hypertext link, put the link text in "quotation

74

# To make a hypertext link, put the link text in "quotation

75

# marks" followed immediately by a colon and the URL of the link.

75

# marks" followed immediately by a colon and the URL of the link.

76

#

76

#

77

# Optional: text in (parentheses) following the link text,

77

# Optional: text in (parentheses) following the link text,

78

# but before the closing quotation mark, will become a Title

78

# but before the closing quotation mark, will become a Title

79

# attribute for the link, visible as a tool tip when a cursor is above it.

79

# attribute for the link, visible as a tool tip when a cursor is above it.

80

#

80

#

81

# Example:

81

# Example:

82

#

82

#

83

# "This is a link (This is a title) ":http://www.textism.com

83

# "This is a link (This is a title) ":http://www.textism.com

84

#

84

#

85

# Will become:

85

# Will become:

86

#

86

#

87

# <a href="http://www.textism.com" title="This is a title">This is a link</a>

87

# <a href="http://www.textism.com" title="This is a title">This is a link</a>

88

#

88

#

89

# == Images

89

# == Images

90

#

90

#

91

# To insert an image, put the URL for the image inside exclamation marks.

91

# To insert an image, put the URL for the image inside exclamation marks.

92

#

92

#

93

# Optional: text that immediately follows the URL in (parentheses) will

93

# Optional: text that immediately follows the URL in (parentheses) will

94

# be used as the Alt text for the image. Images on the web should always

94

# be used as the Alt text for the image. Images on the web should always

95

# have descriptive Alt text for the benefit of readers using non-graphical

95

# have descriptive Alt text for the benefit of readers using non-graphical

96

# browsers.

96

# browsers.

97

#

97

#

98

# Optional: place a colon followed by a URL immediately after the

98

# Optional: place a colon followed by a URL immediately after the

99

# closing ! to make the image into a link.

99

# closing ! to make the image into a link.

100

#

100

#

101

# Example:

101

# Example:

102

#

102

#

103

# !http://www.textism.com/common/textist.gif(Textist)!

103

# !http://www.textism.com/common/textist.gif(Textist)!

104

#

104

#

105

# Will become:

105

# Will become:

106

#

106

#

107

# <img src="http://www.textism.com/common/textist.gif" alt="Textist" />

107

# <img src="http://www.textism.com/common/textist.gif" alt="Textist" />

108

#

108

#

109

# With a link:

109

# With a link:

110

#

110

#

111

# !/common/textist.gif(Textist)!:http://textism.com

111

# !/common/textist.gif(Textist)!:http://textism.com

112

#

112

#

113

# Will become:

113

# Will become:

114

#

114

#

115

# <a href="http://textism.com"><img src="/common/textist.gif" alt="Textist" /></a>

115

# <a href="http://textism.com"><img src="/common/textist.gif" alt="Textist" /></a>

116

#

116

#

117

# == Defining Acronyms

117

# == Defining Acronyms

118

#

118

#

119

# HTML allows authors to define acronyms via the tag. The definition appears as a

119

# HTML allows authors to define acronyms via the tag. The definition appears as a

120

# tool tip when a cursor hovers over the acronym. A crucial aid to clear writing,

120

# tool tip when a cursor hovers over the acronym. A crucial aid to clear writing,

121

# this should be used at least once for each acronym in documents where they appear.

121

# this should be used at least once for each acronym in documents where they appear.

122

#

122

#

123

# To quickly define an acronym in Textile, place the full text in (parentheses)

123

# To quickly define an acronym in Textile, place the full text in (parentheses)

124

# immediately following the acronym.

124

# immediately following the acronym.

125

#

125

#

126

# Example:

126

# Example:

127

#

127

#

128

# ACLU(American Civil Liberties Union)

128

# ACLU(American Civil Liberties Union)

129

#

129

#

130

# Will become:

130

# Will become:

131

#

131

#

132

# <acronym title="American Civil Liberties Union">ACLU</acronym>

132

# <acronym title="American Civil Liberties Union">ACLU</acronym>

133

#

133

#

134

# == Adding Tables

134

# == Adding Tables

135

#

135

#

136

# In Textile, simple tables can be added by seperating each column by

136

# In Textile, simple tables can be added by seperating each column by

137

# a pipe.

137

# a pipe.

138

#

138

#

139

# |a|simple|table|row|

139

# |a|simple|table|row|

140

# |And|Another|table|row|

140

# |And|Another|table|row|

141

#

141

#

142

# Attributes are defined by style definitions in parentheses.

142

# Attributes are defined by style definitions in parentheses.

143

#

143

#

144

# table(border:1px solid black).

144

# table(border:1px solid black).

145

# (background:#ddd;color:red). |{}| | | |

145

# (background:#ddd;color:red). |{}| | | |

146

#

146

#

147

# == Using RedCloth

147

# == Using RedCloth

148

#

148

#

149

# RedCloth is simply an extension of the String class, which can handle

149

# RedCloth is simply an extension of the String class, which can handle

150

# Textile formatting. Use it like a String and output HTML with its

150

# Textile formatting. Use it like a String and output HTML with its

151

# RedCloth#to_html method.

151

# RedCloth#to_html method.

152

#

152

#

153

# doc = RedCloth.new "

153

# doc = RedCloth.new "

154

#

154

#

155

# h2. Test document

155

# h2. Test document

156

#

156

#

157

# Just a simple test."

157

# Just a simple test."

158

#

158

#

159

# puts doc.to_html

159

# puts doc.to_html

160

#

160

#

161

# By default, RedCloth uses both Textile and Markdown formatting, with

161

# By default, RedCloth uses both Textile and Markdown formatting, with

162

# Textile formatting taking precedence. If you want to turn off Markdown

162

# Textile formatting taking precedence. If you want to turn off Markdown

163

# formatting, to boost speed and limit the processor:

163

# formatting, to boost speed and limit the processor:

164

#

164

#

165

# class RedCloth::Textile.new( str )

165

# class RedCloth::Textile.new( str )

166

167

class RedCloth3 < String

167

class RedCloth3 < String

168

169

VERSION = '3.0.4'

169

VERSION = '3.0.4'

170

DEFAULT_RULES = [:textile, :markdown]

170

DEFAULT_RULES = [:textile, :markdown]

171

172

#

172

#

173

# Two accessor for setting security restrictions.

173

# Two accessor for setting security restrictions.

174

#

174

#

175

# This is a nice thing if you're using RedCloth for

175

# This is a nice thing if you're using RedCloth for

176

# formatting in public places (e.g. Wikis) where you

176

# formatting in public places (e.g. Wikis) where you

177

# don't want users to abuse HTML for bad things.

177

# don't want users to abuse HTML for bad things.

178

#

178

#

179

# If +:filter_html+ is set, HTML which wasn't

179

# If +:filter_html+ is set, HTML which wasn't

180

# created by the Textile processor will be escaped.

180

# created by the Textile processor will be escaped.

181

#

181

#

182

# If +:filter_styles+ is set, it will also disable

182

# If +:filter_styles+ is set, it will also disable

183

# the style markup specifier. ('{color: red}')

183

# the style markup specifier. ('{color: red}')

184

#

184

#

185

attr_accessor :filter_html, :filter_styles

185

attr_accessor :filter_html, :filter_styles

186

187

#

187

#

188

# Accessor for toggling hard breaks.

188

# Accessor for toggling hard breaks.

189

#

189

#

190

# If +:hard_breaks+ is set, single newlines will

190

# If +:hard_breaks+ is set, single newlines will

191

# be converted to HTML break tags. This is the

191

# be converted to HTML break tags. This is the

192

# default behavior for traditional RedCloth.

192

# default behavior for traditional RedCloth.

193

#

193

#

194

attr_accessor :hard_breaks

194

attr_accessor :hard_breaks

195

196

# Accessor for toggling lite mode.

196

# Accessor for toggling lite mode.

197

#

197

#

198

# In lite mode, block-level rules are ignored. This means

198

# In lite mode, block-level rules are ignored. This means

199

# that tables, paragraphs, lists, and such aren't available.

199

# that tables, paragraphs, lists, and such aren't available.

200

# Only the inline markup for bold, italics, entities and so on.

200

# Only the inline markup for bold, italics, entities and so on.

201

#

201

#

202

# r = RedCloth.new( "And then? She *fell*!", [:lite_mode] )

202

# r = RedCloth.new( "And then? She *fell*!", [:lite_mode] )

203

# r.to_html

203

# r.to_html

204

# #=> "And then? She <strong>fell</strong>!"

204

# #=> "And then? She <strong>fell</strong>!"

205

#

205

#

206

attr_accessor :lite_mode

206

attr_accessor :lite_mode

207

208

#

208

#

209

# Accessor for toggling span caps.

209

# Accessor for toggling span caps.

210

#

210

#

211

# Textile places `span' tags around capitalized

211

# Textile places `span' tags around capitalized

212

# words by default, but this wreaks havoc on Wikis.

212

# words by default, but this wreaks havoc on Wikis.

213

# If +:no_span_caps+ is set, this will be

213

# If +:no_span_caps+ is set, this will be

214

# suppressed.

214

# suppressed.

215

#

215

#

216

attr_accessor :no_span_caps

216

attr_accessor :no_span_caps

217

218

#

218

#

219

# Establishes the markup predence. Available rules include:

219

# Establishes the markup predence. Available rules include:

220

#

220

#

221

# == Textile Rules

221

# == Textile Rules

222

#

222

#

223

# The following textile rules can be set individually. Or add the complete

223

# The following textile rules can be set individually. Or add the complete

224

# set of rules with the single :textile rule, which supplies the rule set in

224

# set of rules with the single :textile rule, which supplies the rule set in

225

# the following precedence:

225

# the following precedence:

226

#

226

#

227

# refs_textile:: Textile references (i.e. [hobix]http://hobix.com/)

227

# refs_textile:: Textile references (i.e. [hobix]http://hobix.com/)

228

# block_textile_table:: Textile table block structures

228

# block_textile_table:: Textile table block structures

229

# block_textile_lists:: Textile list structures

229

# block_textile_lists:: Textile list structures

230

# block_textile_prefix:: Textile blocks with prefixes (i.e. bq., h2., etc.)

230

# block_textile_prefix:: Textile blocks with prefixes (i.e. bq., h2., etc.)

231

# inline_textile_image:: Textile inline images

231

# inline_textile_image:: Textile inline images

232

# inline_textile_link:: Textile inline links

232

# inline_textile_link:: Textile inline links

233

# inline_textile_span:: Textile inline spans

233

# inline_textile_span:: Textile inline spans

234

# glyphs_textile:: Textile entities (such as em-dashes and smart quotes)

234

# glyphs_textile:: Textile entities (such as em-dashes and smart quotes)

235

#

235

#

236

# == Markdown

236

# == Markdown

237

#

237

#

238

# refs_markdown:: Markdown references (for example: [hobix]: http://hobix.com/)

238

# refs_markdown:: Markdown references (for example: [hobix]: http://hobix.com/)

239

# block_markdown_setext:: Markdown setext headers

239

# block_markdown_setext:: Markdown setext headers

240

# block_markdown_atx:: Markdown atx headers

240

# block_markdown_atx:: Markdown atx headers

241

# block_markdown_rule:: Markdown horizontal rules

241

# block_markdown_rule:: Markdown horizontal rules

242

# block_markdown_bq:: Markdown blockquotes

242

# block_markdown_bq:: Markdown blockquotes

243

# block_markdown_lists:: Markdown lists

243

# block_markdown_lists:: Markdown lists

244

# inline_markdown_link:: Markdown links

244

# inline_markdown_link:: Markdown links

245

attr_accessor :rules

245

attr_accessor :rules

246

247

# Returns a new RedCloth object, based on _string_ and

247

# Returns a new RedCloth object, based on _string_ and

248

# enforcing all the included _restrictions_.

248

# enforcing all the included _restrictions_.

249

#

249

#

250

# r = RedCloth.new( "h1. A <b>bold</b> man", [:filter_html] )

250

# r = RedCloth.new( "h1. A <b>bold</b> man", [:filter_html] )

251

# r.to_html

251

# r.to_html

252

# #=>"<h1>A <b>bold</b> man</h1>"

252

# #=>"<h1>A <b>bold</b> man</h1>"

253

#

253

#

254

def initialize( string, restrictions = [] )

254

def initialize( string, restrictions = [] )

255

restrictions.each { |r| method( "#{ r }=" ).call( true ) }

255

restrictions.each { |r| method( "#{ r }=" ).call( true ) }

256

super( string )

256

super( string )

257

end

257

end

258

259

#

259

#

260

# Generates HTML from the Textile contents.

260

# Generates HTML from the Textile contents.

261

#

261

#

262

# r = RedCloth.new( "And then? She *fell*!" )

262

# r = RedCloth.new( "And then? She *fell*!" )

263

# r.to_html( true )

263

# r.to_html( true )

264

# #=>"And then? She <strong>fell</strong>!"

264

# #=>"And then? She <strong>fell</strong>!"

265

#

265

#

266

def to_html( *rules )

266

def to_html( *rules )

267

rules = DEFAULT_RULES if rules.empty?

267

rules = DEFAULT_RULES if rules.empty?

268

# make our working copy

268

# make our working copy

269

text = self.dup

269

text = self.dup

270

271

@urlrefs = {}

271

@urlrefs = {}

272

@shelf = []

272

@shelf = []

273

textile_rules = [:block_textile_table, :block_textile_lists,

273

textile_rules = [:block_textile_table, :block_textile_lists,

274

:block_textile_prefix, :inline_textile_image, :inline_textile_link,

274

:block_textile_prefix, :inline_textile_image, :inline_textile_link,

275

:inline_textile_code, :inline_textile_span, :glyphs_textile]

275

:inline_textile_code, :inline_textile_span, :glyphs_textile]

276

markdown_rules = [:refs_markdown, :block_markdown_setext, :block_markdown_atx, :block_markdown_rule,

276

markdown_rules = [:refs_markdown, :block_markdown_setext, :block_markdown_atx, :block_markdown_rule,

277

:block_markdown_bq, :block_markdown_lists,

277

:block_markdown_bq, :block_markdown_lists,

278

:inline_markdown_reflink, :inline_markdown_link]

278

:inline_markdown_reflink, :inline_markdown_link]

279

@rules = rules.collect do |rule|

279

@rules = rules.collect do |rule|

280

case rule

280

case rule

281

when :markdown

281

when :markdown

282

markdown_rules

282

markdown_rules

283

when :textile

283

when :textile

284

textile_rules

284

textile_rules

285

else

285

else

286

rule

286

rule

287

end

287

end

288

end.flatten

288

end.flatten

289

290

# standard clean up

290

# standard clean up

291

incoming_entities text

291

incoming_entities text

292

clean_white_space text

292

clean_white_space text

293

294

# start processor

294

# start processor

295

@pre_list = []

295

@pre_list = []

296

rip_offtags text

296

rip_offtags text

297

no_textile text

297

no_textile text

298

escape_html_tags text

298

escape_html_tags text

299

hard_break text

299

hard_break text

300

unless @lite_mode

300

unless @lite_mode

301

refs text

301

refs text

302

# need to do this before text is split by #blocks

302

# need to do this before text is split by #blocks

303

block_textile_quotes text

303

block_textile_quotes text

304

blocks text

304

blocks text

305

end

305

end

306

inline text

306

inline text

307

smooth_offtags text

307

smooth_offtags text

308

309

retrieve text

309

retrieve text

310

311

text.gsub!( /<\/?notextile>/, '' )

311

text.gsub!( /<\/?notextile>/, '' )

312

text.gsub!( /x%x%/, '&' )

312

text.gsub!( /x%x%/, '&' )

313

clean_html text if filter_html

313

clean_html text if filter_html

314

text.strip!

314

text.strip!

315

text

315

text

316

317

end

317

end

318

319

#######

319

#######

320

private

320

private

321

#######

321

#######

322

#

322

#

323

# Mapping of 8-bit ASCII codes to HTML numerical entity equivalents.

323

# Mapping of 8-bit ASCII codes to HTML numerical entity equivalents.

324

# (from PyTextile)

324

# (from PyTextile)

325

#

325

#

326

TEXTILE_TAGS =

326

TEXTILE_TAGS =

327

328

[[128, 8364], [129, 0], [130, 8218], [131, 402], [132, 8222], [133, 8230],

328

[[128, 8364], [129, 0], [130, 8218], [131, 402], [132, 8222], [133, 8230],

329

[134, 8224], [135, 8225], [136, 710], [137, 8240], [138, 352], [139, 8249],

329

[134, 8224], [135, 8225], [136, 710], [137, 8240], [138, 352], [139, 8249],

330

[140, 338], [141, 0], [142, 0], [143, 0], [144, 0], [145, 8216], [146, 8217],

330

[140, 338], [141, 0], [142, 0], [143, 0], [144, 0], [145, 8216], [146, 8217],

331

[147, 8220], [148, 8221], [149, 8226], [150, 8211], [151, 8212], [152, 732],

331

[147, 8220], [148, 8221], [149, 8226], [150, 8211], [151, 8212], [152, 732],

332

[153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]].

332

[153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]].

333

334

collect! do |a, b|

334

collect! do |a, b|

335

[a.chr, ( b.zero? and "" or "&#{ b };" )]

335

[a.chr, ( b.zero? and "" or "&#{ b };" )]

336

end

336

end

337

338

#

338

#

339

# Regular expressions to convert to HTML.

339

# Regular expressions to convert to HTML.

340

#

340

#

341

A_HLGN = /(?:(?:<>|<|>|\=|[()]+)+)/

341

A_HLGN = /(?:(?:<>|<|>|\=|[()]+)+)/

342

A_VLGN = /[\-^~]/

342

A_VLGN = /[\-^~]/

343

C_CLAS = '(?:$[^)]+$)'

343

C_CLAS = '(?:$[^)]+$)'

344

C_LNGE = '(?:\[[^\[\]]+\])'

344

C_LNGE = '(?:\[[^\[\]]+\])'

345

C_STYL = '(?:\{[^}]+\})'

345

C_STYL = '(?:\{[^}]+\})'

346

S_CSPN = '(?:\\\\\d+)'

346

S_CSPN = '(?:\\\\\d+)'

347

S_RSPN = '(?:/\d+)'

347

S_RSPN = '(?:/\d+)'

348

A = "(?:#{A_HLGN}?#{A_VLGN}?|#{A_VLGN}?#{A_HLGN}?)"

348

A = "(?:#{A_HLGN}?#{A_VLGN}?|#{A_VLGN}?#{A_HLGN}?)"

349

S = "(?:#{S_CSPN}?#{S_RSPN}|#{S_RSPN}?#{S_CSPN}?)"

349

S = "(?:#{S_CSPN}?#{S_RSPN}|#{S_RSPN}?#{S_CSPN}?)"

350

C = "(?:#{C_CLAS}?#{C_STYL}?#{C_LNGE}?|#{C_STYL}?#{C_LNGE}?#{C_CLAS}?|#{C_LNGE}?#{C_STYL}?#{C_CLAS}?)"

350

C = "(?:#{C_CLAS}?#{C_STYL}?#{C_LNGE}?|#{C_STYL}?#{C_LNGE}?#{C_CLAS}?|#{C_LNGE}?#{C_STYL}?#{C_CLAS}?)"

351

# PUNCT = Regexp::quote( '!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~' )

351

# PUNCT = Regexp::quote( '!"#$%&\'()*+,-./:;<=>?@[\\]^_`{|}~' )

352

PUNCT = Regexp::quote( '!"#$%&\'*+,-./:;=?@\\^_`|~' )

352

PUNCT = Regexp::quote( '!"#$%&\'*+,-./:;=?@\\^_`|~' )

353

PUNCT_NOQ = Regexp::quote( '!"#$&\',./:;=?@\\`|' )

353

PUNCT_NOQ = Regexp::quote( '!"#$&\',./:;=?@\\`|' )

354

PUNCT_Q = Regexp::quote( '*-_+^~%' )

354

PUNCT_Q = Regexp::quote( '*-_+^~%' )

355

HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(?=\s|<|$)'

355

HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(?=\s|<|$)'

356

357

# Text markup tags, don't conflict with block tags

357

# Text markup tags, don't conflict with block tags

358

SIMPLE_HTML_TAGS = [

358

SIMPLE_HTML_TAGS = [

359

'tt', 'b', 'i', 'big', 'small', 'em', 'strong', 'dfn', 'code',

359

'tt', 'b', 'i', 'big', 'small', 'em', 'strong', 'dfn', 'code',

360

'samp', 'kbd', 'var', 'cite', 'abbr', 'acronym', 'a', 'img', 'br',

360

'samp', 'kbd', 'var', 'cite', 'abbr', 'acronym', 'a', 'img', 'br',

361

'br', 'map', 'q', 'sub', 'sup', 'span', 'bdo'

361

'br', 'map', 'q', 'sub', 'sup', 'span', 'bdo'

362

]

362

]

363

364

QTAGS = [

364

QTAGS = [

365

['**', 'b', :limit],

365

['**', 'b', :limit],

366

['*', 'strong', :limit],

366

['*', 'strong', :limit],

367

['??', 'cite', :limit],

367

['??', 'cite', :limit],

368

['-', 'del', :limit],

368

['-', 'del', :limit],

369

['__', 'i', :limit],

369

['__', 'i', :limit],

370

['_', 'em', :limit],

370

['_', 'em', :limit],

371

['%', 'span', :limit],

371

['%', 'span', :limit],

372

['+', 'ins', :limit],

372

['+', 'ins', :limit],

373

['^', 'sup', :limit],

373

['^', 'sup', :limit],

374

['~', 'sub', :limit]

374

['~', 'sub', :limit]

375

]

375

]

376

QTAGS_JOIN = QTAGS.map {|rc, ht, rtype| Regexp::quote rc}.join('|')

376

QTAGS_JOIN = QTAGS.map {|rc, ht, rtype| Regexp::quote rc}.join('|')

377

378

QTAGS.collect! do |rc, ht, rtype|

378

QTAGS.collect! do |rc, ht, rtype|

379

rcq = Regexp::quote rc

379

rcq = Regexp::quote rc

380

re =

380

re =

381

case rtype

381

case rtype

382

when :limit

382

when :limit

383

/(^|[>\s\(]) # sta

383

/(^|[>\s\(]) # sta

384

(?!\-\-)

384

(?!\-\-)

385

(#{QTAGS_JOIN}|) # oqs

385

(#{QTAGS_JOIN}|) # oqs

386

(#{rcq}) # qtag

386

(#{rcq}) # qtag

387

(\w|[^\s].*?[^\s]) # content

387

(\w|[^\s].*?[^\s]) # content

388

(?!\-\-)

388

(?!\-\-)

389

#{rcq}

389

#{rcq}

390

(#{QTAGS_JOIN}|) # oqa

390

(#{QTAGS_JOIN}|) # oqa

391

(?=[[:punct:]]|\s|\)|$)/x

391

(?=[[:punct:]]|<|\s|\)|$)/x

392

else

392

else

393

/(#{rcq})

393

/(#{rcq})

394

(#{C})

394

(#{C})

395

(?::(\S+))?

395

(?::(\S+))?

396

(\w|[^\s\-].*?[^\s\-])

396

(\w|[^\s\-].*?[^\s\-])

397

#{rcq}/xm

397

#{rcq}/xm

398

end

398

end

399

[rc, ht, re, rtype]

399

[rc, ht, re, rtype]

400

end

400

end

401

402

# Elements to handle

402

# Elements to handle

403

GLYPHS = [

403

GLYPHS = [

404

# [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1’\2' ], # single closing

404

# [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1’\2' ], # single closing

405

# [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)\'/, '\1’' ], # single closing

405

# [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)\'/, '\1’' ], # single closing

406

# [ /\'(?=[#{PUNCT_Q}]*(s\b|[\s#{PUNCT_NOQ}]))/, '’' ], # single closing

406

# [ /\'(?=[#{PUNCT_Q}]*(s\b|[\s#{PUNCT_NOQ}]))/, '’' ], # single closing

407

# [ /\'/, '‘' ], # single opening

407

# [ /\'/, '‘' ], # single opening

408

# [ /</, '<' ], # less-than

408

# [ /</, '<' ], # less-than

409

# [ />/, '>' ], # greater-than

409

# [ />/, '>' ], # greater-than

410

# [ /([^\s\[{(])?"(\s|:|$)/, '\1”\2' ], # double closing

410

# [ /([^\s\[{(])?"(\s|:|$)/, '\1”\2' ], # double closing

411

# [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/, '\1”' ], # double closing

411

# [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/, '\1”' ], # double closing

412

# [ /"(?=[#{PUNCT_Q}]*[\s#{PUNCT_NOQ}])/, '”' ], # double closing

412

# [ /"(?=[#{PUNCT_Q}]*[\s#{PUNCT_NOQ}])/, '”' ], # double closing

413

# [ /"/, '“' ], # double opening

413

# [ /"/, '“' ], # double opening

414

# [ /\b( )?\.{3}/, '\1…' ], # ellipsis

414

# [ /\b( )?\.{3}/, '\1…' ], # ellipsis

415

# [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym

415

# [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym

416

# [ /(^|[^"][>\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

416

# [ /(^|[^"][>\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

417

# [ /(\.\s)?\s?--\s?/, '\1—' ], # em dash

417

# [ /(\.\s)?\s?--\s?/, '\1—' ], # em dash

418

# [ /\s->\s/, ' → ' ], # right arrow

418

# [ /\s->\s/, ' → ' ], # right arrow

419

# [ /\s-\s/, ' – ' ], # en dash

419

# [ /\s-\s/, ' – ' ], # en dash

420

# [ /(\d+) ?x ?(\d+)/, '\1×\2' ], # dimension sign

420

# [ /(\d+) ?x ?(\d+)/, '\1×\2' ], # dimension sign

421

# [ /\b ?[(\[]TM[\])]/i, '™' ], # trademark

421

# [ /\b ?[(\[]TM[\])]/i, '™' ], # trademark

422

# [ /\b ?[(\[]R[\])]/i, '®' ], # registered

422

# [ /\b ?[(\[]R[\])]/i, '®' ], # registered

423

# [ /\b ?[(\[]C[\])]/i, '©' ] # copyright

423

# [ /\b ?[(\[]C[\])]/i, '©' ] # copyright

424

]

424

]

425

426

H_ALGN_VALS = {

426

H_ALGN_VALS = {

427

'<' => 'left',

427

'<' => 'left',

428

'=' => 'center',

428

'=' => 'center',

429

'>' => 'right',

429

'>' => 'right',

430

'<>' => 'justify'

430

'<>' => 'justify'

431

}

431

}

432

433

V_ALGN_VALS = {

433

V_ALGN_VALS = {

434

'^' => 'top',

434

'^' => 'top',

435

'-' => 'middle',

435

'-' => 'middle',

436

'~' => 'bottom'

436

'~' => 'bottom'

437

}

437

}

438

439

#

439

#

440

# Flexible HTML escaping

440

# Flexible HTML escaping

441

#

441

#

442

def htmlesc( str, mode=:Quotes )

442

def htmlesc( str, mode=:Quotes )

443

if str

443

if str

444

str.gsub!( '&', '&' )

444

str.gsub!( '&', '&' )

445

str.gsub!( '"', '"' ) if mode != :NoQuotes

445

str.gsub!( '"', '"' ) if mode != :NoQuotes

446

str.gsub!( "'", ''' ) if mode == :Quotes

446

str.gsub!( "'", ''' ) if mode == :Quotes

447

str.gsub!( '<', '<')

447

str.gsub!( '<', '<')

448

str.gsub!( '>', '>')

448

str.gsub!( '>', '>')

449

end

449

end

450

str

450

str

451

end

451

end

452

453

# Search and replace for Textile glyphs (quotes, dashes, other symbols)

453

# Search and replace for Textile glyphs (quotes, dashes, other symbols)

454

def pgl( text )

454

def pgl( text )

455

#GLYPHS.each do |re, resub, tog|

455

#GLYPHS.each do |re, resub, tog|

456

# next if tog and method( tog ).call

456

# next if tog and method( tog ).call

457

# text.gsub! re, resub

457

# text.gsub! re, resub

458

#end

458

#end

459

text.gsub!(/\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/) do |m|

459

text.gsub!(/\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/) do |m|

460

"<acronym title=\"#{htmlesc $2}\">#{$1}</acronym>"

460

"<acronym title=\"#{htmlesc $2}\">#{$1}</acronym>"

461

end

461

end

462

end

462

end

463

464

# Parses Textile attribute lists and builds an HTML attribute string

464

# Parses Textile attribute lists and builds an HTML attribute string

465

def pba( text_in, element = "" )

465

def pba( text_in, element = "" )

466

467

return '' unless text_in

467

return '' unless text_in

468

469

style = []

469

style = []

470

text = text_in.dup

470

text = text_in.dup

471

if element == 'td'

471

if element == 'td'

472

colspan = $1 if text =~ /\\(\d+)/

472

colspan = $1 if text =~ /\\(\d+)/

473

rowspan = $1 if text =~ /\/(\d+)/

473

rowspan = $1 if text =~ /\/(\d+)/

474

style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN

474

style << "vertical-align:#{ v_align( $& ) };" if text =~ A_VLGN

475

end

475

end

476

477

style << "#{ htmlesc $1 };" if text.sub!( /\{([^}]*)\}/, '' ) && !filter_styles

477

style << "#{ htmlesc $1 };" if text.sub!( /\{([^}]*)\}/, '' ) && !filter_styles

478

479

lang = $1 if

479

lang = $1 if

480

text.sub!( /\[([^)]+?)\]/, '' )

480

text.sub!( /\[([^)]+?)\]/, '' )

481

482

cls = $1 if

482

cls = $1 if

483

text.sub!( /$([^()]+?)$/, '' )

483

text.sub!( /$([^()]+?)$/, '' )

484

485

style << "padding-left:#{ $1.length }em;" if

485

style << "padding-left:#{ $1.length }em;" if

486

text.sub!( /([(]+)/, '' )

486

text.sub!( /([(]+)/, '' )

487

488

style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' )

488

style << "padding-right:#{ $1.length }em;" if text.sub!( /([)]+)/, '' )

489

490

style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN

490

style << "text-align:#{ h_align( $& ) };" if text =~ A_HLGN

491

492

cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/

492

cls, id = $1, $2 if cls =~ /^(.*?)#(.*)$/

493

494

atts = ''

494

atts = ''

495

atts << " style=\"#{ style.join }\"" unless style.empty?

495

atts << " style=\"#{ style.join }\"" unless style.empty?

496

atts << " class=\"#{ cls }\"" unless cls.to_s.empty?

496

atts << " class=\"#{ cls }\"" unless cls.to_s.empty?

497

atts << " lang=\"#{ lang }\"" if lang

497

atts << " lang=\"#{ lang }\"" if lang

498

atts << " id=\"#{ id }\"" if id

498

atts << " id=\"#{ id }\"" if id

499

atts << " colspan=\"#{ colspan }\"" if colspan

499

atts << " colspan=\"#{ colspan }\"" if colspan

500

atts << " rowspan=\"#{ rowspan }\"" if rowspan

500

atts << " rowspan=\"#{ rowspan }\"" if rowspan

501

502

atts

502

atts

503

end

503

end

504

505

TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m

505

TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m

506

507

# Parses a Textile table block, building HTML from the result.

507

# Parses a Textile table block, building HTML from the result.

508

def block_textile_table( text )

508

def block_textile_table( text )

509

text.gsub!( TABLE_RE ) do |matches|

509

text.gsub!( TABLE_RE ) do |matches|

510

511

tatts, fullrow = $~[1..2]

511

tatts, fullrow = $~[1..2]

512

tatts = pba( tatts, 'table' )

512

tatts = pba( tatts, 'table' )

513

tatts = shelve( tatts ) if tatts

513

tatts = shelve( tatts ) if tatts

514

rows = []

514

rows = []

515

516

fullrow.each_line do |row|

516

fullrow.each_line do |row|

517

ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m

517

ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m

518

cells = []

518

cells = []

519

row.split( /(\|)(?![^\[\|]*\]\])/ )[1..-2].each do |cell|

519

row.split( /(\|)(?![^\[\|]*\]\])/ )[1..-2].each do |cell|

520

next if cell == '|'

520

next if cell == '|'

521

ctyp = 'd'

521

ctyp = 'd'

522

ctyp = 'h' if cell =~ /^_/

522

ctyp = 'h' if cell =~ /^_/

523

524

catts = ''

524

catts = ''

525

catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/

525

catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/

526

527

catts = shelve( catts ) if catts

527

catts = shelve( catts ) if catts

528

cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>"

528

cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>"

529

end

529

end

530

ratts = shelve( ratts ) if ratts

530

ratts = shelve( ratts ) if ratts

531

rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"

531

rows << "\t\t<tr#{ ratts }>\n#{ cells.join( "\n" ) }\n\t\t</tr>"

532

end

532

end

533

"\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"

533

"\t<table#{ tatts }>\n#{ rows.join( "\n" ) }\n\t</table>\n\n"

534

end

534

end

535

end

535

end

536

537

LISTS_RE = /^([#*]+?#{C} .*?)$(?![^#*])/m

537

LISTS_RE = /^([#*]+?#{C} .*?)$(?![^#*])/m

538

LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m

538

LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m

539

540

# Parses Textile lists and generates HTML

540

# Parses Textile lists and generates HTML

541

def block_textile_lists( text )

541

def block_textile_lists( text )

542

text.gsub!( LISTS_RE ) do |match|

542

text.gsub!( LISTS_RE ) do |match|

543

lines = match.split( /\n/ )

543

lines = match.split( /\n/ )

544

last_line = -1

544

last_line = -1

545

depth = []

545

depth = []

546

lines.each_with_index do |line, line_id|

546

lines.each_with_index do |line, line_id|

547

if line =~ LISTS_CONTENT_RE

547

if line =~ LISTS_CONTENT_RE

548

tl,atts,content = $~[1..3]

548

tl,atts,content = $~[1..3]

549

if depth.last

549

if depth.last

550

if depth.last.length > tl.length

550

if depth.last.length > tl.length

551

(depth.length - 1).downto(0) do |i|

551

(depth.length - 1).downto(0) do |i|

552

break if depth[i].length == tl.length

552

break if depth[i].length == tl.length

553

lines[line_id - 1] << "</li>\n\t</#{ lT( depth[i] ) }l>\n\t"

553

lines[line_id - 1] << "</li>\n\t</#{ lT( depth[i] ) }l>\n\t"

554

depth.pop

554

depth.pop

555

end

555

end

556

end

556

end

557

if depth.last and depth.last.length == tl.length

557

if depth.last and depth.last.length == tl.length

558

lines[line_id - 1] << '</li>'

558

lines[line_id - 1] << '</li>'

559

end

559

end

560

end

560

end

561

unless depth.last == tl

561

unless depth.last == tl

562

depth << tl

562

depth << tl

563

atts = pba( atts )

563

atts = pba( atts )

564

atts = shelve( atts ) if atts

564

atts = shelve( atts ) if atts

565

lines[line_id] = "\t<#{ lT(tl) }l#{ atts }>\n\t<li>#{ content }"

565

lines[line_id] = "\t<#{ lT(tl) }l#{ atts }>\n\t<li>#{ content }"

566

else

566

else

567

lines[line_id] = "\t\t<li>#{ content }"

567

lines[line_id] = "\t\t<li>#{ content }"

568

end

568

end

569

last_line = line_id

569

last_line = line_id

570

571

else

571

else

572

last_line = line_id

572

last_line = line_id

573

end

573

end

574

if line_id - last_line > 1 or line_id == lines.length - 1

574

if line_id - last_line > 1 or line_id == lines.length - 1

575

depth.delete_if do |v|

575

depth.delete_if do |v|

576

lines[last_line] << "</li>\n\t</#{ lT( v ) }l>"

576

lines[last_line] << "</li>\n\t</#{ lT( v ) }l>"

577

end

577

end

578

end

578

end

579

end

579

end

580

lines.join( "\n" )

580

lines.join( "\n" )

581

end

581

end

582

end

582

end

583

584

QUOTES_RE = /(^>+([^\n]*?)(\n|$))+/m

584

QUOTES_RE = /(^>+([^\n]*?)(\n|$))+/m

585

QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m

585

QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m

586

587

def block_textile_quotes( text )

587

def block_textile_quotes( text )

588

text.gsub!( QUOTES_RE ) do |match|

588

text.gsub!( QUOTES_RE ) do |match|

589

lines = match.split( /\n/ )

589

lines = match.split( /\n/ )

590

quotes = ''

590

quotes = ''

591

indent = 0

591

indent = 0

592

lines.each do |line|

592

lines.each do |line|

593

line =~ QUOTES_CONTENT_RE

593

line =~ QUOTES_CONTENT_RE

594

bq,content = $1, $2

594

bq,content = $1, $2

595

l = bq.count('>')

595

l = bq.count('>')

596

if l != indent

596

if l != indent

597

quotes << ("\n\n" + (l>indent ? '<blockquote>' * (l-indent) : '</blockquote>' * (indent-l)) + "\n\n")

597

quotes << ("\n\n" + (l>indent ? '<blockquote>' * (l-indent) : '</blockquote>' * (indent-l)) + "\n\n")

598

indent = l

598

indent = l

599

end

599

end

600

quotes << (content + "\n")

600

quotes << (content + "\n")

601

end

601

end

602

quotes << ("\n" + '</blockquote>' * indent + "\n\n")

602

quotes << ("\n" + '</blockquote>' * indent + "\n\n")

603

quotes

603

quotes

604

end

604

end

605

end

605

end

606

607

CODE_RE = /(\W)

607

CODE_RE = /(\W)

608

@

608

@

609

(?:\|(\w+?)\|)?

609

(?:\|(\w+?)\|)?

610

(.+?)

610

(.+?)

611

@

611

@

612

(?=\W)/x

612

(?=\W)/x

613

614

def inline_textile_code( text )

614

def inline_textile_code( text )

615

text.gsub!( CODE_RE ) do |m|

615

text.gsub!( CODE_RE ) do |m|

616

before,lang,code,after = $~[1..4]

616

before,lang,code,after = $~[1..4]

617

lang = " lang=\"#{ lang }\"" if lang

617

lang = " lang=\"#{ lang }\"" if lang

618

rip_offtags( "#{ before }<code#{ lang }>#{ code }</code>#{ after }", false )

618

rip_offtags( "#{ before }<code#{ lang }>#{ code }</code>#{ after }", false )

619

end

619

end

620

end

620

end

621

622

def lT( text )

622

def lT( text )

623

text =~ /\#$/ ? 'o' : 'u'

623

text =~ /\#$/ ? 'o' : 'u'

624

end

624

end

625

626

def hard_break( text )

626

def hard_break( text )

627

text.gsub!( /(.)\n(?!\Z| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks

627

text.gsub!( /(.)\n(?!\Z| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks

628

end

628

end

629

630

BLOCKS_GROUP_RE = /\n{2,}(?! )/m

630

BLOCKS_GROUP_RE = /\n{2,}(?! )/m

631

632

def blocks( text, deep_code = false )

632

def blocks( text, deep_code = false )

633

text.replace( text.split( BLOCKS_GROUP_RE ).collect do |blk|

633

text.replace( text.split( BLOCKS_GROUP_RE ).collect do |blk|

634

plain = blk !~ /\A[#*> ]/

634

plain = blk !~ /\A[#*> ]/

635

636

# skip blocks that are complex HTML

636

# skip blocks that are complex HTML

637

if blk =~ /^<\/?(\w+).*>/ and not SIMPLE_HTML_TAGS.include? $1

637

if blk =~ /^<\/?(\w+).*>/ and not SIMPLE_HTML_TAGS.include? $1

638

blk

638

blk

639

else

639

else

640

# search for indentation levels

640

# search for indentation levels

641

blk.strip!

641

blk.strip!

642

if blk.empty?

642

if blk.empty?

643

blk

643

blk

644

else

644

else

645

code_blk = nil

645

code_blk = nil

646

blk.gsub!( /((?:\n(?:\n^ +[^\n]*)+)+)/m ) do |iblk|

646

blk.gsub!( /((?:\n(?:\n^ +[^\n]*)+)+)/m ) do |iblk|

647

flush_left iblk

647

flush_left iblk

648

blocks iblk, plain

648

blocks iblk, plain

649

iblk.gsub( /^(\S)/, "\t\\1" )

649

iblk.gsub( /^(\S)/, "\t\\1" )

650

if plain

650

if plain

651

code_blk = iblk; ""

651

code_blk = iblk; ""

652

else

652

else

653

iblk

653

iblk

654

end

654

end

655

end

655

end

656

657

block_applied = 0

657

block_applied = 0

658

@rules.each do |rule_name|

658

@rules.each do |rule_name|

659

block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) )

659

block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) )

660

end

660

end

661

if block_applied.zero?

661

if block_applied.zero?

662

if deep_code

662

if deep_code

663

blk = "\t<pre><code>#{ blk }</code></pre>"

663

blk = "\t<pre><code>#{ blk }</code></pre>"

664

else

664

else

665

blk = "\t<p>#{ blk }</p>"

665

blk = "\t<p>#{ blk }</p>"

666

end

666

end

667

end

667

end

668

# hard_break blk

668

# hard_break blk

669

blk + "\n#{ code_blk }"

669

blk + "\n#{ code_blk }"

670

end

670

end

671

end

671

end

672

673

end.join( "\n\n" ) )

673

end.join( "\n\n" ) )

674

end

674

end

675

676

def textile_bq( tag, atts, cite, content )

676

def textile_bq( tag, atts, cite, content )

677

cite, cite_title = check_refs( cite )

677

cite, cite_title = check_refs( cite )

678

cite = " cite=\"#{ cite }\"" if cite

678

cite = " cite=\"#{ cite }\"" if cite

679

atts = shelve( atts ) if atts

679

atts = shelve( atts ) if atts

680

"\t<blockquote#{ cite }>\n\t\t<p#{ atts }>#{ content }</p>\n\t</blockquote>"

680

"\t<blockquote#{ cite }>\n\t\t<p#{ atts }>#{ content }</p>\n\t</blockquote>"

681

end

681

end

682

683

def textile_p( tag, atts, cite, content )

683

def textile_p( tag, atts, cite, content )

684

atts = shelve( atts ) if atts

684

atts = shelve( atts ) if atts

685

"\t<#{ tag }#{ atts }>#{ content }</#{ tag }>"

685

"\t<#{ tag }#{ atts }>#{ content }</#{ tag }>"

686

end

686

end

687

688

alias textile_h1 textile_p

688

alias textile_h1 textile_p

689

alias textile_h2 textile_p

689

alias textile_h2 textile_p

690

alias textile_h3 textile_p

690

alias textile_h3 textile_p

691

alias textile_h4 textile_p

691

alias textile_h4 textile_p

692

alias textile_h5 textile_p

692

alias textile_h5 textile_p

693

alias textile_h6 textile_p

693

alias textile_h6 textile_p

694

695

def textile_fn_( tag, num, atts, cite, content )

695

def textile_fn_( tag, num, atts, cite, content )

696

atts << " id=\"fn#{ num }\" class=\"footnote\""

696

atts << " id=\"fn#{ num }\" class=\"footnote\""

697

content = "<sup>#{ num }</sup> #{ content }"

697

content = "<sup>#{ num }</sup> #{ content }"

698

atts = shelve( atts ) if atts

698

atts = shelve( atts ) if atts

699

"\t<p#{ atts }>#{ content }</p>"

699

"\t<p#{ atts }>#{ content }</p>"

700

end

700

end

701

702

BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m

702

BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m

703

704

def block_textile_prefix( text )

704

def block_textile_prefix( text )

705

if text =~ BLOCK_RE

705

if text =~ BLOCK_RE

706

tag,tagpre,num,atts,cite,content = $~[1..6]

706

tag,tagpre,num,atts,cite,content = $~[1..6]

707

atts = pba( atts )

707

atts = pba( atts )

708

709

# pass to prefix handler

709

# pass to prefix handler

710

if respond_to? "textile_#{ tag }", true

710

if respond_to? "textile_#{ tag }", true

711

text.gsub!( $&, method( "textile_#{ tag }" ).call( tag, atts, cite, content ) )

711

text.gsub!( $&, method( "textile_#{ tag }" ).call( tag, atts, cite, content ) )

712

elsif respond_to? "textile_#{ tagpre }_", true

712

elsif respond_to? "textile_#{ tagpre }_", true

713

text.gsub!( $&, method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) )

713

text.gsub!( $&, method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) )

714

end

714

end

715

end

715

end

716

end

716

end

717

718

SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m

718

SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m

719

def block_markdown_setext( text )

719

def block_markdown_setext( text )

720

if text =~ SETEXT_RE

720

if text =~ SETEXT_RE

721

tag = if $2 == "="; "h1"; else; "h2"; end

721

tag = if $2 == "="; "h1"; else; "h2"; end

722

blk, cont = "<#{ tag }>#{ $1 }</#{ tag }>", $'

722

blk, cont = "<#{ tag }>#{ $1 }</#{ tag }>", $'

723

blocks cont

723

blocks cont

724

text.replace( blk + cont )

724

text.replace( blk + cont )

725

end

725

end

726

end

726

end

727

728

ATX_RE = /\A(\#{1,6}) # $1 = string of #'s

728

ATX_RE = /\A(\#{1,6}) # $1 = string of #'s

729

[ ]*

729

[ ]*

730

(.+?) # $2 = Header text

730

(.+?) # $2 = Header text

731

[ ]*

731

[ ]*

732

\#* # optional closing #'s (not counted)

732

\#* # optional closing #'s (not counted)

733

$/x

733

$/x

734

def block_markdown_atx( text )

734

def block_markdown_atx( text )

735

if text =~ ATX_RE

735

if text =~ ATX_RE

736

tag = "h#{ $1.length }"

736

tag = "h#{ $1.length }"

737

blk, cont = "<#{ tag }>#{ $2 }</#{ tag }>\n\n", $'

737

blk, cont = "<#{ tag }>#{ $2 }</#{ tag }>\n\n", $'

738

blocks cont

738

blocks cont

739

text.replace( blk + cont )

739

text.replace( blk + cont )

740

end

740

end

741

end

741

end

742

743

MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m

743

MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m

744

745

def block_markdown_bq( text )

745

def block_markdown_bq( text )

746

text.gsub!( MARKDOWN_BQ_RE ) do |blk|

746

text.gsub!( MARKDOWN_BQ_RE ) do |blk|

747

blk.gsub!( /^ *> ?/, '' )

747

blk.gsub!( /^ *> ?/, '' )

748

flush_left blk

748

flush_left blk

749

blocks blk

749

blocks blk

750

blk.gsub!( /^(\S)/, "\t\\1" )

750

blk.gsub!( /^(\S)/, "\t\\1" )

751

"<blockquote>\n#{ blk }\n</blockquote>\n\n"

751

"<blockquote>\n#{ blk }\n</blockquote>\n\n"

752

end

752

end

753

end

753

end

754

755

MARKDOWN_RULE_RE = /^(#{

755

MARKDOWN_RULE_RE = /^(#{

756

['*', '-', '_'].collect { |ch| ' ?(' + Regexp::quote( ch ) + ' ?){3,}' }.join( '|' )

756

['*', '-', '_'].collect { |ch| ' ?(' + Regexp::quote( ch ) + ' ?){3,}' }.join( '|' )

757

})$/

757

})$/

758

759

def block_markdown_rule( text )

759

def block_markdown_rule( text )

760

text.gsub!( MARKDOWN_RULE_RE ) do |blk|

760

text.gsub!( MARKDOWN_RULE_RE ) do |blk|

761

"<hr />"

761

"<hr />"

762

end

762

end

763

end

763

end

764

765

# XXX TODO XXX

765

# XXX TODO XXX

766

def block_markdown_lists( text )

766

def block_markdown_lists( text )

767

end

767

end

768

769

def inline_textile_span( text )

769

def inline_textile_span( text )

770

QTAGS.each do |qtag_rc, ht, qtag_re, rtype|

770

QTAGS.each do |qtag_rc, ht, qtag_re, rtype|

771

text.gsub!( qtag_re ) do |m|

771

text.gsub!( qtag_re ) do |m|

772

773

case rtype

773

case rtype

774

when :limit

774

when :limit

775

sta,oqs,qtag,content,oqa = $~[1..6]

775

sta,oqs,qtag,content,oqa = $~[1..6]

776

atts = nil

776

atts = nil

777

if content =~ /^(#{C})(.+)$/

777

if content =~ /^(#{C})(.+)$/

778

atts, content = $~[1..2]

778

atts, content = $~[1..2]

779

end

779

end

780

else

780

else

781

qtag,atts,cite,content = $~[1..4]

781

qtag,atts,cite,content = $~[1..4]

782

sta = ''

782

sta = ''

783

end

783

end

784

atts = pba( atts )

784

atts = pba( atts )

785

atts = shelve( atts ) if atts

785

atts = shelve( atts ) if atts

786

787

"#{ sta }#{ oqs }<#{ ht }#{ atts }>#{ content }</#{ ht }>#{ oqa }"

787

"#{ sta }#{ oqs }<#{ ht }#{ atts }>#{ content }</#{ ht }>#{ oqa }"

788

789

end

789

end

790

end

790

end

791

end

791

end

792

793

LINK_RE = /

793

LINK_RE = /

794

(

794

(

795

([\s\[{(]|[#{PUNCT}])? # $pre

795

([\s\[{(]|[#{PUNCT}])? # $pre

796

" # start

796

" # start

797

(#{C}) # $atts

797

(#{C}) # $atts

798

([^"\n]+?) # $text

798

([^"\n]+?) # $text

799

\s?

799

\s?

800

(?:$([^)]+?)$(?="))? # $title

800

(?:$([^)]+?)$(?="))? # $title

801

":

801

":

802

( # $url

802

( # $url

803

(\/|[a-zA-Z]+:\/\/|www\.|mailto:) # $proto

803

(\/|[a-zA-Z]+:\/\/|www\.|mailto:) # $proto

804

[\w\/]\S+?

804

[\w\/]\S+?

805

)

805

)

806

(\/)? # $slash

806

(\/)? # $slash

807

([^\w\=\/;]*?) # $post

807

([^\w\=\/;]*?) # $post

808

)

808

)

809

(?=<|\s|$)

809

(?=<|\s|$)

810

/x

810

/x

811

#"

811

#"

812

def inline_textile_link( text )

812

def inline_textile_link( text )

813

text.gsub!( LINK_RE ) do |m|

813

text.gsub!( LINK_RE ) do |m|

814

all,pre,atts,text,title,url,proto,slash,post = $~[1..9]

814

all,pre,atts,text,title,url,proto,slash,post = $~[1..9]

815

if text.include?('<br />')

815

if text.include?('<br />')

816

all

816

all

817

else

817

else

818

url, url_title = check_refs( url )

818

url, url_title = check_refs( url )

819

title ||= url_title

819

title ||= url_title

820

821

# Idea below : an URL with unbalanced parethesis and

821

# Idea below : an URL with unbalanced parethesis and

822

# ending by ')' is put into external parenthesis

822

# ending by ')' is put into external parenthesis

823

if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )

823

if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )

824

url=url[0..-2] # discard closing parenth from url

824

url=url[0..-2] # discard closing parenth from url

825

post = ")"+post # add closing parenth to post

825

post = ")"+post # add closing parenth to post

826

end

826

end

827

atts = pba( atts )

827

atts = pba( atts )

828

atts = " href=\"#{ htmlesc url }#{ slash }\"#{ atts }"

828

atts = " href=\"#{ htmlesc url }#{ slash }\"#{ atts }"

829

atts << " title=\"#{ htmlesc title }\"" if title

829

atts << " title=\"#{ htmlesc title }\"" if title

830

atts = shelve( atts ) if atts

830

atts = shelve( atts ) if atts

831

832

external = (url =~ /^https?:\/\//) ? ' class="external"' : ''

832

external = (url =~ /^https?:\/\//) ? ' class="external"' : ''

833

834

"#{ pre }<a#{ atts }#{ external }>#{ text }</a>#{ post }"

834

"#{ pre }<a#{ atts }#{ external }>#{ text }</a>#{ post }"

835

end

835

end

836

end

836

end

837

end

837

end

838

839

MARKDOWN_REFLINK_RE = /

839

MARKDOWN_REFLINK_RE = /

840

\[([^\[\]]+)\] # $text

840

\[([^\[\]]+)\] # $text

841

[ ]? # opt. space

841

[ ]? # opt. space

842

(?:\n[ ]*)? # one optional newline followed by spaces

842

(?:\n[ ]*)? # one optional newline followed by spaces

843

\[(.*?)\] # $id

843

\[(.*?)\] # $id

844

/x

844

/x

845

846

def inline_markdown_reflink( text )

846

def inline_markdown_reflink( text )

847

text.gsub!( MARKDOWN_REFLINK_RE ) do |m|

847

text.gsub!( MARKDOWN_REFLINK_RE ) do |m|

848

text, id = $~[1..2]

848

text, id = $~[1..2]

849

850

if id.empty?

850

if id.empty?

851

url, title = check_refs( text )

851

url, title = check_refs( text )

852

else

852

else

853

url, title = check_refs( id )

853

url, title = check_refs( id )

854

end

854

end

855

856

atts = " href=\"#{ url }\""

856

atts = " href=\"#{ url }\""

857

atts << " title=\"#{ title }\"" if title

857

atts << " title=\"#{ title }\"" if title

858

atts = shelve( atts )

858

atts = shelve( atts )

859

860

"<a#{ atts }>#{ text }</a>"

860

"<a#{ atts }>#{ text }</a>"

861

end

861

end

862

end

862

end

863

864

MARKDOWN_LINK_RE = /

864

MARKDOWN_LINK_RE = /

865

\[([^\[\]]+)\] # $text

865

\[([^\[\]]+)\] # $text

866

\( # open paren

866

\( # open paren

867

[ \t]* # opt space

867

[ \t]* # opt space

868

<?(.+?)>? # $href

868

<?(.+?)>? # $href

869

[ \t]* # opt space

869

[ \t]* # opt space

870

(?: # whole title

870

(?: # whole title

871

(['"]) # $quote

871

(['"]) # $quote

872

(.*?) # $title

872

(.*?) # $title

873

\3 # matching quote

873

\3 # matching quote

874

)? # title is optional

874

)? # title is optional

875

\)

875

\)

876

/x

876

/x

877

878

def inline_markdown_link( text )

878

def inline_markdown_link( text )

879

text.gsub!( MARKDOWN_LINK_RE ) do |m|

879

text.gsub!( MARKDOWN_LINK_RE ) do |m|

880

text, url, quote, title = $~[1..4]

880

text, url, quote, title = $~[1..4]

881

882

atts = " href=\"#{ url }\""

882

atts = " href=\"#{ url }\""

883

atts << " title=\"#{ title }\"" if title

883

atts << " title=\"#{ title }\"" if title

884

atts = shelve( atts )

884

atts = shelve( atts )

885

886

"<a#{ atts }>#{ text }</a>"

886

"<a#{ atts }>#{ text }</a>"

887

end

887

end

888

end

888

end

889

890

TEXTILE_REFS_RE = /(^ *)\[([^\[\n]+?)\](#{HYPERLINK})(?=\s|$)/

890

TEXTILE_REFS_RE = /(^ *)\[([^\[\n]+?)\](#{HYPERLINK})(?=\s|$)/

891

MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+<?(#{HYPERLINK})>?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m

891

MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+<?(#{HYPERLINK})>?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m

892

893

def refs( text )

893

def refs( text )

894

@rules.each do |rule_name|

894

@rules.each do |rule_name|

895

method( rule_name ).call( text ) if rule_name.to_s.match /^refs_/

895

method( rule_name ).call( text ) if rule_name.to_s.match /^refs_/

896

end

896

end

897

end

897

end

898

899

def refs_textile( text )

899

def refs_textile( text )

900

text.gsub!( TEXTILE_REFS_RE ) do |m|

900

text.gsub!( TEXTILE_REFS_RE ) do |m|

901

flag, url = $~[2..3]

901

flag, url = $~[2..3]

902

@urlrefs[flag.downcase] = [url, nil]

902

@urlrefs[flag.downcase] = [url, nil]

903

nil

903

nil

904

end

904

end

905

end

905

end

906

907

def refs_markdown( text )

907

def refs_markdown( text )

908

text.gsub!( MARKDOWN_REFS_RE ) do |m|

908

text.gsub!( MARKDOWN_REFS_RE ) do |m|

909

flag, url = $~[2..3]

909

flag, url = $~[2..3]

910

title = $~[6]

910

title = $~[6]

911

@urlrefs[flag.downcase] = [url, title]

911

@urlrefs[flag.downcase] = [url, title]

912

nil

912

nil

913

end

913

end

914

end

914

end

915

916

def check_refs( text )

916

def check_refs( text )

917

ret = @urlrefs[text.downcase] if text

917

ret = @urlrefs[text.downcase] if text

918

ret || [text, nil]

918

ret || [text, nil]

919

end

919

end

920

921

IMAGE_RE = /

921

IMAGE_RE = /

922

(>|\s|^) # start of line?

922

(>|\s|^) # start of line?

923

\! # opening

923

\! # opening

924

(\<|\=|\>)? # optional alignment atts

924

(\<|\=|\>)? # optional alignment atts

925

(#{C}) # optional style,class atts

925

(#{C}) # optional style,class atts

926

(?:\. )? # optional dot-space

926

(?:\. )? # optional dot-space

927

([^\s(!]+?) # presume this is the src

927

([^\s(!]+?) # presume this is the src

928

\s? # optional space

928

\s? # optional space

929

(?:$((?:[^\($]|$[^$]+\))+?)\))? # optional title

929

(?:$((?:[^\($]|$[^$]+\))+?)\))? # optional title

930

\! # closing

930

\! # closing

931

(?::#{ HYPERLINK })? # optional href

931

(?::#{ HYPERLINK })? # optional href

932

/x

932

/x

933

934

def inline_textile_image( text )

934

def inline_textile_image( text )

935

text.gsub!( IMAGE_RE ) do |m|

935

text.gsub!( IMAGE_RE ) do |m|

936

stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]

936

stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]

937

htmlesc title

937

htmlesc title

938

atts = pba( atts )

938

atts = pba( atts )

939

atts = " src=\"#{ url }\"#{ atts }"

939

atts = " src=\"#{ url }\"#{ atts }"

940

atts << " title=\"#{ title }\"" if title

940

atts << " title=\"#{ title }\"" if title

941

atts << " alt=\"#{ title }\""

941

atts << " alt=\"#{ title }\""

942

# size = @getimagesize($url);

942

# size = @getimagesize($url);

943

# if($size) $atts.= " $size[3]";

943

# if($size) $atts.= " $size[3]";

944

945

href, alt_title = check_refs( href ) if href

945

href, alt_title = check_refs( href ) if href

946

url, url_title = check_refs( url )

946

url, url_title = check_refs( url )

947

948

out = ''

948

out = ''

949

out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href

949

out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href

950

out << "<img#{ shelve( atts ) } />"

950

out << "<img#{ shelve( atts ) } />"

951

out << "</a>#{ href_a1 }#{ href_a2 }" if href

951

out << "</a>#{ href_a1 }#{ href_a2 }" if href

952

953

if algn

953

if algn

954

algn = h_align( algn )

954

algn = h_align( algn )

955

if stln == "<p>"

955

if stln == "<p>"

956

out = "<p style=\"float:#{ algn }\">#{ out }"

956

out = "<p style=\"float:#{ algn }\">#{ out }"

957

else

957

else

958

out = "#{ stln }<div style=\"float:#{ algn }\">#{ out }</div>"

958

out = "#{ stln }<div style=\"float:#{ algn }\">#{ out }</div>"

959

end

959

end

960

else

960

else

961

out = stln + out

961

out = stln + out

962

end

962

end

963

964

out

964

out

965

end

965

end

966

end

966

end

967

968

def shelve( val )

968

def shelve( val )

969

@shelf << val

969

@shelf << val

970

" :redsh##{ @shelf.length }:"

970

" :redsh##{ @shelf.length }:"

971

end

971

end

972

973

def retrieve( text )

973

def retrieve( text )

974

@shelf.each_with_index do |r, i|

974

@shelf.each_with_index do |r, i|

975

text.gsub!( " :redsh##{ i + 1 }:", r )

975

text.gsub!( " :redsh##{ i + 1 }:", r )

976

end

976

end

977

end

977

end

978

979

def incoming_entities( text )

979

def incoming_entities( text )

980

## turn any incoming ampersands into a dummy character for now.

980

## turn any incoming ampersands into a dummy character for now.

981

## This uses a negative lookahead for alphanumerics followed by a semicolon,

981

## This uses a negative lookahead for alphanumerics followed by a semicolon,

982

## implying an incoming html entity, to be skipped

982

## implying an incoming html entity, to be skipped

983

984

text.gsub!( /&(?![#a-z0-9]+;)/i, "x%x%" )

984

text.gsub!( /&(?![#a-z0-9]+;)/i, "x%x%" )

985

end

985

end

986

987

def no_textile( text )

987

def no_textile( text )

988

text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/,

988

text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/,

989

'\1<notextile>\2</notextile>\3' )

989

'\1<notextile>\2</notextile>\3' )

990

text.gsub!( /^ *==([^=]+.*?)==/m,

990

text.gsub!( /^ *==([^=]+.*?)==/m,

991

'\1<notextile>\2</notextile>\3' )

991

'\1<notextile>\2</notextile>\3' )

992

end

992

end

993

994

def clean_white_space( text )

994

def clean_white_space( text )

995

# normalize line breaks

995

# normalize line breaks

996

text.gsub!( /\r\n/, "\n" )

996

text.gsub!( /\r\n/, "\n" )

997

text.gsub!( /\r/, "\n" )

997

text.gsub!( /\r/, "\n" )

998

text.gsub!( /\t/, ' ' )

998

text.gsub!( /\t/, ' ' )

999

text.gsub!( /^ +$/, '' )

999

text.gsub!( /^ +$/, '' )

1000

text.gsub!( /\n{3,}/, "\n\n" )

1000

text.gsub!( /\n{3,}/, "\n\n" )

1001

text.gsub!( /"$/, "\" " )

1001

text.gsub!( /"$/, "\" " )

1002

1003

# if entire document is indented, flush

1003

# if entire document is indented, flush

1004

# to the left side

1004

# to the left side

1005

flush_left text

1005

flush_left text

1006

end

1006

end

1007

1008

def flush_left( text )

1008

def flush_left( text )

1009

indt = 0

1009

indt = 0

1010

if text =~ /^ /

1010

if text =~ /^ /

1011

while text !~ /^ {#{indt}}\S/

1011

while text !~ /^ {#{indt}}\S/

1012

indt += 1

1012

indt += 1

1013

end unless text.empty?

1013

end unless text.empty?

1014

if indt.nonzero?

1014

if indt.nonzero?

1015

text.gsub!( /^ {#{indt}}/, '' )

1015

text.gsub!( /^ {#{indt}}/, '' )

1016

end

1016

end

1017

end

1017

end

1018

end

1018

end

1019

1020

def footnote_ref( text )

1020

def footnote_ref( text )

1021

text.gsub!( /\b\[([0-9]+?)\](\s)?/,

1021

text.gsub!( /\b\[([0-9]+?)\](\s)?/,

1022

'<sup><a href="#fn\1">\1</a></sup>\2' )

1022

'<sup><a href="#fn\1">\1</a></sup>\2' )

1023

end

1023

end

1024

1025

OFFTAGS = /(code|pre|kbd|notextile)/

1025

OFFTAGS = /(code|pre|kbd|notextile)/

1026

OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }>)|(<#{ OFFTAGS }[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }\W|\Z)/mi

1026

OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }>)|(<#{ OFFTAGS }[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }\W|\Z)/mi

1027

OFFTAG_OPEN = /<#{ OFFTAGS }/

1027

OFFTAG_OPEN = /<#{ OFFTAGS }/

1028

OFFTAG_CLOSE = /<\/?#{ OFFTAGS }/

1028

OFFTAG_CLOSE = /<\/?#{ OFFTAGS }/

1029

HASTAG_MATCH = /(<\/?\w[^\n]*?>)/m

1029

HASTAG_MATCH = /(<\/?\w[^\n]*?>)/m

1030

ALLTAG_MATCH = /(<\/?\w[^\n]*?>)|.*?(?=<\/?\w[^\n]*?>|$)/m

1030

ALLTAG_MATCH = /(<\/?\w[^\n]*?>)|.*?(?=<\/?\w[^\n]*?>|$)/m

1031

1032

def glyphs_textile( text, level = 0 )

1032

def glyphs_textile( text, level = 0 )

1033

if text !~ HASTAG_MATCH

1033

if text !~ HASTAG_MATCH

1034

pgl text

1034

pgl text

1035

footnote_ref text

1035

footnote_ref text

1036

else

1036

else

1037

codepre = 0

1037

codepre = 0

1038

text.gsub!( ALLTAG_MATCH ) do |line|

1038

text.gsub!( ALLTAG_MATCH ) do |line|

1039

## matches are off if we're between <code>, <pre> etc.

1039

## matches are off if we're between <code>, <pre> etc.

1040

if $1

1040

if $1

1041

if line =~ OFFTAG_OPEN

1041

if line =~ OFFTAG_OPEN

1042

codepre += 1

1042

codepre += 1

1043

elsif line =~ OFFTAG_CLOSE

1043

elsif line =~ OFFTAG_CLOSE

1044

codepre -= 1

1044

codepre -= 1

1045

codepre = 0 if codepre < 0

1045

codepre = 0 if codepre < 0

1046

end

1046

end

1047

elsif codepre.zero?

1047

elsif codepre.zero?

1048

glyphs_textile( line, level + 1 )

1048

glyphs_textile( line, level + 1 )

1049

else

1049

else

1050

htmlesc( line, :NoQuotes )

1050

htmlesc( line, :NoQuotes )

1051

end

1051

end

1052

# p [level, codepre, line]

1052

# p [level, codepre, line]

1053

1054

line

1054

line

1055

end

1055

end

1056

end

1056

end

1057

end

1057

end

1058

1059

def rip_offtags( text, escape_aftertag=true )

1059

def rip_offtags( text, escape_aftertag=true )

1060

if text =~ /<.*>/

1060

if text =~ /<.*>/

1061

## strip and encode <pre> content

1061

## strip and encode <pre> content

1062

codepre, used_offtags = 0, {}

1062

codepre, used_offtags = 0, {}

1063

text.gsub!( OFFTAG_MATCH ) do |line|

1063

text.gsub!( OFFTAG_MATCH ) do |line|

1064

if $3

1064

if $3

1065

first, offtag, aftertag = $3, $4, $5

1065

first, offtag, aftertag = $3, $4, $5

1066

codepre += 1

1066

codepre += 1

1067

used_offtags[offtag] = true

1067

used_offtags[offtag] = true

1068

if codepre - used_offtags.length > 0

1068

if codepre - used_offtags.length > 0

1069

htmlesc( line, :NoQuotes )

1069

htmlesc( line, :NoQuotes )

1070

@pre_list.last << line

1070

@pre_list.last << line

1071

line = ""

1071

line = ""

1072

else

1072

else

1073

### htmlesc is disabled between CODE tags which will be parsed with highlighter

1073

### htmlesc is disabled between CODE tags which will be parsed with highlighter

1074

### Regexp in formatter.rb is : /<code\s+class="(\w+)">\s?(.+)/m

1074

### Regexp in formatter.rb is : /<code\s+class="(\w+)">\s?(.+)/m

1075

### NB: some changes were made not to use $N variables, because we use "match"

1075

### NB: some changes were made not to use $N variables, because we use "match"

1076

### and it breaks following lines

1076

### and it breaks following lines

1077

htmlesc( aftertag, :NoQuotes ) if aftertag && escape_aftertag && !first.match(/<code\s+class="(\w+)">/)

1077

htmlesc( aftertag, :NoQuotes ) if aftertag && escape_aftertag && !first.match(/<code\s+class="(\w+)">/)

1078

line = "<redpre##{ @pre_list.length }>"

1078

line = "<redpre##{ @pre_list.length }>"

1079

first.match(/<#{ OFFTAGS }([^>]*)>/)

1079

first.match(/<#{ OFFTAGS }([^>]*)>/)

1080

tag = $1

1080

tag = $1

1081

$2.to_s.match(/(class\=\S+)/i)

1081

$2.to_s.match(/(class\=\S+)/i)

1082

tag << " #{$1}" if $1

1082

tag << " #{$1}" if $1

1083

@pre_list << "<#{ tag }>#{ aftertag }"

1083

@pre_list << "<#{ tag }>#{ aftertag }"

1084

end

1084

end

1085

elsif $1 and codepre > 0

1085

elsif $1 and codepre > 0

1086

if codepre - used_offtags.length > 0

1086

if codepre - used_offtags.length > 0

1087

htmlesc( line, :NoQuotes )

1087

htmlesc( line, :NoQuotes )

1088

@pre_list.last << line

1088

@pre_list.last << line

1089

line = ""

1089

line = ""

1090

end

1090

end

1091

codepre -= 1 unless codepre.zero?

1091

codepre -= 1 unless codepre.zero?

1092

used_offtags = {} if codepre.zero?

1092

used_offtags = {} if codepre.zero?

1093

end

1093

end

1094

line

1094

line

1095

end

1095

end

1096

end

1096

end

1097

text

1097

text

1098

end

1098

end

1099

1100

def smooth_offtags( text )

1100

def smooth_offtags( text )

1101

unless @pre_list.empty?

1101

unless @pre_list.empty?

1102

## replace <pre> content

1102

## replace <pre> content

1103

text.gsub!( /<redpre#(\d+)>/ ) { @pre_list[$1.to_i] }

1103

text.gsub!( /<redpre#(\d+)>/ ) { @pre_list[$1.to_i] }

1104

end

1104

end

1105

end

1105

end

1106

1107

def inline( text )

1107

def inline( text )

1108

[/^inline_/, /^glyphs_/].each do |meth_re|

1108

[/^inline_/, /^glyphs_/].each do |meth_re|

1109

@rules.each do |rule_name|

1109

@rules.each do |rule_name|

1110

method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )

1110

method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )

1111

end

1111

end

1112

end

1112

end

1113

end

1113

end

1114

1115

def h_align( text )

1115

def h_align( text )

1116

H_ALGN_VALS[text]

1116

H_ALGN_VALS[text]

1117

end

1117

end

1118

1119

def v_align( text )

1119

def v_align( text )

1120

V_ALGN_VALS[text]

1120

V_ALGN_VALS[text]

1121

end

1121

end

1122

1123

def textile_popup_help( name, windowW, windowH )

1123

def textile_popup_help( name, windowW, windowH )

1124

' <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 />'

1124

' <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 />'

1125

end

1125

end

1126

1127

# HTML cleansing stuff

1127

# HTML cleansing stuff

1128

BASIC_TAGS = {

1128

BASIC_TAGS = {

1129

'a' => ['href', 'title'],

1129

'a' => ['href', 'title'],

1130

'img' => ['src', 'alt', 'title'],

1130

'img' => ['src', 'alt', 'title'],

1131

'br' => [],

1131

'br' => [],

1132

'i' => nil,

1132

'i' => nil,

1133

'u' => nil,

1133

'u' => nil,

1134

'b' => nil,

1134

'b' => nil,

1135

'pre' => nil,

1135

'pre' => nil,

1136

'kbd' => nil,

1136

'kbd' => nil,

1137

'code' => ['lang'],

1137

'code' => ['lang'],

1138

'cite' => nil,

1138

'cite' => nil,

1139

'strong' => nil,

1139

'strong' => nil,

1140

'em' => nil,

1140

'em' => nil,

1141

'ins' => nil,

1141

'ins' => nil,

1142

'sup' => nil,

1142

'sup' => nil,

1143

'sub' => nil,

1143

'sub' => nil,

1144

'del' => nil,

1144

'del' => nil,

1145

'table' => nil,

1145

'table' => nil,

1146

'tr' => nil,

1146

'tr' => nil,

1147

'td' => ['colspan', 'rowspan'],

1147

'td' => ['colspan', 'rowspan'],

1148

'th' => nil,

1148

'th' => nil,

1149

'ol' => nil,

1149

'ol' => nil,

1150

'ul' => nil,

1150

'ul' => nil,

1151

'li' => nil,

1151

'li' => nil,

1152

'p' => nil,

1152

'p' => nil,

1153

'h1' => nil,

1153

'h1' => nil,

1154

'h2' => nil,

1154

'h2' => nil,

1155

'h3' => nil,

1155

'h3' => nil,

1156

'h4' => nil,

1156

'h4' => nil,

1157

'h5' => nil,

1157

'h5' => nil,

1158

'h6' => nil,

1158

'h6' => nil,

1159

'blockquote' => ['cite']

1159

'blockquote' => ['cite']

1160

}

1160

}

1161

1162

def clean_html( text, tags = BASIC_TAGS )

1162

def clean_html( text, tags = BASIC_TAGS )

1163

text.gsub!( /<!\[CDATA\[/, '' )

1163

text.gsub!( /<!\[CDATA\[/, '' )

1164

text.gsub!( /<(\/*)(\w+)([^>]*)>/ ) do

1164

text.gsub!( /<(\/*)(\w+)([^>]*)>/ ) do

1165

raw = $~

1165

raw = $~

1166

tag = raw[2].downcase

1166

tag = raw[2].downcase

1167

if tags.has_key? tag

1167

if tags.has_key? tag

1168

pcs = [tag]

1168

pcs = [tag]

1169

tags[tag].each do |prop|

1169

tags[tag].each do |prop|

1170

['"', "'", ''].each do |q|

1170

['"', "'", ''].each do |q|

1171

q2 = ( q != '' ? q : '\s' )

1171

q2 = ( q != '' ? q : '\s' )

1172

if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i

1172

if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i

1173

attrv = $1

1173

attrv = $1

1174

next if prop == 'src' and attrv =~ %r{^(?!http)\w+:}

1174

next if prop == 'src' and attrv =~ %r{^(?!http)\w+:}

1175

pcs << "#{prop}=\"#{$1.gsub('"', '\\"')}\""

1175

pcs << "#{prop}=\"#{$1.gsub('"', '\\"')}\""

1176

break

1176

break

1177

end

1177

end

1178

end

1178

end

1179

end if tags[tag]

1179

end if tags[tag]

1180

"<#{raw[1]}#{pcs.join " "}>"

1180

"<#{raw[1]}#{pcs.join " "}>"

1181

else

1181

else

1182

" "

1182

" "

1183

end

1183

end

1184

end

1184

end

1185

end

1185

end

1186

1187

ALLOWED_TAGS = %w(redpre pre code notextile)

1187

ALLOWED_TAGS = %w(redpre pre code notextile)

1188

1189

def escape_html_tags(text)

1189

def escape_html_tags(text)

1190

text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "<#{$1}#{'>' unless $3.blank?}" }

1190

text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "<#{$1}#{'>' unless $3.blank?}" }

1191

end

1191

end

1192

end

1192

end

1193

	Site-wide shortcuts
/	Use quick search box
g h	Goto home page
g g	Goto my private gists page
g G	Goto my public gists page
g 0-9	Goto bookmarked items from 0-9
n r	New repository page
n g	New gist page

	Repositories
g s	Goto summary page
g c	Goto changelog page
g f	Goto files page
g F	Goto files page with file search activated
g p	Goto pull requests page
g o	Goto repository settings
g O	Goto repository access permissions settings
t s	Toggle sidebar on some pages

             #                                vim:ts=4:sw=4:
             # = RedCloth - Textile and Markdown Hybrid for Ruby
             #
             # Homepage::  http://whytheluckystiff.net/ruby/redcloth/
             # Author::    why the lucky stiff (http://whytheluckystiff.net/)
             # Copyright:: (cc) 2004 why the lucky stiff (and his puppet organizations.)
             # License::   BSD
             #
             # (see http://hobix.com/textile/ for a Textile Reference.)
             #
             # Based on (and also inspired by) both:
             #
             # PyTextile: http://diveintomark.org/projects/textile/textile.py.txt
             # Textism for PHP: http://www.textism.com/tools/textile/
             #
             #
             # = RedCloth
             #
             # RedCloth is a Ruby library for converting Textile and/or Markdown
             # into HTML.  You can use either format, intermingled or separately.
             # You can also extend RedCloth to honor your own custom text stylings.
             #
             # RedCloth users are encouraged to use Textile if they are generating
             # HTML and to use Markdown if others will be viewing the plain text.
             #
             # == What is Textile?
             #
             # Textile is a simple formatting style for text
             # documents, loosely based on some HTML conventions.
             #
             # == Sample Textile Text
             #
             #  h2. This is a title
             #
             #  h3. This is a subhead
             #
             #  This is a bit of paragraph.
             #
             #  bq. This is a blockquote.
             #
             # = Writing Textile
             #
             # A Textile document consists of paragraphs.  Paragraphs
             # can be specially formatted by adding a small instruction
             # to the beginning of the paragraph.
             #
             #  h[n].   Header of size [n].
             #  bq.     Blockquote.
             #  #       Numeric list.
             #  *       Bulleted list.
             #
             # == Quick Phrase Modifiers
             #
             # Quick phrase modifiers are also included, to allow formatting
             # of small portions of text within a paragraph.
             #
             #  \_emphasis\_
             #  \_\_italicized\_\_
             #  \*strong\*
             #  \*\*bold\*\*
             #  ??citation??
             #  -deleted text-
             #  +inserted text+
             #  ^superscript^
             #  ~subscript~
             #  @code@
             #  %(classname)span%
             #
             #  ==notextile== (leave text alone)
             #
             # == Links
             #
             # To make a hypertext link, put the link text in "quotation
             # marks" followed immediately by a colon and the URL of the link.
             #
             # Optional: text in (parentheses) following the link text,
             # but before the closing quotation mark, will become a Title
             # attribute for the link, visible as a tool tip when a cursor is above it.
             #
             # Example:
             #
             #  "This is a link (This is a title) ":http://www.textism.com
             #
             # Will become:
             #
             #  <a href="http://www.textism.com" title="This is a title">This is a link</a>
             #
             # == Images
             #
             # To insert an image, put the URL for the image inside exclamation marks.
             #
             # Optional: text that immediately follows the URL in (parentheses) will
             # be used as the Alt text for the image. Images on the web should always
             # have descriptive Alt text for the benefit of readers using non-graphical
             # browsers.
             #
             # Optional: place a colon followed by a URL immediately after the
             # closing ! to make the image into a link.
             #
             # Example:
             #
             #  !http://www.textism.com/common/textist.gif(Textist)!
             #
             # Will become:
             #
             #  <img src="http://www.textism.com/common/textist.gif" alt="Textist" />
             #
             # With a link:
             #
             #  !/common/textist.gif(Textist)!:http://textism.com
             #
             # Will become:
             #
             #  <a href="http://textism.com"><img src="/common/textist.gif" alt="Textist" /></a>
             #
             # == Defining Acronyms
             #
             # HTML allows authors to define acronyms via the tag. The definition appears as a
             # tool tip when a cursor hovers over the acronym. A crucial aid to clear writing,
             # this should be used at least once for each acronym in documents where they appear.
             #
             # To quickly define an acronym in Textile, place the full text in (parentheses)
             # immediately following the acronym.
             #
             # Example:
             #
             #  ACLU(American Civil Liberties Union)
             #
             # Will become:
             #
             #  <acronym title="American Civil Liberties Union">ACLU</acronym>
             #
             # == Adding Tables
             #
             # In Textile, simple tables can be added by seperating each column by
             # a pipe.
             #
             #     |a|simple|table|row|
             #     |And|Another|table|row|
             #
             # Attributes are defined by style definitions in parentheses.
             #
             #     table(border:1px solid black).
             #     (background:#ddd;color:red). |{}| | | |
             #
             # == Using RedCloth
             #
             # RedCloth is simply an extension of the String class, which can handle
             # Textile formatting.  Use it like a String and output HTML with its
             # RedCloth#to_html method.
             #
             #  doc = RedCloth.new "
             #
             #  h2. Test document
             #
             #  Just a simple test."
             #
             #  puts doc.to_html
             #
             # By default, RedCloth uses both Textile and Markdown formatting, with
             # Textile formatting taking precedence.  If you want to turn off Markdown
             # formatting, to boost speed and limit the processor:
             #
             #  class RedCloth::Textile.new( str )
             class RedCloth3 < String
                 VERSION = '3.0.4'
                 DEFAULT_RULES = [:textile, :markdown]
                 #
                 # 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 hard breaks.
                 #
                 # If +:hard_breaks+ is set, single newlines will
                 # be converted to HTML break tags.  This is the
                 # default behavior for traditional RedCloth.
                 #
                 attr_accessor :hard_breaks
                 # Accessor for toggling lite mode.
                 #
                 # In lite mode, block-level rules are ignored.  This means
                 # that tables, paragraphs, lists, and such aren't available.
                 # Only the inline markup for bold, italics, entities and so on.
                 #
                 #   r = RedCloth.new( "And then? She *fell*!", [:lite_mode] )
                 #   r.to_html
                 #   #=> "And then? She <strong>fell</strong>!"
                 #
                 attr_accessor :lite_mode
                 #
                 # Accessor for toggling span caps.
                 #
                 # Textile places `span' tags around capitalized
                 # words by default, but this wreaks havoc on Wikis.
                 # If +:no_span_caps+ is set, this will be
                 # suppressed.
                 #
                 attr_accessor :no_span_caps
                 #
                 # Establishes the markup predence.  Available rules include:
                 #
                 # == Textile Rules
                 #
                 # The following textile rules can be set individually.  Or add the complete
                 # set of rules with the single :textile rule, which supplies the rule set in
                 # the following precedence:
                 #
                 # refs_textile::          Textile references (i.e. [hobix]http://hobix.com/)
                 # block_textile_table::   Textile table block structures
                 # block_textile_lists::   Textile list structures
                 # block_textile_prefix::  Textile blocks with prefixes (i.e. bq., h2., etc.)
                 # inline_textile_image::  Textile inline images
                 # inline_textile_link::   Textile inline links
                 # inline_textile_span::   Textile inline spans
                 # glyphs_textile:: Textile entities (such as em-dashes and smart quotes)
                 #
                 # == Markdown
                 #
                 # refs_markdown::         Markdown references (for example: [hobix]: http://hobix.com/)
                 # block_markdown_setext:: Markdown setext headers
                 # block_markdown_atx::    Markdown atx headers
                 # block_markdown_rule::   Markdown horizontal rules
                 # block_markdown_bq::     Markdown blockquotes
                 # block_markdown_lists::  Markdown lists
                 # inline_markdown_link::  Markdown links
                 attr_accessor :rules
                 # Returns a new RedCloth object, based on _string_ and
                 # enforcing all the included _restrictions_.
                 #
                 #   r = RedCloth.new( "h1. A <b>bold</b> man", [:filter_html] )
                 #   r.to_html
                 #     #=>"<h1>A &lt;b&gt;bold&lt;/b&gt; man</h1>"
                 #
                 def initialize( string, restrictions = [] )
                     restrictions.each { |r| method( "#{ r }=" ).call( true ) }
                     super( string )
                 end
                 #
                 # Generates HTML from the Textile contents.
                 #
                 #   r = RedCloth.new( "And then? She *fell*!" )
                 #   r.to_html( true )
                 #     #=>"And then? She <strong>fell</strong>!"
                 #
                 def to_html( *rules )
                     rules = DEFAULT_RULES if rules.empty?
                     # make our working copy
                     text = self.dup
                     @urlrefs = {}
                     @shelf = []
                     textile_rules = [:block_textile_table, :block_textile_lists,
                                      :block_textile_prefix, :inline_textile_image, :inline_textile_link,
                                      :inline_textile_code, :inline_textile_span, :glyphs_textile]
                     markdown_rules = [:refs_markdown, :block_markdown_setext, :block_markdown_atx, :block_markdown_rule,
                                       :block_markdown_bq, :block_markdown_lists,
                                       :inline_markdown_reflink, :inline_markdown_link]
                     @rules = rules.collect do |rule|
                         case rule
                         when :markdown
                             markdown_rules
                         when :textile
                             textile_rules
                         else
                             rule
                         end
                     end.flatten
                     # standard clean up
                     incoming_entities text
                     clean_white_space text
                     # start processor
                     @pre_list = []
                     rip_offtags text
                     no_textile text
                     escape_html_tags text
                     hard_break text
                     unless @lite_mode
                         refs text
                         # need to do this before text is split by #blocks
                         block_textile_quotes text
                         blocks text
                     end
                     inline text
                     smooth_offtags text
                     retrieve text
                     text.gsub!( /<\/?notextile>/, '' )
                     text.gsub!( /x%x%/, '&#38;' )
                     clean_html text if filter_html
                     text.strip!
                     text
                 end
                 #######
                 private
                 #######
                 #
                 # Mapping of 8-bit ASCII codes to HTML numerical entity equivalents.
                 # (from PyTextile)
                 #
                 TEXTILE_TAGS =
                     [[128, 8364], [129, 0], [130, 8218], [131, 402], [132, 8222], [133, 8230],
                      [134, 8224], [135, 8225], [136, 710], [137, 8240], [138, 352], [139, 8249],
                      [140, 338], [141, 0], [142, 0], [143, 0], [144, 0], [145, 8216], [146, 8217],
                      [147, 8220], [148, 8221], [149, 8226], [150, 8211], [151, 8212], [152, 732],
                      [153, 8482], [154, 353], [155, 8250], [156, 339], [157, 0], [158, 0], [159, 376]].
                     collect! do |a, b|
                         [a.chr, ( b.zero? and "" or "&#{ b };" )]
                     end
                 #
                 # 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( '!"#$%&\'*+,-./:;=?@\\^_`|~' )
                 PUNCT_NOQ = Regexp::quote( '!"#$&\',./:;=?@\\`|' )
                 PUNCT_Q = Regexp::quote( '*-_+^~%' )
                 HYPERLINK = '(\S+?)([^\w\s/;=\?]*?)(?=\s|<|$)'
                 # Text markup tags, don't conflict with block tags
                 SIMPLE_HTML_TAGS = [
                     'tt', 'b', 'i', 'big', 'small', 'em', 'strong', 'dfn', 'code',
                     'samp', 'kbd', 'var', 'cite', 'abbr', 'acronym', 'a', 'img', 'br',
                     'br', 'map', 'q', 'sub', 'sup', 'span', 'bdo'
                 ]
                 QTAGS = [
                     ['**', 'b', :limit],
                     ['*', 'strong', :limit],
                     ['??', 'cite', :limit],
                     ['-', 'del', :limit],
                     ['__', 'i', :limit],
                     ['_', 'em', :limit],
                     ['%', 'span', :limit],
                     ['+', 'ins', :limit],
                     ['^', 'sup', :limit],
                     ['~', 'sub', :limit]
                 ]
                 QTAGS_JOIN = QTAGS.map {|rc, ht, rtype| Regexp::quote rc}.join('|')
                 QTAGS.collect! do |rc, ht, rtype|
                     rcq = Regexp::quote rc
                     re =
                         case rtype
                         when :limit
                             /(^|[>\s\(])          # sta
                             (?!\-\-)
                             (#{QTAGS_JOIN}|)      # oqs
                             (#{rcq})              # qtag
                             (\w|[^\s].*?[^\s])    # content
                             (?!\-\-)
                             #{rcq}
                             (#{QTAGS_JOIN}|)      # oqa
-                            (?=[[:punct:]]|\s|\)|$)/x
+                            (?=[[:punct:]]|<|\s|\)|$)/x
                         else
                             /(#{rcq})
                             (#{C})
                             (?::(\S+))?
                             (\w|[^\s\-].*?[^\s\-])
                             #{rcq}/xm
                         end
                     [rc, ht, re, rtype]
                 end
                 # Elements to handle
                 GLYPHS = [
                 #   [ /([^\s\[{(>])?\'([dmst]\b|ll\b|ve\b|\s|:|$)/, '\1&#8217;\2' ], # single closing
                 #   [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)\'/, '\1&#8217;' ], # single closing
                 #   [ /\'(?=[#{PUNCT_Q}]*(s\b|[\s#{PUNCT_NOQ}]))/, '&#8217;' ], # single closing
                 #   [ /\'/, '&#8216;' ], # single opening
                 #   [ /</, '&lt;' ], # less-than
                 #   [ />/, '&gt;' ], # greater-than
                 #   [ /([^\s\[{(])?"(\s|:|$)/, '\1&#8221;\2' ], # double closing
                 #   [ /([^\s\[{(>#{PUNCT_Q}][#{PUNCT_Q}]*)"/, '\1&#8221;' ], # double closing
                 #   [ /"(?=[#{PUNCT_Q}]*[\s#{PUNCT_NOQ}])/, '&#8221;' ], # double closing
                 #   [ /"/, '&#8220;' ], # double opening
                 #   [ /\b( )?\.{3}/, '\1&#8230;' ], # ellipsis
                 #   [ /\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/, '<acronym title="\2">\1</acronym>' ], # 3+ uppercase acronym
                 #   [ /(^|[^"][>\s])([A-Z][A-Z0-9 ]+[A-Z0-9])([^<A-Za-z0-9]|$)/, '\1<span class="caps">\2</span>\3', :no_span_caps ], # 3+ uppercase caps
                 #   [ /(\.\s)?\s?--\s?/, '\1&#8212;' ], # em dash
                 #   [ /\s->\s/, ' &rarr; ' ], # right arrow
                 #   [ /\s-\s/, ' &#8211; ' ], # en dash
                 #   [ /(\d+) ?x ?(\d+)/, '\1&#215;\2' ], # dimension sign
                 #   [ /\b ?[(\[]TM[\])]/i, '&#8482;' ], # trademark
                 #   [ /\b ?[(\[]R[\])]/i, '&#174;' ], # registered
                 #   [ /\b ?[(\[]C[\])]/i, '&#169;' ] # copyright
                 ]
                 H_ALGN_VALS = {
                     '<' => 'left',
                     '=' => 'center',
                     '>' => 'right',
                     '<>' => 'justify'
                 }
                 V_ALGN_VALS = {
                     '^' => 'top',
                     '-' => 'middle',
                     '~' => 'bottom'
                 }
                 #
                 # Flexible HTML escaping
                 #
                 def htmlesc( str, mode=:Quotes )
                   if str
                     str.gsub!( '&', '&amp;' )
                     str.gsub!( '"', '&quot;' ) if mode != :NoQuotes
                     str.gsub!( "'", '&#039;' ) if mode == :Quotes
                     str.gsub!( '<', '&lt;')
                     str.gsub!( '>', '&gt;')
                   end
                   str
                 end
                 # Search and replace for Textile glyphs (quotes, dashes, other symbols)
                 def pgl( text )
                     #GLYPHS.each do |re, resub, tog|
                     #    next if tog and method( tog ).call
                     #    text.gsub! re, resub
                     #end
                     text.gsub!(/\b([A-Z][A-Z0-9]{2,})\b(?:[(]([^)]*)[)])/) do |m|
                       "<acronym title=\"#{htmlesc $2}\">#{$1}</acronym>"
                     end
                 end
                 # Parses Textile attribute lists and builds an HTML attribute string
                 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 << "#{ htmlesc $1 };" if text.sub!( /\{([^}]*)\}/, '' ) && !filter_styles
                     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
                 TABLE_RE = /^(?:table(_?#{S}#{A}#{C})\. ?\n)?^(#{A}#{C}\.? ?\|.*?\|)(\n\n|\Z)/m
                 # Parses a Textile table block, building HTML from the result.
                 def block_textile_table( text )
                     text.gsub!( TABLE_RE ) do |matches|
                         tatts, fullrow = $~[1..2]
                         tatts = pba( tatts, 'table' )
                         tatts = shelve( tatts ) if tatts
                         rows = []
                         fullrow.each_line do |row|
                             ratts, row = pba( $1, 'tr' ), $2 if row =~ /^(#{A}#{C}\. )(.*)/m
                             cells = []
                             row.split( /(\|)(?![^\[\|]*\]\])/ )[1..-2].each do |cell|
                                 next if cell == '|'
                                 ctyp = 'd'
                                 ctyp = 'h' if cell =~ /^_/
                                 catts = ''
                                 catts, cell = pba( $1, 'td' ), $2 if cell =~ /^(_?#{S}#{A}#{C}\. ?)(.*)/
                                 catts = shelve( catts ) if catts
                                 cells << "\t\t\t<t#{ ctyp }#{ catts }>#{ cell }</t#{ ctyp }>"
                             end
                             ratts = shelve( ratts ) if ratts
                             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
                 LISTS_RE = /^([#*]+?#{C} .*?)$(?![^#*])/m
                 LISTS_CONTENT_RE = /^([#*]+)(#{A}#{C}) (.*)$/m
                 # Parses Textile lists and generates HTML
                 def block_textile_lists( text )
                     text.gsub!( LISTS_RE ) do |match|
                         lines = match.split( /\n/ )
                         last_line = -1
                         depth = []
                         lines.each_with_index do |line, line_id|
                             if line =~ LISTS_CONTENT_RE
                                 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] << "</li>\n\t</#{ lT( depth[i] ) }l>\n\t"
                                             depth.pop
                                         end
                                     end
                                     if depth.last and depth.last.length == tl.length
                                         lines[line_id - 1] << '</li>'
                                     end
                                 end
                                 unless depth.last == tl
                                     depth << tl
                                     atts = pba( atts )
                                     atts = shelve( atts ) if atts
                                     lines[line_id] = "\t<#{ lT(tl) }l#{ atts }>\n\t<li>#{ content }"
                                 else
                                     lines[line_id] = "\t\t<li>#{ content }"
                                 end
                                 last_line = line_id
                             else
                                 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] << "</li>\n\t</#{ lT( v ) }l>"
                                 end
                             end
                         end
                         lines.join( "\n" )
                     end
                 end
                 QUOTES_RE = /(^>+([^\n]*?)(\n|$))+/m
                 QUOTES_CONTENT_RE = /^([> ]+)(.*)$/m
                 def block_textile_quotes( text )
                   text.gsub!( QUOTES_RE ) do |match|
                     lines = match.split( /\n/ )
                     quotes = ''
                     indent = 0
                     lines.each do |line|
                       line =~ QUOTES_CONTENT_RE
                       bq,content = $1, $2
                       l = bq.count('>')
                       if l != indent
                         quotes << ("\n\n" + (l>indent ? '<blockquote>' * (l-indent) : '</blockquote>' * (indent-l)) + "\n\n")
                         indent = l
                       end
                       quotes << (content + "\n")
                     end
                     quotes << ("\n" + '</blockquote>' * indent + "\n\n")
                     quotes
                   end
                 end
                 CODE_RE = /(\W)
                     @
                     (?:\|(\w+?)\|)?
                     (.+?)
                     @
                     (?=\W)/x
                 def inline_textile_code( text )
                     text.gsub!( CODE_RE ) do |m|
                         before,lang,code,after = $~[1..4]
                         lang = " lang=\"#{ lang }\"" if lang
                         rip_offtags( "#{ before }<code#{ lang }>#{ code }</code>#{ after }", false )
                     end
                 end
                 def lT( text )
                     text =~ /\#$/ ? 'o' : 'u'
                 end
                 def hard_break( text )
                     text.gsub!( /(.)\n(?!\Z| *([#*=]+(\s|$)|[{|]))/, "\\1<br />" ) if hard_breaks
                 end
                 BLOCKS_GROUP_RE = /\n{2,}(?! )/m
                 def blocks( text, deep_code = false )
                     text.replace( text.split( BLOCKS_GROUP_RE ).collect do |blk|
                         plain = blk !~ /\A[#*> ]/
                         # skip blocks that are complex HTML
                         if blk =~ /^<\/?(\w+).*>/ and not SIMPLE_HTML_TAGS.include? $1
                             blk
                         else
                             # search for indentation levels
                             blk.strip!
                             if blk.empty?
                                 blk
                             else
                                 code_blk = nil
                                 blk.gsub!( /((?:\n(?:\n^ +[^\n]*)+)+)/m ) do |iblk|
                                     flush_left iblk
                                     blocks iblk, plain
                                     iblk.gsub( /^(\S)/, "\t\\1" )
                                     if plain
                                         code_blk = iblk; ""
                                     else
                                         iblk
                                     end
                                 end
                                 block_applied = 0
                                 @rules.each do |rule_name|
                                     block_applied += 1 if ( rule_name.to_s.match /^block_/ and method( rule_name ).call( blk ) )
                                 end
                                 if block_applied.zero?
                                     if deep_code
                                         blk = "\t<pre><code>#{ blk }</code></pre>"
                                     else
                                         blk = "\t<p>#{ blk }</p>"
                                     end
                                 end
                                 # hard_break blk
                                 blk + "\n#{ code_blk }"
                             end
                         end
                     end.join( "\n\n" ) )
                 end
                 def textile_bq( tag, atts, cite, content )
                     cite, cite_title = check_refs( cite )
                     cite = " cite=\"#{ cite }\"" if cite
                     atts = shelve( atts ) if atts
                     "\t<blockquote#{ cite }>\n\t\t<p#{ atts }>#{ content }</p>\n\t</blockquote>"
                 end
                 def textile_p( tag, atts, cite, content )
                     atts = shelve( atts ) if atts
                     "\t<#{ tag }#{ atts }>#{ content }</#{ tag }>"
                 end
                 alias textile_h1 textile_p
                 alias textile_h2 textile_p
                 alias textile_h3 textile_p
                 alias textile_h4 textile_p
                 alias textile_h5 textile_p
                 alias textile_h6 textile_p
                 def textile_fn_( tag, num, atts, cite, content )
                     atts << " id=\"fn#{ num }\" class=\"footnote\""
                     content = "<sup>#{ num }</sup> #{ content }"
                     atts = shelve( atts ) if atts
                     "\t<p#{ atts }>#{ content }</p>"
                 end
                 BLOCK_RE = /^(([a-z]+)(\d*))(#{A}#{C})\.(?::(\S+))? (.*)$/m
                 def block_textile_prefix( text )
                     if text =~ BLOCK_RE
                         tag,tagpre,num,atts,cite,content = $~[1..6]
                         atts = pba( atts )
                         # pass to prefix handler
                         if respond_to? "textile_#{ tag }", true
                             text.gsub!( $&, method( "textile_#{ tag }" ).call( tag, atts, cite, content ) )
                         elsif respond_to? "textile_#{ tagpre }_", true
                             text.gsub!( $&, method( "textile_#{ tagpre }_" ).call( tagpre, num, atts, cite, content ) )
                         end
                     end
                 end
                 SETEXT_RE = /\A(.+?)\n([=-])[=-]* *$/m
                 def block_markdown_setext( text )
                     if text =~ SETEXT_RE
                         tag = if $2 == "="; "h1"; else; "h2"; end
                         blk, cont = "<#{ tag }>#{ $1 }</#{ tag }>", $'
                         blocks cont
                         text.replace( blk + cont )
                     end
                 end
                 ATX_RE = /\A(\#{1,6})  # $1 = string of #'s
                           [ ]*
                           (.+?)       # $2 = Header text
                           [ ]*
                           \#*         # optional closing #'s (not counted)
                           $/x
                 def block_markdown_atx( text )
                     if text =~ ATX_RE
                         tag = "h#{ $1.length }"
                         blk, cont = "<#{ tag }>#{ $2 }</#{ tag }>\n\n", $'
                         blocks cont
                         text.replace( blk + cont )
                     end
                 end
                 MARKDOWN_BQ_RE = /\A(^ *> ?.+$(.+\n)*\n*)+/m
                 def block_markdown_bq( text )
                     text.gsub!( MARKDOWN_BQ_RE ) do |blk|
                         blk.gsub!( /^ *> ?/, '' )
                         flush_left blk
                         blocks blk
                         blk.gsub!( /^(\S)/, "\t\\1" )
                         "<blockquote>\n#{ blk }\n</blockquote>\n\n"
                     end
                 end
                 MARKDOWN_RULE_RE = /^(#{
                     ['*', '-', '_'].collect { |ch| ' ?(' + Regexp::quote( ch ) + ' ?){3,}' }.join( '|' )
                 })$/
                 def block_markdown_rule( text )
                     text.gsub!( MARKDOWN_RULE_RE ) do |blk|
                         "<hr />"
                     end
                 end
                 # XXX TODO XXX
                 def block_markdown_lists( text )
                 end
                 def inline_textile_span( text )
                     QTAGS.each do |qtag_rc, ht, qtag_re, rtype|
                         text.gsub!( qtag_re ) do |m|
                             case rtype
                             when :limit
                                 sta,oqs,qtag,content,oqa = $~[1..6]
                                 atts = nil
                                 if content =~ /^(#{C})(.+)$/
                                   atts, content = $~[1..2]
                                 end
                             else
                                 qtag,atts,cite,content = $~[1..4]
                                 sta = ''
                             end
                             atts = pba( atts )
                             atts = shelve( atts ) if atts
                             "#{ sta }#{ oqs }<#{ ht }#{ atts }>#{ content }</#{ ht }>#{ oqa }"
                         end
                     end
                 end
                 LINK_RE = /
                         (
                         ([\s\[{(]|[#{PUNCT}])?     # $pre
                         "                          # start
                         (#{C})                     # $atts
                         ([^"\n]+?)                 # $text
                         \s?
                         (?:\(([^)]+?)\)(?="))?     # $title
                         ":
                         (                          # $url
                         (\/|[a-zA-Z]+:\/\/|www\.|mailto:)  # $proto
                         [\w\/]\S+?
                         )
                         (\/)?                      # $slash
                         ([^\w\=\/;\(\)]*?)         # $post
                         )
                         (?=<|\s|$)
                     /x
             #"
                 def inline_textile_link( text )
                     text.gsub!( LINK_RE ) do |m|
                       all,pre,atts,text,title,url,proto,slash,post = $~[1..9]
                       if text.include?('<br />')
                         all
                       else
                         url, url_title = check_refs( url )
                         title ||= url_title
                         # Idea below : an URL with unbalanced parethesis and
                         # ending by ')' is put into external parenthesis
                         if ( url[-1]==?) and ((url.count("(") - url.count(")")) < 0 ) )
                           url=url[0..-2] # discard closing parenth from url
                           post = ")"+post # add closing parenth to post
                         end
                         atts = pba( atts )
                         atts = " href=\"#{ htmlesc url }#{ slash }\"#{ atts }"
                         atts << " title=\"#{ htmlesc title }\"" if title
                         atts = shelve( atts ) if atts
                         external = (url =~ /^https?:\/\//) ? ' class="external"' : ''
                         "#{ pre }<a#{ atts }#{ external }>#{ text }</a>#{ post }"
                       end
                     end
                 end
                 MARKDOWN_REFLINK_RE = /
                         \[([^\[\]]+)\]      # $text
                         [ ]?                # opt. space
                         (?:\n[ ]*)?         # one optional newline followed by spaces
                         \[(.*?)\]           # $id
                     /x
                 def inline_markdown_reflink( text )
                     text.gsub!( MARKDOWN_REFLINK_RE ) do |m|
                         text, id = $~[1..2]
                         if id.empty?
                             url, title = check_refs( text )
                         else
                             url, title = check_refs( id )
                         end
                         atts = " href=\"#{ url }\""
                         atts << " title=\"#{ title }\"" if title
                         atts = shelve( atts )
                         "<a#{ atts }>#{ text }</a>"
                     end
                 end
                 MARKDOWN_LINK_RE = /
                         \[([^\[\]]+)\]      # $text
                         \(                  # open paren
                         [ \t]*              # opt space
                         <?(.+?)>?           # $href
                         [ \t]*              # opt space
                         (?:                 # whole title
                         (['"])              # $quote
                         (.*?)               # $title
                         \3                  # matching quote
                         )?                  # title is optional
                         \)
                     /x
                 def inline_markdown_link( text )
                     text.gsub!( MARKDOWN_LINK_RE ) do |m|
                         text, url, quote, title = $~[1..4]
                         atts = " href=\"#{ url }\""
                         atts << " title=\"#{ title }\"" if title
                         atts = shelve( atts )
                         "<a#{ atts }>#{ text }</a>"
                     end
                 end
                 TEXTILE_REFS_RE =  /(^ *)\[([^\[\n]+?)\](#{HYPERLINK})(?=\s|$)/
                 MARKDOWN_REFS_RE = /(^ *)\[([^\n]+?)\]:\s+<?(#{HYPERLINK})>?(?:\s+"((?:[^"]|\\")+)")?(?=\s|$)/m
                 def refs( text )
                     @rules.each do |rule_name|
                         method( rule_name ).call( text ) if rule_name.to_s.match /^refs_/
                     end
                 end
                 def refs_textile( text )
                     text.gsub!( TEXTILE_REFS_RE ) do |m|
                         flag, url = $~[2..3]
                         @urlrefs[flag.downcase] = [url, nil]
                         nil
                     end
                 end
                 def refs_markdown( text )
                     text.gsub!( MARKDOWN_REFS_RE ) do |m|
                         flag, url = $~[2..3]
                         title = $~[6]
                         @urlrefs[flag.downcase] = [url, title]
                         nil
                     end
                 end
                 def check_refs( text )
                     ret = @urlrefs[text.downcase] if text
                     ret || [text, nil]
                 end
                 IMAGE_RE = /
                         (>|\s|^)           # start of line?
                         \!                   # 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
                 def inline_textile_image( text )
                     text.gsub!( IMAGE_RE )  do |m|
                         stln,algn,atts,url,title,href,href_a1,href_a2 = $~[1..8]
                         htmlesc title
                         atts = pba( atts )
                         atts = " src=\"#{ url }\"#{ atts }"
                         atts << " title=\"#{ title }\"" if title
                         atts << " alt=\"#{ title }\""
                         # size = @getimagesize($url);
                         # if($size) $atts.= " $size[3]";
                         href, alt_title = check_refs( href ) if href
                         url, url_title = check_refs( url )
                         out = ''
                         out << "<a#{ shelve( " href=\"#{ href }\"" ) }>" if href
                         out << "<img#{ shelve( atts ) } />"
                         out << "</a>#{ href_a1 }#{ href_a2 }" if href
                         if algn
                             algn = h_align( algn )
                             if stln == "<p>"
                                 out = "<p style=\"float:#{ algn }\">#{ out }"
                             else
                                 out = "#{ stln }<div style=\"float:#{ algn }\">#{ out }</div>"
                             end
                         else
                             out = stln + out
                         end
                         out
                     end
                 end
                 def shelve( val )
                     @shelf << val
                     " :redsh##{ @shelf.length }:"
                 end
                 def retrieve( text )
                     @shelf.each_with_index do |r, i|
                         text.gsub!( " :redsh##{ 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 no_textile( text )
                     text.gsub!( /(^|\s)==([^=]+.*?)==(\s|$)?/,
                         '\1<notextile>\2</notextile>\3' )
                     text.gsub!( /^ *==([^=]+.*?)==/m,
                         '\1<notextile>\2</notextile>\3' )
                 end
                 def clean_white_space( text )
                     # normalize line breaks
                     text.gsub!( /\r\n/, "\n" )
                     text.gsub!( /\r/, "\n" )
                     text.gsub!( /\t/, '    ' )
                     text.gsub!( /^ +$/, '' )
                     text.gsub!( /\n{3,}/, "\n\n" )
                     text.gsub!( /"$/, "\" " )
                     # if entire document is indented, flush
                     # to the left side
                     flush_left text
                 end
                 def flush_left( text )
                     indt = 0
                     if text =~ /^ /
                         while text !~ /^ {#{indt}}\S/
                             indt += 1
                         end unless text.empty?
                         if indt.nonzero?
                             text.gsub!( /^ {#{indt}}/, '' )
                         end
                     end
                 end
                 def footnote_ref( text )
                     text.gsub!( /\b\[([0-9]+?)\](\s)?/,
                         '<sup><a href="#fn\1">\1</a></sup>\2' )
                 end
                 OFFTAGS = /(code|pre|kbd|notextile)/
                 OFFTAG_MATCH = /(?:(<\/#{ OFFTAGS }>)|(<#{ OFFTAGS }[^>]*>))(.*?)(?=<\/?#{ OFFTAGS }\W|\Z)/mi
                 OFFTAG_OPEN = /<#{ OFFTAGS }/
                 OFFTAG_CLOSE = /<\/?#{ OFFTAGS }/
                 HASTAG_MATCH = /(<\/?\w[^\n]*?>)/m
                 ALLTAG_MATCH = /(<\/?\w[^\n]*?>)|.*?(?=<\/?\w[^\n]*?>|$)/m
                 def glyphs_textile( text, level = 0 )
                     if text !~ HASTAG_MATCH
                         pgl text
                         footnote_ref text
                     else
                         codepre = 0
                         text.gsub!( ALLTAG_MATCH ) do |line|
                             ## matches are off if we're between <code>, <pre> etc.
                             if $1
                                 if line =~ OFFTAG_OPEN
                                     codepre += 1
                                 elsif line =~ OFFTAG_CLOSE
                                     codepre -= 1
                                     codepre = 0 if codepre < 0
                                 end
                             elsif codepre.zero?
                                 glyphs_textile( line, level + 1 )
                             else
                                 htmlesc( line, :NoQuotes )
                             end
                             # p [level, codepre, line]
                             line
                         end
                     end
                 end
                 def rip_offtags( text, escape_aftertag=true )
                     if text =~ /<.*>/
                         ## strip and encode <pre> content
                         codepre, used_offtags = 0, {}
                         text.gsub!( OFFTAG_MATCH ) do |line|
                             if $3
                                 first, offtag, aftertag = $3, $4, $5
                                 codepre += 1
                                 used_offtags[offtag] = true
                                 if codepre - used_offtags.length > 0
                                     htmlesc( line, :NoQuotes )
                                     @pre_list.last << line
                                     line = ""
                                 else
                                     ### htmlesc is disabled between CODE tags which will be parsed with highlighter
                                     ### Regexp in formatter.rb is : /<code\s+class="(\w+)">\s?(.+)/m
                                     ### NB: some changes were made not to use $N variables, because we use "match"
                                     ###   and it breaks following lines
                                     htmlesc( aftertag, :NoQuotes ) if aftertag && escape_aftertag && !first.match(/<code\s+class="(\w+)">/)
                                     line = "<redpre##{ @pre_list.length }>"
                                     first.match(/<#{ OFFTAGS }([^>]*)>/)
                                     tag = $1
                                     $2.to_s.match(/(class\=\S+)/i)
                                     tag << " #{$1}" if $1
                                     @pre_list << "<#{ tag }>#{ aftertag }"
                                 end
                             elsif $1 and codepre > 0
                                 if codepre - used_offtags.length > 0
                                     htmlesc( line, :NoQuotes )
                                     @pre_list.last << line
                                     line = ""
                                 end
                                 codepre -= 1 unless codepre.zero?
                                 used_offtags = {} if codepre.zero?
                             end
                             line
                         end
                     end
                     text
                 end
                 def smooth_offtags( text )
                     unless @pre_list.empty?
                         ## replace <pre> content
                         text.gsub!( /<redpre#(\d+)>/ ) { @pre_list[$1.to_i] }
                     end
                 end
                 def inline( text )
                     [/^inline_/, /^glyphs_/].each do |meth_re|
                         @rules.each do |rule_name|
                             method( rule_name ).call( text ) if rule_name.to_s.match( meth_re )
                         end
                     end
                 end
                 def h_align( text )
                     H_ALGN_VALS[text]
                 end
                 def v_align( text )
                     V_ALGN_VALS[text]
                 end
                 def textile_popup_help( name, windowW, windowH )
                     ' <a target="_blank" href="http://hobix.com/textile/#' + helpvar + '" onclick="window.open(this.href, \'popupwindow\', \'width=' + windowW + ',height=' + windowH + ',scrollbars,resizable\'); return false;">' + name + '</a><br />'
                 end
                 # HTML cleansing stuff
                 BASIC_TAGS = {
                     'a' => ['href', 'title'],
                     'img' => ['src', 'alt', 'title'],
                     'br' => [],
                     'i' => nil,
                     'u' => nil,
                     'b' => nil,
                     'pre' => nil,
                     'kbd' => nil,
                     'code' => ['lang'],
                     'cite' => nil,
                     'strong' => nil,
                     'em' => nil,
                     'ins' => nil,
                     'sup' => nil,
                     'sub' => nil,
                     'del' => nil,
                     'table' => nil,
                     'tr' => nil,
                     'td' => ['colspan', 'rowspan'],
                     'th' => nil,
                     'ol' => nil,
                     'ul' => nil,
                     'li' => nil,
                     'p' => nil,
                     'h1' => nil,
                     'h2' => nil,
                     'h3' => nil,
                     'h4' => nil,
                     'h5' => nil,
                     'h6' => nil,
                     'blockquote' => ['cite']
                 }
                 def clean_html( text, tags = BASIC_TAGS )
                     text.gsub!( /<!\[CDATA\[/, '' )
                     text.gsub!( /<(\/*)(\w+)([^>]*)>/ ) do
                         raw = $~
                         tag = raw[2].downcase
                         if tags.has_key? tag
                             pcs = [tag]
                             tags[tag].each do |prop|
                                 ['"', "'", ''].each do |q|
                                     q2 = ( q != '' ? q : '\s' )
                                     if raw[3] =~ /#{prop}\s*=\s*#{q}([^#{q2}]+)#{q}/i
                                         attrv = $1
                                         next if prop == 'src' and attrv =~ %r{^(?!http)\w+:}
                                         pcs << "#{prop}=\"#{$1.gsub('"', '\\"')}\""
                                         break
                                     end
                                 end
                             end if tags[tag]
                             "<#{raw[1]}#{pcs.join " "}>"
                         else
                             " "
                         end
                     end
                 end
                 ALLOWED_TAGS = %w(redpre pre code notextile)
                 def escape_html_tags(text)
                   text.gsub!(%r{<(\/?([!\w]+)[^<>\n]*)(>?)}) {|m| ALLOWED_TAGS.include?($2) ? "<#{$1}#{$3}" : "&lt;#{$1}#{'&gt;' unless $3.blank?}" }
                 end
             end