1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
-- Pandoc "Just the text, Ma'am"
-- (JTTM): a custom writer that
-- strips everything except for
-- the TEXT from a pandoc source
-- vim: fdm=marker
-- invoke with: pandoc -t jttm/jttm.lua
-- Table to store footnotes so they are at the END of the document
local notes = {}
-- This function is called once for the whole document. Parameters:
-- body is a string, metadata is a table, variables is a table.
-- One could use some kind of templating
-- system here; this just gives you a simple standalone HTML file.
function Doc(body, metadata, variables)
local buffer = {}
local function add(s)
table.insert(buffer, s)
end
if metadata['title'] and metadata['title'] ~= "" then
add(string.upper(metadata['title']))
end
if metadata['subtitle'] and metadata['subtitle'] ~= "" then
add(": " .. metadata['subtitle'])
end
add("\n")
-- TODO: epigraph.content, epigraph.attrib, dedication, other metadata?
add(body)
-- TODO: add notes at the end.
return table.concat(buffer, '\n')
end
-- TODOs {{{
function align(align)
-- TODO: is this necessary?
end
function Note(s)
-- TODO
end
-- convert Tables to csv? or tab-separated?
function Table(caption, aligns, widths, headers, rows)
local buffer = {}
local function add(s)
table.insert(buffer, s)
end
add("\n\n")
if caption ~= "" then
add("[" .. caption .. "]")
end
-- TODO: finish
end
-- }}}
-- Remove all formatting {{{
function Blocksep()
return "\n\n"
end
function Emph(s)
return s
end
function Strong(s)
return s
end
function Subscript(s)
return s
end
function Superscript(s)
return s
end
function SmallCaps(s)
return s
end
function Strikeout(s)
return s
end
function Code(s, attr)
return s
end
function CodeBlock(s, attr)
return s
end
function InlineMath(s)
return s
end
function DisplayMath(s)
return s
end
function Span(s, attr)
return s
end
function Cite(s)
return s
end
function Plain(s)
return s
end
-- Links only include the link text
function Link(s, src, tit)
return s
end
-- Images have nothing to give us
-- (but add a space just in case)
function Image(s, src, tit)
return " "
end
function Str(s)
return s
end
function Div(s, attr)
return s
end
function Space(s)
return " "
end
function LineBreak()
return "\n"
end
function Para(s)
-- add paragraphing
return s .. "\n\n"
end
-- }}}
-- Leave just a little formatting {{{
function Header(lev, s, attr)
if lev == 1 then
return "\n\n " .. string.upper(s) .. "\n\n"
elseif lev == 2 then
return "\n " .. string.upper(s) .. "\n"
else
return s
end
end
function Blockquote(s)
return "\n\n" .. string.gsub(s, "*\n", " %0")
end
function HorizontalRule(s)
return "\n\n\n"
end
function BulletList(items)
local buffer = {}
for _, item in pairs(items) do
table.insert(buffer, "- " .. item .. "\n")
end
return "\n\n" .. table.concat(buffer, "\n") .. "\n\n"
end
function DefinitionList(items)
local buffer = {}
for _, item in pairs(items) do
for k, v in pairs(item) do
table.insert(buffer, "\n" .. k .. ":\n " ..
table.concat(v, "\n "))
end
end
return "\n\n" .. table.concat(buffer, "\n") .. "\n\n"
end
-- }}}
-- The following code will produce runtime warnings when you haven't defined
-- all of the functions you need for the custom writer, so it's useful
-- to include when you're working on a writer.
local meta = {}
meta.__index =
function(_, key)
io.stderr:write(string.format("WARNING: Undefined function '%s'\n",key))
return function() return "" end
end
setmetatable(_G, meta)
|
