markdown.lua

Mon, 14 Sep 2009 00:16:13 +0300

author
Tuomo Valkonen <tuomov@iki.fi>
date
Mon, 14 Sep 2009 00:16:13 +0300
changeset 4
4cb0d1dbc65b
parent 0
30d76ecdd725
child 6
219d7a7304f8
permissions
-rw-r--r--

fixes

0
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1 #!/usr/bin/env lua
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
2
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
3 --[[
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
4 # markdown.lua -- version 0.32
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
5
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
6 <http://www.frykholm.se/files/markdown.lua>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
7
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
8 **Author:** Niklas Frykholm, <niklas@frykholm.se>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
9 **Date:** 31 May 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
10
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
11 This is an implementation of the popular text markup language Markdown in pure Lua.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
12 Markdown can convert documents written in a simple and easy to read text format
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
13 to well-formatted HTML. For a more thourough description of Markdown and the Markdown
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
14 syntax, see <http://daringfireball.net/projects/markdown>.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
15
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
16 The original Markdown source is written in Perl and makes heavy use of advanced
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
17 regular expression techniques (such as negative look-ahead, etc) which are not available
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
18 in Lua's simple regex engine. Therefore this Lua port has been rewritten from the ground
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
19 up. It is probably not completely bug free. If you notice any bugs, please report them to
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
20 me. A unit test that exposes the error is helpful.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
21
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
22 ## Usage
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
23
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
24 require "markdown"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
25 markdown(source)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
26
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
27 ``markdown.lua`` exposes a single global function named ``markdown(s)`` which applies the
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
28 Markdown transformation to the specified string.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
29
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
30 ``markdown.lua`` can also be used directly from the command line:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
31
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
32 lua markdown.lua test.md
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
33
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
34 Creates a file ``test.html`` with the converted content of ``test.md``. Run:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
35
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
36 lua markdown.lua -h
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
37
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
38 For a description of the command-line options.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
39
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
40 ``markdown.lua`` uses the same license as Lua, the MIT license.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
41
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
42 ## License
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
43
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
44 Copyright &copy; 2008 Niklas Frykholm.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
45
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
46 Permission is hereby granted, free of charge, to any person obtaining a copy of this
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
47 software and associated documentation files (the "Software"), to deal in the Software
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
48 without restriction, including without limitation the rights to use, copy, modify, merge,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
49 publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
50 to whom the Software is furnished to do so, subject to the following conditions:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
51
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
52 The above copyright notice and this permission notice shall be included in all copies
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
53 or substantial portions of the Software.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
54
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
55 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
56 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
57 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
58 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
59 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
60 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
61 THE SOFTWARE.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
62
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
63 ## Version history
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
64
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
65 - **0.32** -- 31 May 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
66 - Fix for links containing brackets
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
67 - **0.31** -- 1 Mar 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
68 - Fix for link definitions followed by spaces
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
69 - **0.30** -- 25 Feb 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
70 - Consistent behavior with Markdown when the same link reference is reused
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
71 - **0.29** -- 24 Feb 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
72 - Fix for <pre> blocks with spaces in them
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
73 - **0.28** -- 18 Feb 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
74 - Fix for link encoding
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
75 - **0.27** -- 14 Feb 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
76 - Fix for link database links with ()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
77 - **0.26** -- 06 Feb 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
78 - Fix for nested italic and bold markers
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
79 - **0.25** -- 24 Jan 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
80 - Fix for encoding of naked <
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
81 - **0.24** -- 21 Jan 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
82 - Fix for link behavior.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
83 - **0.23** -- 10 Jan 2008
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
84 - Fix for a regression bug in longer expressions in italic or bold.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
85 - **0.22** -- 27 Dec 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
86 - Fix for crash when processing blocks with a percent sign in them.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
87 - **0.21** -- 27 Dec 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
88 - Fix for combined strong and emphasis tags
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
89 - **0.20** -- 13 Oct 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
90 - Fix for < as well in image titles, now matches Dingus behavior
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
91 - **0.19** -- 28 Sep 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
92 - Fix for quotation marks " and ampersands & in link and image titles.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
93 - **0.18** -- 28 Jul 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
94 - Does not crash on unmatched tags (behaves like standard markdown)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
95 - **0.17** -- 12 Apr 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
96 - Fix for links with %20 in them.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
97 - **0.16** -- 12 Apr 2007
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
98 - Do not require arg global to exist.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
99 - **0.15** -- 28 Aug 2006
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
100 - Better handling of links with underscores in them.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
101 - **0.14** -- 22 Aug 2006
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
102 - Bug for *`foo()`*
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
103 - **0.13** -- 12 Aug 2006
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
104 - Added -l option for including stylesheet inline in document.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
105 - Fixed bug in -s flag.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
106 - Fixed emphasis bug.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
107 - **0.12** -- 15 May 2006
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
108 - Fixed several bugs to comply with MarkdownTest 1.0 <http://six.pairlist.net/pipermail/markdown-discuss/2004-December/000909.html>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
109 - **0.11** -- 12 May 2006
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
110 - Fixed bug for escaping `*` and `_` inside code spans.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
111 - Added license terms.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
112 - Changed join() to table.concat().
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
113 - **0.10** -- 3 May 2006
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
114 - Initial public release.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
115
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
116 // Niklas
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
117 ]]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
118
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
119
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
120 -- Set up a table for holding local functions to avoid polluting the global namespace
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
121 local M = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
122 local MT = {__index = _G}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
123 setmetatable(M, MT)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
124 setfenv(1, M)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
125
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
126 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
127 -- Utility functions
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
128 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
129
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
130 -- Locks table t from changes, writes an error if someone attempts to change the table.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
131 -- This is useful for detecting variables that have "accidently" been made global. Something
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
132 -- I tend to do all too much.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
133 function lock(t)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
134 function lock_new_index(t, k, v)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
135 error("module has been locked -- " .. k .. " must be declared local", 2)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
136 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
137
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
138 local mt = {__newindex = lock_new_index}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
139 if getmetatable(t) then mt.__index = getmetatable(t).__index end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
140 setmetatable(t, mt)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
141 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
142
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
143 -- Returns the result of mapping the values in table t through the function f
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
144 function map(t, f)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
145 local out = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
146 for k,v in pairs(t) do out[k] = f(v,k) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
147 return out
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
148 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
149
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
150 -- The identity function, useful as a placeholder.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
151 function identity(text) return text end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
152
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
153 -- Functional style if statement. (NOTE: no short circuit evaluation)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
154 function iff(t, a, b) if t then return a else return b end end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
155
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
156 -- Splits the text into an array of separate lines.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
157 function split(text, sep)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
158 sep = sep or "\n"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
159 local lines = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
160 local pos = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
161 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
162 local b,e = text:find(sep, pos)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
163 if not b then table.insert(lines, text:sub(pos)) break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
164 table.insert(lines, text:sub(pos, b-1))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
165 pos = e + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
166 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
167 return lines
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
168 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
169
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
170 -- Converts tabs to spaces
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
171 function detab(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
172 local tab_width = 4
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
173 local function rep(match)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
174 local spaces = -match:len()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
175 while spaces<1 do spaces = spaces + tab_width end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
176 return match .. string.rep(" ", spaces)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
177 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
178 text = text:gsub("([^\n]-)\t", rep)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
179 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
180 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
181
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
182 -- Applies string.find for every pattern in the list and returns the first match
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
183 function find_first(s, patterns, index)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
184 local res = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
185 for _,p in ipairs(patterns) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
186 local match = {s:find(p, index)}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
187 if #match>0 and (#res==0 or match[1] < res[1]) then res = match end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
188 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
189 return unpack(res)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
190 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
191
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
192 -- If a replacement array is specified, the range [start, stop] in the array is replaced
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
193 -- with the replacement array and the resulting array is returned. Without a replacement
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
194 -- array the section of the array between start and stop is returned.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
195 function splice(array, start, stop, replacement)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
196 if replacement then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
197 local n = stop - start + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
198 while n > 0 do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
199 table.remove(array, start)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
200 n = n - 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
201 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
202 for i,v in ipairs(replacement) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
203 table.insert(array, start, v)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
204 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
205 return array
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
206 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
207 local res = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
208 for i = start,stop do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
209 table.insert(res, array[i])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
210 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
211 return res
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
212 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
213 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
214
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
215 -- Outdents the text one step.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
216 function outdent(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
217 text = "\n" .. text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
218 text = text:gsub("\n ? ? ?", "\n")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
219 text = text:sub(2)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
220 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
221 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
222
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
223 -- Indents the text one step.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
224 function indent(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
225 text = text:gsub("\n", "\n ")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
226 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
227 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
228
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
229 -- Does a simple tokenization of html data. Returns the data as a list of tokens.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
230 -- Each token is a table with a type field (which is either "tag" or "text") and
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
231 -- a text field (which contains the original token data).
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
232 function tokenize_html(html)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
233 local tokens = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
234 local pos = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
235 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
236 local start = find_first(html, {"<!%-%-", "<[a-z/!$]", "<%?"}, pos)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
237 if not start then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
238 table.insert(tokens, {type="text", text=html:sub(pos)})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
239 break
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
240 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
241 if start ~= pos then table.insert(tokens, {type="text", text = html:sub(pos, start-1)}) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
242
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
243 local _, stop
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
244 if html:match("^<!%-%-", start) then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
245 _,stop = html:find("%-%->", start)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
246 elseif html:match("^<%?", start) then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
247 _,stop = html:find("?>", start)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
248 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
249 _,stop = html:find("%b<>", start)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
250 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
251 if not stop then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
252 -- error("Could not match html tag " .. html:sub(start,start+30))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
253 table.insert(tokens, {type="text", text=html:sub(start, start)})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
254 pos = start + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
255 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
256 table.insert(tokens, {type="tag", text=html:sub(start, stop)})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
257 pos = stop + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
258 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
259 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
260 return tokens
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
261 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
262
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
263 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
264 -- Hash
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
265 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
266
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
267 -- This is used to "hash" data into alphanumeric strings that are unique
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
268 -- in the document. (Note that this is not cryptographic hash, the hash
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
269 -- function is not one-way.) The hash procedure is used to protect parts
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
270 -- of the document from further processing.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
271
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
272 local HASH = {
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
273 -- Has the hash been inited.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
274 inited = false,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
275
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
276 -- The unique string prepended to all hash values. This is to ensure
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
277 -- that hash values do not accidently coincide with an actual existing
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
278 -- string in the document.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
279 identifier = "",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
280
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
281 -- Counter that counts up for each new hash instance.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
282 counter = 0,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
283
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
284 -- Hash table.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
285 table = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
286 }
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
287
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
288 -- Inits hashing. Creates a hash_identifier that doesn't occur anywhere
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
289 -- in the text.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
290 function init_hash(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
291 HASH.inited = true
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
292 HASH.identifier = ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
293 HASH.counter = 0
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
294 HASH.table = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
295
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
296 local s = "HASH"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
297 local counter = 0
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
298 local id
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
299 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
300 id = s .. counter
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
301 if not text:find(id, 1, true) then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
302 counter = counter + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
303 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
304 HASH.identifier = id
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
305 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
306
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
307 -- Returns the hashed value for s.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
308 function hash(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
309 assert(HASH.inited)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
310 if not HASH.table[s] then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
311 HASH.counter = HASH.counter + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
312 local id = HASH.identifier .. HASH.counter .. "X"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
313 HASH.table[s] = id
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
314 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
315 return HASH.table[s]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
316 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
317
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
318 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
319 -- Protection
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
320 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
321
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
322 -- The protection module is used to "protect" parts of a document
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
323 -- so that they are not modified by subsequent processing steps.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
324 -- Protected parts are saved in a table for later unprotection
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
325
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
326 -- Protection data
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
327 local PD = {
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
328 -- Saved blocks that have been converted
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
329 blocks = {},
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
330
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
331 -- Block level tags that will be protected
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
332 tags = {"p", "div", "h1", "h2", "h3", "h4", "h5", "h6", "blockquote",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
333 "pre", "table", "dl", "ol", "ul", "script", "noscript", "form", "fieldset",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
334 "iframe", "math", "ins", "del"}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
335 }
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
336
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
337 -- Pattern for matching a block tag that begins and ends in the leftmost
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
338 -- column and may contain indented subtags, i.e.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
339 -- <div>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
340 -- A nested block.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
341 -- <div>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
342 -- Nested data.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
343 -- </div>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
344 -- </div>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
345 function block_pattern(tag)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
346 return "\n<" .. tag .. ".-\n</" .. tag .. ">[ \t]*\n"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
347 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
348
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
349 -- Pattern for matching a block tag that begins and ends with a newline
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
350 function line_pattern(tag)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
351 return "\n<" .. tag .. ".-</" .. tag .. ">[ \t]*\n"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
352 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
353
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
354 -- Protects the range of characters from start to stop in the text and
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
355 -- returns the protected string.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
356 function protect_range(text, start, stop)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
357 local s = text:sub(start, stop)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
358 local h = hash(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
359 PD.blocks[h] = s
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
360 text = text:sub(1,start) .. h .. text:sub(stop)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
361 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
362 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
363
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
364 -- Protect every part of the text that matches any of the patterns. The first
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
365 -- matching pattern is protected first, etc.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
366 function protect_matches(text, patterns)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
367 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
368 local start, stop = find_first(text, patterns)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
369 if not start then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
370 text = protect_range(text, start, stop)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
371 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
372 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
373 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
374
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
375 -- Protects blocklevel tags in the specified text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
376 function protect(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
377 -- First protect potentially nested block tags
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
378 text = protect_matches(text, map(PD.tags, block_pattern))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
379 -- Then protect block tags at the line level.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
380 text = protect_matches(text, map(PD.tags, line_pattern))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
381 -- Protect <hr> and comment tags
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
382 text = protect_matches(text, {"\n<hr[^>]->[ \t]*\n"})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
383 text = protect_matches(text, {"\n<!%-%-.-%-%->[ \t]*\n"})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
384 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
385 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
386
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
387 -- Returns true if the string s is a hash resulting from protection
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
388 function is_protected(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
389 return PD.blocks[s]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
390 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
391
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
392 -- Unprotects the specified text by expanding all the nonces
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
393 function unprotect(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
394 for k,v in pairs(PD.blocks) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
395 v = v:gsub("%%", "%%%%")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
396 text = text:gsub(k, v)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
397 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
398 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
399 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
400
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
401
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
402 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
403 -- Block transform
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
404 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
405
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
406 -- The block transform functions transform the text on the block level.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
407 -- They work with the text as an array of lines rather than as individual
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
408 -- characters.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
409
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
410 -- Returns true if the line is a ruler of (char) characters.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
411 -- The line must contain at least three char characters and contain only spaces and
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
412 -- char characters.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
413 function is_ruler_of(line, char)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
414 if not line:match("^[ %" .. char .. "]*$") then return false end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
415 if not line:match("%" .. char .. ".*%" .. char .. ".*%" .. char) then return false end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
416 return true
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
417 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
418
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
419 -- Identifies the block level formatting present in the line
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
420 function classify(line)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
421 local info = {line = line, text = line}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
422
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
423 if line:match("^ ") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
424 info.type = "indented"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
425 info.outdented = line:sub(5)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
426 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
427 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
428
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
429 for _,c in ipairs({'*', '-', '_', '='}) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
430 if is_ruler_of(line, c) then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
431 info.type = "ruler"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
432 info.ruler_char = c
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
433 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
434 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
435 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
436
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
437 if line == "" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
438 info.type = "blank"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
439 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
440 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
441
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
442 if line:match("^(#+)[ \t]*(.-)[ \t]*#*[ \t]*$") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
443 local m1, m2 = line:match("^(#+)[ \t]*(.-)[ \t]*#*[ \t]*$")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
444 info.type = "header"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
445 info.level = m1:len()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
446 info.text = m2
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
447 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
448 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
449
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
450 if line:match("^ ? ? ?(%d+)%.[ \t]+(.+)") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
451 local number, text = line:match("^ ? ? ?(%d+)%.[ \t]+(.+)")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
452 info.type = "list_item"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
453 info.list_type = "numeric"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
454 info.number = 0 + number
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
455 info.text = text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
456 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
457 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
458
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
459 if line:match("^ ? ? ?([%*%+%-])[ \t]+(.+)") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
460 local bullet, text = line:match("^ ? ? ?([%*%+%-])[ \t]+(.+)")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
461 info.type = "list_item"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
462 info.list_type = "bullet"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
463 info.bullet = bullet
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
464 info.text= text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
465 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
466 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
467
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
468 if line:match("^>[ \t]?(.*)") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
469 info.type = "blockquote"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
470 info.text = line:match("^>[ \t]?(.*)")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
471 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
472 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
473
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
474 if is_protected(line) then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
475 info.type = "raw"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
476 info.html = unprotect(line)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
477 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
478 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
479
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
480 info.type = "normal"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
481 return info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
482 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
483
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
484 -- Find headers constisting of a normal line followed by a ruler and converts them to
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
485 -- header entries.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
486 function headers(array)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
487 local i = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
488 while i <= #array - 1 do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
489 if array[i].type == "normal" and array[i+1].type == "ruler" and
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
490 (array[i+1].ruler_char == "-" or array[i+1].ruler_char == "=") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
491 local info = {line = array[i].line}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
492 info.text = info.line
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
493 info.type = "header"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
494 info.level = iff(array[i+1].ruler_char == "=", 1, 2)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
495 table.remove(array, i+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
496 array[i] = info
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
497 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
498 i = i + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
499 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
500 return array
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
501 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
502
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
503 -- Find list blocks and convert them to protected data blocks
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
504 function lists(array, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
505 local function process_list(arr)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
506 local function any_blanks(arr)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
507 for i = 1, #arr do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
508 if arr[i].type == "blank" then return true end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
509 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
510 return false
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
511 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
512
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
513 local function split_list_items(arr)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
514 local acc = {arr[1]}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
515 local res = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
516 for i=2,#arr do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
517 if arr[i].type == "list_item" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
518 table.insert(res, acc)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
519 acc = {arr[i]}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
520 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
521 table.insert(acc, arr[i])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
522 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
523 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
524 table.insert(res, acc)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
525 return res
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
526 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
527
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
528 local function process_list_item(lines, block)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
529 while lines[#lines].type == "blank" do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
530 table.remove(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
531 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
532
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
533 local itemtext = lines[1].text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
534 for i=2,#lines do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
535 itemtext = itemtext .. "\n" .. outdent(lines[i].line)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
536 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
537 if block then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
538 itemtext = block_transform(itemtext, true)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
539 if not itemtext:find("<pre>") then itemtext = indent(itemtext) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
540 return " <li>" .. itemtext .. "</li>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
541 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
542 local lines = split(itemtext)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
543 lines = map(lines, classify)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
544 lines = lists(lines, true)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
545 lines = blocks_to_html(lines, true)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
546 itemtext = table.concat(lines, "\n")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
547 if not itemtext:find("<pre>") then itemtext = indent(itemtext) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
548 return " <li>" .. itemtext .. "</li>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
549 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
550 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
551
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
552 local block_list = any_blanks(arr)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
553 local items = split_list_items(arr)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
554 local out = ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
555 for _, item in ipairs(items) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
556 out = out .. process_list_item(item, block_list) .. "\n"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
557 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
558 if arr[1].list_type == "numeric" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
559 return "<ol>\n" .. out .. "</ol>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
560 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
561 return "<ul>\n" .. out .. "</ul>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
562 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
563 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
564
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
565 -- Finds the range of lines composing the first list in the array. A list
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
566 -- starts with (^ list_item) or (blank list_item) and ends with
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
567 -- (blank* $) or (blank normal).
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
568 --
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
569 -- A sublist can start with just (list_item) does not need a blank...
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
570 local function find_list(array, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
571 local function find_list_start(array, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
572 if array[1].type == "list_item" then return 1 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
573 if sublist then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
574 for i = 1,#array do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
575 if array[i].type == "list_item" then return i end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
576 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
577 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
578 for i = 1, #array-1 do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
579 if array[i].type == "blank" and array[i+1].type == "list_item" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
580 return i+1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
581 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
582 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
583 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
584 return nil
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
585 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
586 local function find_list_end(array, start)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
587 local pos = #array
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
588 for i = start, #array-1 do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
589 if array[i].type == "blank" and array[i+1].type ~= "list_item"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
590 and array[i+1].type ~= "indented" and array[i+1].type ~= "blank" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
591 pos = i-1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
592 break
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
593 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
594 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
595 while pos > start and array[pos].type == "blank" do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
596 pos = pos - 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
597 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
598 return pos
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
599 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
600
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
601 local start = find_list_start(array, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
602 if not start then return nil end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
603 return start, find_list_end(array, start)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
604 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
605
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
606 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
607 local start, stop = find_list(array, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
608 if not start then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
609 local text = process_list(splice(array, start, stop))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
610 local info = {
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
611 line = text,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
612 type = "raw",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
613 html = text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
614 }
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
615 array = splice(array, start, stop, {info})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
616 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
617
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
618 -- Convert any remaining list items to normal
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
619 for _,line in ipairs(array) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
620 if line.type == "list_item" then line.type = "normal" end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
621 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
622
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
623 return array
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
624 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
625
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
626 -- Find and convert blockquote markers.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
627 function blockquotes(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
628 local function find_blockquote(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
629 local start
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
630 for i,line in ipairs(lines) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
631 if line.type == "blockquote" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
632 start = i
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
633 break
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
634 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
635 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
636 if not start then return nil end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
637
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
638 local stop = #lines
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
639 for i = start+1, #lines do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
640 if lines[i].type == "blank" or lines[i].type == "blockquote" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
641 elseif lines[i].type == "normal" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
642 if lines[i-1].type == "blank" then stop = i-1 break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
643 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
644 stop = i-1 break
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
645 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
646 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
647 while lines[stop].type == "blank" do stop = stop - 1 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
648 return start, stop
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
649 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
650
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
651 local function process_blockquote(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
652 local raw = lines[1].text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
653 for i = 2,#lines do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
654 raw = raw .. "\n" .. lines[i].text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
655 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
656 local bt = block_transform(raw)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
657 if not bt:find("<pre>") then bt = indent(bt) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
658 return "<blockquote>\n " .. bt ..
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
659 "\n</blockquote>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
660 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
661
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
662 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
663 local start, stop = find_blockquote(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
664 if not start then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
665 local text = process_blockquote(splice(lines, start, stop))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
666 local info = {
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
667 line = text,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
668 type = "raw",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
669 html = text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
670 }
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
671 lines = splice(lines, start, stop, {info})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
672 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
673 return lines
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
674 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
675
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
676 -- Find and convert codeblocks.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
677 function codeblocks(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
678 local function find_codeblock(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
679 local start
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
680 for i,line in ipairs(lines) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
681 if line.type == "indented" then start = i break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
682 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
683 if not start then return nil end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
684
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
685 local stop = #lines
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
686 for i = start+1, #lines do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
687 if lines[i].type ~= "indented" and lines[i].type ~= "blank" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
688 stop = i-1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
689 break
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
690 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
691 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
692 while lines[stop].type == "blank" do stop = stop - 1 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
693 return start, stop
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
694 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
695
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
696 local function process_codeblock(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
697 local raw = detab(encode_code(outdent(lines[1].line)))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
698 for i = 2,#lines do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
699 raw = raw .. "\n" .. detab(encode_code(outdent(lines[i].line)))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
700 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
701 return "<pre><code>" .. raw .. "\n</code></pre>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
702 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
703
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
704 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
705 local start, stop = find_codeblock(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
706 if not start then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
707 local text = process_codeblock(splice(lines, start, stop))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
708 local info = {
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
709 line = text,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
710 type = "raw",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
711 html = text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
712 }
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
713 lines = splice(lines, start, stop, {info})
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
714 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
715 return lines
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
716 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
717
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
718 -- Convert lines to html code
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
719 function blocks_to_html(lines, no_paragraphs)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
720 local out = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
721 local i = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
722 while i <= #lines do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
723 local line = lines[i]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
724 if line.type == "ruler" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
725 table.insert(out, "<hr/>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
726 elseif line.type == "raw" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
727 table.insert(out, line.html)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
728 elseif line.type == "normal" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
729 local s = line.line
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
730
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
731 while i+1 <= #lines and lines[i+1].type == "normal" do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
732 i = i + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
733 s = s .. "\n" .. lines[i].line
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
734 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
735
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
736 if no_paragraphs then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
737 table.insert(out, span_transform(s))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
738 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
739 table.insert(out, "<p>" .. span_transform(s) .. "</p>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
740 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
741 elseif line.type == "header" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
742 local s = "<h" .. line.level .. ">" .. span_transform(line.text) .. "</h" .. line.level .. ">"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
743 table.insert(out, s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
744 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
745 table.insert(out, line.line)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
746 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
747 i = i + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
748 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
749 return out
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
750 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
751
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
752 -- Perform all the block level transforms
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
753 function block_transform(text, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
754 local lines = split(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
755 lines = map(lines, classify)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
756 lines = headers(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
757 lines = lists(lines, sublist)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
758 lines = codeblocks(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
759 lines = blockquotes(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
760 lines = blocks_to_html(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
761 local text = table.concat(lines, "\n")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
762 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
763 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
764
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
765 -- Debug function for printing a line array to see the result
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
766 -- of partial transforms.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
767 function print_lines(lines)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
768 for i, line in ipairs(lines) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
769 print(i, line.type, line.text or line.line)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
770 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
771 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
772
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
773 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
774 -- Span transform
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
775 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
776
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
777 -- Functions for transforming the text at the span level.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
778
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
779 -- These characters may need to be escaped because they have a special
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
780 -- meaning in markdown.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
781 escape_chars = "'\\`*_{}[]()>#+-.!'"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
782 escape_table = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
783
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
784 function init_escape_table()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
785 escape_table = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
786 for i = 1,#escape_chars do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
787 local c = escape_chars:sub(i,i)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
788 escape_table[c] = hash(c)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
789 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
790 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
791
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
792 -- Adds a new escape to the escape table.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
793 function add_escape(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
794 if not escape_table[text] then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
795 escape_table[text] = hash(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
796 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
797 return escape_table[text]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
798 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
799
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
800 -- Escape characters that should not be disturbed by markdown.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
801 function escape_special_chars(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
802 local tokens = tokenize_html(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
803
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
804 local out = ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
805 for _, token in ipairs(tokens) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
806 local t = token.text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
807 if token.type == "tag" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
808 -- In tags, encode * and _ so they don't conflict with their use in markdown.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
809 t = t:gsub("%*", escape_table["*"])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
810 t = t:gsub("%_", escape_table["_"])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
811 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
812 t = encode_backslash_escapes(t)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
813 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
814 out = out .. t
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
815 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
816 return out
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
817 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
818
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
819 -- Encode backspace-escaped characters in the markdown source.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
820 function encode_backslash_escapes(t)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
821 for i=1,escape_chars:len() do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
822 local c = escape_chars:sub(i,i)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
823 t = t:gsub("\\%" .. c, escape_table[c])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
824 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
825 return t
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
826 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
827
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
828 -- Unescape characters that have been encoded.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
829 function unescape_special_chars(t)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
830 local tin = t
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
831 for k,v in pairs(escape_table) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
832 k = k:gsub("%%", "%%%%")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
833 t = t:gsub(v,k)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
834 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
835 if t ~= tin then t = unescape_special_chars(t) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
836 return t
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
837 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
838
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
839 -- Encode/escape certain characters inside Markdown code runs.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
840 -- The point is that in code, these characters are literals,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
841 -- and lose their special Markdown meanings.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
842 function encode_code(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
843 s = s:gsub("%&", "&amp;")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
844 s = s:gsub("<", "&lt;")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
845 s = s:gsub(">", "&gt;")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
846 for k,v in pairs(escape_table) do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
847 s = s:gsub("%"..k, v)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
848 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
849 return s
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
850 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
851
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
852 -- Handle backtick blocks.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
853 function code_spans(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
854 s = s:gsub("\\\\", escape_table["\\"])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
855 s = s:gsub("\\`", escape_table["`"])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
856
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
857 local pos = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
858 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
859 local start, stop = s:find("`+", pos)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
860 if not start then return s end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
861 local count = stop - start + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
862 -- Find a matching numbert of backticks
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
863 local estart, estop = s:find(string.rep("`", count), stop+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
864 local brstart = s:find("\n", stop+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
865 if estart and (not brstart or estart < brstart) then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
866 local code = s:sub(stop+1, estart-1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
867 code = code:gsub("^[ \t]+", "")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
868 code = code:gsub("[ \t]+$", "")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
869 code = code:gsub(escape_table["\\"], escape_table["\\"] .. escape_table["\\"])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
870 code = code:gsub(escape_table["`"], escape_table["\\"] .. escape_table["`"])
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
871 code = "<code>" .. encode_code(code) .. "</code>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
872 code = add_escape(code)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
873 s = s:sub(1, start-1) .. code .. s:sub(estop+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
874 pos = start + code:len()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
875 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
876 pos = stop + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
877 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
878 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
879 return s
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
880 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
881
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
882 -- Encode alt text... enodes &, and ".
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
883 function encode_alt(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
884 if not s then return s end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
885 s = s:gsub('&', '&amp;')
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
886 s = s:gsub('"', '&quot;')
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
887 s = s:gsub('<', '&lt;')
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
888 return s
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
889 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
890
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
891 -- Handle image references
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
892 function images(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
893 local function reference_link(alt, id)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
894 alt = encode_alt(alt:match("%b[]"):sub(2,-2))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
895 id = id:match("%[(.*)%]"):lower()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
896 if id == "" then id = text:lower() end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
897 link_database[id] = link_database[id] or {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
898 if not link_database[id].url then return nil end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
899 local url = link_database[id].url or id
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
900 url = encode_alt(url)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
901 local title = encode_alt(link_database[id].title)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
902 if title then title = " title=\"" .. title .. "\"" else title = "" end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
903 return add_escape ('<img src="' .. url .. '" alt="' .. alt .. '"' .. title .. "/>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
904 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
905
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
906 local function inline_link(alt, link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
907 alt = encode_alt(alt:match("%b[]"):sub(2,-2))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
908 local url, title = link:match("%(<?(.-)>?[ \t]*['\"](.+)['\"]")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
909 url = url or link:match("%(<?(.-)>?%)")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
910 url = encode_alt(url)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
911 title = encode_alt(title)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
912 if title then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
913 return add_escape('<img src="' .. url .. '" alt="' .. alt .. '" title="' .. title .. '"/>')
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
914 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
915 return add_escape('<img src="' .. url .. '" alt="' .. alt .. '"/>')
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
916 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
917 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
918
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
919 text = text:gsub("!(%b[])[ \t]*\n?[ \t]*(%b[])", reference_link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
920 text = text:gsub("!(%b[])(%b())", inline_link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
921 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
922 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
923
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
924 -- Handle anchor references
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
925 function anchors(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
926 local function reference_link(text, id)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
927 text = text:match("%b[]"):sub(2,-2)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
928 id = id:match("%b[]"):sub(2,-2):lower()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
929 if id == "" then id = text:lower() end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
930 link_database[id] = link_database[id] or {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
931 if not link_database[id].url then return nil end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
932 local url = link_database[id].url or id
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
933 url = encode_alt(url)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
934 local title = encode_alt(link_database[id].title)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
935 if title then title = " title=\"" .. title .. "\"" else title = "" end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
936 return add_escape("<a href=\"" .. url .. "\"" .. title .. ">") .. text .. add_escape("</a>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
937 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
938
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
939 local function inline_link(text, link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
940 text = text:match("%b[]"):sub(2,-2)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
941 local url, title = link:match("%(<?(.-)>?[ \t]*['\"](.+)['\"]")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
942 title = encode_alt(title)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
943 url = url or link:match("%(<?(.-)>?%)") or ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
944 url = encode_alt(url)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
945 if title then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
946 return add_escape("<a href=\"" .. url .. "\" title=\"" .. title .. "\">") .. text .. "</a>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
947 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
948 return add_escape("<a href=\"" .. url .. "\">") .. text .. add_escape("</a>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
949 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
950 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
951
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
952 text = text:gsub("(%b[])[ \t]*\n?[ \t]*(%b[])", reference_link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
953 text = text:gsub("(%b[])(%b())", inline_link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
954 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
955 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
956
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
957 -- Handle auto links, i.e. <http://www.google.com/>.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
958 function auto_links(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
959 local function link(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
960 return add_escape("<a href=\"" .. s .. "\">") .. s .. "</a>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
961 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
962 -- Encode chars as a mix of dec and hex entitites to (perhaps) fool
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
963 -- spambots.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
964 local function encode_email_address(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
965 -- Use a deterministic encoding to make unit testing possible.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
966 -- Code 45% hex, 45% dec, 10% plain.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
967 local hex = {code = function(c) return "&#x" .. string.format("%x", c:byte()) .. ";" end, count = 1, rate = 0.45}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
968 local dec = {code = function(c) return "&#" .. c:byte() .. ";" end, count = 0, rate = 0.45}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
969 local plain = {code = function(c) return c end, count = 0, rate = 0.1}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
970 local codes = {hex, dec, plain}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
971 local function swap(t,k1,k2) local temp = t[k2] t[k2] = t[k1] t[k1] = temp end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
972
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
973 local out = ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
974 for i = 1,s:len() do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
975 for _,code in ipairs(codes) do code.count = code.count + code.rate end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
976 if codes[1].count < codes[2].count then swap(codes,1,2) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
977 if codes[2].count < codes[3].count then swap(codes,2,3) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
978 if codes[1].count < codes[2].count then swap(codes,1,2) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
979
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
980 local code = codes[1]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
981 local c = s:sub(i,i)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
982 -- Force encoding of "@" to make email address more invisible.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
983 if c == "@" and code == plain then code = codes[2] end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
984 out = out .. code.code(c)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
985 code.count = code.count - 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
986 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
987 return out
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
988 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
989 local function mail(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
990 s = unescape_special_chars(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
991 local address = encode_email_address("mailto:" .. s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
992 local text = encode_email_address(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
993 return add_escape("<a href=\"" .. address .. "\">") .. text .. "</a>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
994 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
995 -- links
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
996 text = text:gsub("<(https?:[^'\">%s]+)>", link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
997 text = text:gsub("<(ftp:[^'\">%s]+)>", link)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
998
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
999 -- mail
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1000 text = text:gsub("<mailto:([^'\">%s]+)>", mail)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1001 text = text:gsub("<([-.%w]+%@[-.%w]+)>", mail)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1002 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1003 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1004
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1005 -- Encode free standing amps (&) and angles (<)... note that this does not
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1006 -- encode free >.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1007 function amps_and_angles(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1008 -- encode amps not part of &..; expression
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1009 local pos = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1010 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1011 local amp = s:find("&", pos)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1012 if not amp then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1013 local semi = s:find(";", amp+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1014 local stop = s:find("[ \t\n&]", amp+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1015 if not semi or (stop and stop < semi) or (semi - amp) > 15 then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1016 s = s:sub(1,amp-1) .. "&amp;" .. s:sub(amp+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1017 pos = amp+1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1018 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1019 pos = amp+1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1020 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1021 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1022
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1023 -- encode naked <'s
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1024 s = s:gsub("<([^a-zA-Z/?$!])", "&lt;%1")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1025 s = s:gsub("<$", "&lt;")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1026
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1027 -- what about >, nothing done in the original markdown source to handle them
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1028 return s
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1029 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1030
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1031 -- Handles emphasis markers (* and _) in the text.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1032 function emphasis(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1033 for _, s in ipairs {"%*%*", "%_%_"} do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1034 text = text:gsub(s .. "([^%s][%*%_]?)" .. s, "<strong>%1</strong>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1035 text = text:gsub(s .. "([^%s][^<>]-[^%s][%*%_]?)" .. s, "<strong>%1</strong>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1036 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1037 for _, s in ipairs {"%*", "%_"} do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1038 text = text:gsub(s .. "([^%s_])" .. s, "<em>%1</em>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1039 text = text:gsub(s .. "(<strong>[^%s_]</strong>)" .. s, "<em>%1</em>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1040 text = text:gsub(s .. "([^%s_][^<>_]-[^%s_])" .. s, "<em>%1</em>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1041 text = text:gsub(s .. "([^<>_]-<strong>[^<>_]-</strong>[^<>_]-)" .. s, "<em>%1</em>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1042 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1043 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1044 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1045
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1046 -- Handles line break markers in the text.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1047 function line_breaks(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1048 return text:gsub(" +\n", " <br/>\n")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1049 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1050
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1051 -- Perform all span level transforms.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1052 function span_transform(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1053 text = code_spans(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1054 text = escape_special_chars(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1055 text = images(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1056 text = anchors(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1057 text = auto_links(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1058 text = amps_and_angles(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1059 text = emphasis(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1060 text = line_breaks(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1061 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1062 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1063
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1064 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1065 -- Markdown
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1066 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1067
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1068 -- Cleanup the text by normalizing some possible variations to make further
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1069 -- processing easier.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1070 function cleanup(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1071 -- Standardize line endings
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1072 text = text:gsub("\r\n", "\n") -- DOS to UNIX
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1073 text = text:gsub("\r", "\n") -- Mac to UNIX
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1074
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1075 -- Convert all tabs to spaces
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1076 text = detab(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1077
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1078 -- Strip lines with only spaces and tabs
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1079 while true do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1080 local subs
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1081 text, subs = text:gsub("\n[ \t]+\n", "\n\n")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1082 if subs == 0 then break end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1083 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1084
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1085 return "\n" .. text .. "\n"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1086 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1087
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1088 -- Strips link definitions from the text and stores the data in a lookup table.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1089 function strip_link_definitions(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1090 local linkdb = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1091
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1092 local function link_def(id, url, title)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1093 id = id:match("%[(.+)%]"):lower()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1094 linkdb[id] = linkdb[id] or {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1095 linkdb[id].url = url or linkdb[id].url
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1096 linkdb[id].title = title or linkdb[id].title
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1097 return ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1098 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1099
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1100 local def_no_title = "\n ? ? ?(%b[]):[ \t]*\n?[ \t]*<?([^%s>]+)>?[ \t]*"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1101 local def_title1 = def_no_title .. "[ \t]+\n?[ \t]*[\"'(]([^\n]+)[\"')][ \t]*"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1102 local def_title2 = def_no_title .. "[ \t]*\n[ \t]*[\"'(]([^\n]+)[\"')][ \t]*"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1103 local def_title3 = def_no_title .. "[ \t]*\n?[ \t]+[\"'(]([^\n]+)[\"')][ \t]*"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1104
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1105 text = text:gsub(def_title1, link_def)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1106 text = text:gsub(def_title2, link_def)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1107 text = text:gsub(def_title3, link_def)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1108 text = text:gsub(def_no_title, link_def)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1109 return text, linkdb
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1110 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1111
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1112 link_database = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1113
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1114 -- Main markdown processing function
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1115 function markdown(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1116 init_hash(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1117 init_escape_table()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1118
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1119 text = cleanup(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1120 text = protect(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1121 text, link_database = strip_link_definitions(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1122 text = block_transform(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1123 text = unescape_special_chars(text)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1124 return text
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1125 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1126
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1127 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1128 -- End of module
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1129 ----------------------------------------------------------------------
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1130
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1131 setfenv(1, _G)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1132 M.lock(M)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1133
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1134 -- Expose markdown function to the world
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1135 markdown = M.markdown
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1136
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1137 -- Class for parsing command-line options
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1138 local OptionParser = {}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1139 OptionParser.__index = OptionParser
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1140
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1141 -- Creates a new option parser
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1142 function OptionParser:new()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1143 local o = {short = {}, long = {}}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1144 setmetatable(o, self)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1145 return o
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1146 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1147
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1148 -- Calls f() whenever a flag with specified short and long name is encountered
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1149 function OptionParser:flag(short, long, f)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1150 local info = {type = "flag", f = f}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1151 if short then self.short[short] = info end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1152 if long then self.long[long] = info end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1153 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1154
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1155 -- Calls f(param) whenever a parameter flag with specified short and long name is encountered
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1156 function OptionParser:param(short, long, f)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1157 local info = {type = "param", f = f}
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1158 if short then self.short[short] = info end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1159 if long then self.long[long] = info end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1160 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1161
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1162 -- Calls f(v) for each non-flag argument
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1163 function OptionParser:arg(f)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1164 self.arg = f
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1165 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1166
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1167 -- Runs the option parser for the specified set of arguments. Returns true if all arguments
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1168 -- where successfully parsed and false otherwise.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1169 function OptionParser:run(args)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1170 local pos = 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1171 while pos <= #args do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1172 local arg = args[pos]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1173 if arg == "--" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1174 for i=pos+1,#args do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1175 if self.arg then self.arg(args[i]) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1176 return true
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1177 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1178 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1179 if arg:match("^%-%-") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1180 local info = self.long[arg:sub(3)]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1181 if not info then print("Unknown flag: " .. arg) return false end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1182 if info.type == "flag" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1183 info.f()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1184 pos = pos + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1185 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1186 param = args[pos+1]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1187 if not param then print("No parameter for flag: " .. arg) return false end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1188 info.f(param)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1189 pos = pos+2
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1190 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1191 elseif arg:match("^%-") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1192 for i=2,arg:len() do
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1193 local c = arg:sub(i,i)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1194 local info = self.short[c]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1195 if not info then print("Unknown flag: -" .. c) return false end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1196 if info.type == "flag" then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1197 info.f()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1198 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1199 if i == arg:len() then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1200 param = args[pos+1]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1201 if not param then print("No parameter for flag: -" .. c) return false end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1202 info.f(param)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1203 pos = pos + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1204 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1205 param = arg:sub(i+1)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1206 info.f(param)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1207 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1208 break
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1209 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1210 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1211 pos = pos + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1212 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1213 if self.arg then self.arg(arg) end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1214 pos = pos + 1
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1215 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1216 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1217 return true
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1218 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1219
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1220 -- Handles the case when markdown is run from the command line
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1221 local function run_command_line(arg)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1222 -- Generate output for input s given options
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1223 local function run(s, options)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1224 s = markdown(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1225 if not options.wrap_header then return s end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1226 local header = ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1227 if options.header then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1228 local f = io.open(options.header) or error("Could not open file: " .. options.header)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1229 header = f:read("*a")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1230 f:close()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1231 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1232 header = [[
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1233 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1234 <html>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1235 <head>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1236 <meta http-equiv="content-type" content="text/html; charset=CHARSET" />
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1237 <title>TITLE</title>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1238 <link rel="stylesheet" type="text/css" href="STYLESHEET" />
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1239 </head>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1240 <body>
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1241 ]]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1242 local title = options.title or s:match("<h1>(.-)</h1>") or s:match("<h2>(.-)</h2>") or
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1243 s:match("<h3>(.-)</h3>") or "Untitled"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1244 header = header:gsub("TITLE", title)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1245 if options.inline_style then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1246 local style = ""
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1247 local f = io.open(options.stylesheet)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1248 if f then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1249 style = f:read("*a") f:close()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1250 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1251 error("Could not include style sheet " .. options.stylesheet .. ": File not found")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1252 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1253 header = header:gsub('<link rel="stylesheet" type="text/css" href="STYLESHEET" />',
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1254 "<style type=\"text/css\"><!--\n" .. style .. "\n--></style>")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1255 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1256 header = header:gsub("STYLESHEET", options.stylesheet)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1257 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1258 header = header:gsub("CHARSET", options.charset)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1259 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1260 local footer = "</body></html>"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1261 if options.footer then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1262 local f = io.open(options.footer) or error("Could not open file: " .. options.footer)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1263 footer = f:read("*a")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1264 f:close()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1265 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1266 return header .. s .. footer
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1267 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1268
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1269 -- Generate output path name from input path name given options.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1270 local function outpath(path, options)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1271 if options.append then return path .. ".html" end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1272 local m = path:match("^(.+%.html)[^/\\]+$") if m then return m end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1273 m = path:match("^(.+%.)[^/\\]*$") if m and path ~= m .. "html" then return m .. "html" end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1274 return path .. ".html"
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1275 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1276
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1277 -- Default commandline options
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1278 local options = {
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1279 wrap_header = true,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1280 header = nil,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1281 footer = nil,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1282 charset = "utf-8",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1283 title = nil,
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1284 stylesheet = "default.css",
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1285 inline_style = false
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1286 }
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1287 local help = [[
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1288 Usage: markdown.lua [OPTION] [FILE]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1289 Runs the markdown text markup to HTML converter on each file specified on the
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1290 command line. If no files are specified, runs on standard input.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1291
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1292 No header:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1293 -n, --no-wrap Don't wrap the output in <html>... tags.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1294 Custom header:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1295 -e, --header FILE Use content of FILE for header.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1296 -f, --footer FILE Use content of FILE for footer.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1297 Generated header:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1298 -c, --charset SET Specifies charset (default utf-8).
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1299 -i, --title TITLE Specifies title (default from first <h1> tag).
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1300 -s, --style STYLE Specifies style sheet file (default default.css).
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1301 -l, --inline-style Include the style sheet file inline in the header.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1302 Generated files:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1303 -a, --append Append .html extension (instead of replacing).
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1304 Other options:
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1305 -h, --help Print this help text.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1306 -t, --test Run the unit tests.
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1307 ]]
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1308
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1309 local run_stdin = true
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1310 local op = OptionParser:new()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1311 op:flag("n", "no-wrap", function () options.wrap_header = false end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1312 op:param("e", "header", function (x) options.header = x end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1313 op:param("f", "footer", function (x) options.footer = x end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1314 op:param("c", "charset", function (x) options.charset = x end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1315 op:param("i", "title", function(x) options.title = x end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1316 op:param("s", "style", function(x) options.stylesheet = x end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1317 op:flag("l", "inline-style", function(x) options.inline_style = true end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1318 op:flag("a", "append", function() options.append = true end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1319 op:flag("t", "test", function()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1320 local n = arg[0]:gsub("markdown.lua", "markdown-tests.lua")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1321 local f = io.open(n)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1322 if f then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1323 f:close() dofile(n)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1324 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1325 error("Cannot find markdown-tests.lua")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1326 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1327 run_stdin = false
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1328 end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1329 op:flag("h", "help", function() print(help) run_stdin = false end)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1330 op:arg(function(path)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1331 local file = io.open(path) or error("Could not open file: " .. path)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1332 local s = file:read("*a")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1333 file:close()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1334 s = run(s, options)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1335 file = io.open(outpath(path, options), "w") or error("Could not open output file: " .. outpath(path, options))
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1336 file:write(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1337 file:close()
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1338 run_stdin = false
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1339 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1340 )
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1341
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1342 if not op:run(arg) then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1343 print(help)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1344 run_stdin = false
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1345 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1346
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1347 if run_stdin then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1348 local s = io.read("*a")
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1349 s = run(s, options)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1350 io.write(s)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1351 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1352 end
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1353
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1354 -- If we are being run from the command-line, act accordingly
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1355 if arg and arg[0]:find("markdown%.lua$") then
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1356 run_command_line(arg)
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1357 else
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1358 return markdown
30d76ecdd725 Import markdown.lua
Tuomo Valkonen <tuomov@iki.fi>
parents:
diff changeset
1359 end

mercurial