Remove lua cruft

author: Case Duckworth 2015-03-12 10:51:48 -0700
committer: Case Duckworth 2015-03-12 10:51:48 -0700
commit: 2e15be1fdcaaf5a6eb8bb676ada8d8440336e323 (patch)
tree: c159258d2fa3dd8ec1d4cf118bdf8de838c47895 /lua/sample-writer.lua
parent: Add 'Find the moon' APOD image to moongone.txt (diff)
download: autocento-2e15be1fdcaaf5a6eb8bb676ada8d8440336e323.tar.gz
autocento-2e15be1fdcaaf5a6eb8bb676ada8d8440336e323.zip
1 files changed, 324 insertions, 0 deletions
diff --git a/lua/sample-writer.lua b/lua/sample-writer.lua
new file mode 100644
index 0000000..a0c3c29
--- /dev/null
+++ b/lua/sample-writer.lua

@@ -0,0 +1,324 @@
+-- This is a sample custom writer for pandoc.  It produces output
+-- that is very similar to that of pandoc's HTML writer.
+-- There is one new feature: code blocks marked with class 'dot'
+-- are piped through graphviz and images are included in the HTML
+-- output using 'data:' URLs.
+--
+-- Invoke with: pandoc -t sample.lua
+--
+-- Note:  you need not have lua installed on your system to use this
+-- custom writer.  However, if you do have lua installed, you can
+-- use it to test changes to the script.  'lua sample.lua' will
+-- produce informative error messages if your code contains
+-- syntax errors.
+-- Character escaping
+local function escape(s, in_attribute)
+  return s:gsub("[<>&\"']",
+    function(x)
+      if x == '<' then
+        return '&lt;'
+      elseif x == '>' then
+        return '&gt;'
+      elseif x == '&' then
+        return '&amp;'
+      elseif x == '"' then
+        return '&quot;'
+      elseif x == "'" then
+        return '&#39;'
+      else
+        return x
+      end
+    end)
+end
+-- Helper function to convert an attributes table into
+-- a string that can be put into HTML tags.
+local function attributes(attr)
+  local attr_table = {}
+  for x,y in pairs(attr) do
+    if y and y ~= "" then
+      table.insert(attr_table, ' ' .. x .. '="' .. escape(y,true) .. '"')
+    end
+  end
+  return table.concat(attr_table)
+end
+-- Run cmd on a temporary file containing inp and return result.
+local function pipe(cmd, inp)
+  local tmp = os.tmpname()
+  local tmph = io.open(tmp, "w")
+  tmph:write(inp)
+  tmph:close()
+  local outh = io.popen(cmd .. " " .. tmp,"r")
+  local result = outh:read("*all")
+  outh:close()
+  os.remove(tmp)
+  return result
+end
+-- Table to store footnotes, so they can be included at the end.
+local notes = {}
+-- Blocksep is used to separate block elements.
+function Blocksep()
+  return "\n\n"
+end
+-- 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
+  add('<!DOCTYPE html>')
+  add('<html>')
+  add('<head>')
+  add('<title>' .. (metadata['title'] or '') .. '</title>')
+  add('</head>')
+  add('<body>')
+  if metadata['title'] and metadata['title'] ~= "" then
+    add('<h1 class="title">' .. metadata['title'] .. '</h1>')
+  end
+  for _, author in pairs(metadata['author'] or {}) do
+    add('<h2 class="author">' .. author .. '</h2>')
+  end
+  if metadata['date'] and metadata['date'] ~= "" then
+    add('<h3 class="date">' .. metadata.date .. '</h3>')
+  end
+  add(body)
+  if #notes > 0 then
+    add('<ol class="footnotes">')
+    for _,note in pairs(notes) do
+      add(note)
+    end
+    add('</ol>')
+  end
+  add('</body>')
+  add('</html>')
+  return table.concat(buffer,'\n')
+end
+-- The functions that follow render corresponding pandoc elements.
+-- s is always a string, attr is always a table of attributes, and
+-- items is always an array of strings (the items in a list).
+-- Comments indicate the types of other variables.
+function Str(s)
+  return escape(s)
+end
+function Space()
+  return " "
+end
+function LineBreak()
+  return "<br/>"
+end
+function Emph(s)
+  return "<em>" .. s .. "</em>"
+end
+function Strong(s)
+  return "<strong>" .. s .. "</strong>"
+end
+function Subscript(s)
+  return "<sub>" .. s .. "</sub>"
+end
+function Superscript(s)
+  return "<sup>" .. s .. "</sup>"
+end
+function SmallCaps(s)
+  return '<span style="font-variant: small-caps;">' .. s .. '</span>'
+end
+function Strikeout(s)
+  return '<del>' .. s .. '</del>'
+end
+function Link(s, src, tit)
+  return "<a href='" .. escape(src,true) .. "' title='" ..
+         escape(tit,true) .. "'>" .. s .. "</a>"
+end
+function Image(s, src, tit)
+  return "<img src='" .. escape(src,true) .. "' title='" ..
+         escape(tit,true) .. "'/>"
+end
+function Code(s, attr)
+  return "<code" .. attributes(attr) .. ">" .. escape(s) .. "</code>"
+end
+function InlineMath(s)
+  return "\\(" .. escape(s) .. "\\)"
+end
+function DisplayMath(s)
+  return "\\[" .. escape(s) .. "\\]"
+end
+function Note(s)
+  local num = #notes + 1
+  -- insert the back reference right before the final closing tag.
+  s = string.gsub(s,
+          '(.*)</', '%1 <a href="#fnref' .. num ..  '">&#8617;</a></')
+  -- add a list item with the note to the note table.
+  table.insert(notes, '<li id="fn' .. num .. '">' .. s .. '</li>')
+  -- return the footnote reference, linked to the note.
+  return '<a id="fnref' .. num .. '" href="#fn' .. num ..
+            '"><sup>' .. num .. '</sup></a>'
+end
+function Span(s, attr)
+  return "<span" .. attributes(attr) .. ">" .. s .. "</span>"
+end
+function Cite(s)
+  return "<span class=\"cite\">" .. s .. "</span>"
+end
+function Plain(s)
+  return s
+end
+function Para(s)
+  return "<p>" .. s .. "</p>"
+end
+-- lev is an integer, the header level.
+function Header(lev, s, attr)
+  return "<h" .. lev .. attributes(attr) ..  ">" .. s .. "</h" .. lev .. ">"
+end
+function BlockQuote(s)
+  return "<blockquote>\n" .. s .. "\n</blockquote>"
+end
+function HorizontalRule()
+  return "<hr/>"
+end
+function CodeBlock(s, attr)
+  -- If code block has class 'dot', pipe the contents through dot
+  -- and base64, and include the base64-encoded png as a data: URL.
+  if attr.class and string.match(' ' .. attr.class .. ' ',' dot ') then
+    local png = pipe("base64", pipe("dot -Tpng", s))
+    return '<img src="data:image/png;base64,' .. png .. '"/>'
+  -- otherwise treat as code (one could pipe through a highlighter)
+  else
+    return "<pre><code" .. attributes(attr) .. ">" .. escape(s) ..
+           "</code></pre>"
+  end
+end
+function BulletList(items)
+  local buffer = {}
+  for _, item in pairs(items) do
+    table.insert(buffer, "<li>" .. item .. "</li>")
+  end
+  return "<ul>\n" .. table.concat(buffer, "\n") .. "\n</ul>"
+end
+function OrderedList(items)
+  local buffer = {}
+  for _, item in pairs(items) do
+    table.insert(buffer, "<li>" .. item .. "</li>")
+  end
+  return "<ol>\n" .. table.concat(buffer, "\n") .. "\n</ol>"
+end
+-- Revisit association list STackValue instance.
+function DefinitionList(items)
+  local buffer = {}
+  for _,item in pairs(items) do
+    for k, v in pairs(item) do
+      table.insert(buffer,"<dt>" .. k .. "</dt>\n<dd>" ..
+                        table.concat(v,"</dd>\n<dd>") .. "</dd>")
+    end
+  end
+  return "<dl>\n" .. table.concat(buffer, "\n") .. "\n</dl>"
+end
+-- Convert pandoc alignment to something HTML can use.
+-- align is AlignLeft, AlignRight, AlignCenter, or AlignDefault.
+function html_align(align)
+  if align == 'AlignLeft' then
+    return 'left'
+  elseif align == 'AlignRight' then
+    return 'right'
+  elseif align == 'AlignCenter' then
+    return 'center'
+  else
+    return 'left'
+  end
+end
+-- Caption is a string, aligns is an array of strings,
+-- widths is an array of floats, headers is an array of
+-- strings, rows is an array of arrays of strings.
+function Table(caption, aligns, widths, headers, rows)
+  local buffer = {}
+  local function add(s)
+    table.insert(buffer, s)
+  end
+  add("<table>")
+  if caption ~= "" then
+    add("<caption>" .. caption .. "</caption>")
+  end
+  if widths and widths[1] ~= 0 then
+    for _, w in pairs(widths) do
+      add('<col width="' .. string.format("%d%%", w * 100) .. '" />')
+    end
+  end
+  local header_row = {}
+  local empty_header = true
+  for i, h in pairs(headers) do
+    local align = html_align(aligns[i])
+    table.insert(header_row,'<th align="' .. align .. '">' .. h .. '</th>')
+    empty_header = empty_header and h == ""
+  end
+  if empty_header then
+    head = ""
+  else
+    add('<tr class="header">')
+    for _,h in pairs(header_row) do
+      add(h)
+    end
+    add('</tr>')
+  end
+  local class = "even"
+  for _, row in pairs(rows) do
+    class = (class == "even" and "odd") or "even"
+    add('<tr class="' .. class .. '">')
+    for i,c in pairs(row) do
+      add('<td align="' .. html_align(aligns[i]) .. '">' .. c .. '</td>')
+    end
+    add('</tr>')
+  end
+  add('</table')
+  return table.concat(buffer,'\n')
+end
+function Div(s, attr)
+  return "<div" .. attributes(attr) .. ">\n" .. s .. "</div>"
+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)
author	Case Duckworth	2015-03-12 10:51:48 -0700
committer	Case Duckworth	2015-03-12 10:51:48 -0700
commit	2e15be1fdcaaf5a6eb8bb676ada8d8440336e323 (patch)
tree	c159258d2fa3dd8ec1d4cf118bdf8de838c47895 /lua/sample-writer.lua
parent	Add 'Find the moon' APOD image to moongone.txt (diff)
download	autocento-2e15be1fdcaaf5a6eb8bb676ada8d8440336e323.tar.gz autocento-2e15be1fdcaaf5a6eb8bb676ada8d8440336e323.zip

diff --git a/lua/sample-writer.lua b/lua/sample-writer.lua new file mode 100644 index 0000000..a0c3c29 --- /dev/null +++ b/lua/sample-writer.lua
@@ -0,0 +1,324 @@
	1	-- This is a sample custom writer for pandoc. It produces output
	2	-- that is very similar to that of pandoc's HTML writer.
	3	-- There is one new feature: code blocks marked with class 'dot'
	4	-- are piped through graphviz and images are included in the HTML
	5	-- output using 'data:' URLs.
	6	--
	7	-- Invoke with: pandoc -t sample.lua
	8	--
	9	-- Note: you need not have lua installed on your system to use this
	10	-- custom writer. However, if you do have lua installed, you can
	11	-- use it to test changes to the script. 'lua sample.lua' will
	12	-- produce informative error messages if your code contains
	13	-- syntax errors.
	14
	15	-- Character escaping
	16	local function escape(s, in_attribute)
	17	return s:gsub("[<>&\"']",
	18	function(x)
	19	if x == '<' then
	20	return '<'
	21	elseif x == '>' then
	22	return '>'
	23	elseif x == '&' then
	24	return '&'
	25	elseif x == '"' then
	26	return '"'
	27	elseif x == "'" then
	28	return '''
	29	else
	30	return x
	31	end
	32	end)
	33	end
	34
	35	-- Helper function to convert an attributes table into
	36	-- a string that can be put into HTML tags.
	37	local function attributes(attr)
	38	local attr_table = {}
	39	for x,y in pairs(attr) do
	40	if y and y ~= "" then
	41	table.insert(attr_table, ' ' .. x .. '="' .. escape(y,true) .. '"')
	42	end
	43	end
	44	return table.concat(attr_table)
	45	end
	46
	47	-- Run cmd on a temporary file containing inp and return result.
	48	local function pipe(cmd, inp)
	49	local tmp = os.tmpname()
	50	local tmph = io.open(tmp, "w")
	51	tmph:write(inp)
	52	tmph:close()
	53	local outh = io.popen(cmd .. " " .. tmp,"r")
	54	local result = outh:read("*all")
	55	outh:close()
	56	os.remove(tmp)
	57	return result
	58	end
	59
	60	-- Table to store footnotes, so they can be included at the end.
	61	local notes = {}
	62
	63	-- Blocksep is used to separate block elements.
	64	function Blocksep()
	65	return "\n\n"
	66	end
	67
	68	-- This function is called once for the whole document. Parameters:
	69	-- body is a string, metadata is a table, variables is a table.
	70	-- One could use some kind of templating
	71	-- system here; this just gives you a simple standalone HTML file.
	72	function Doc(body, metadata, variables)
	73	local buffer = {}
	74	local function add(s)
	75	table.insert(buffer, s)
	76	end
	77	add('<!DOCTYPE html>')
	78	add('<html>')
	79	add('<head>')
	80	add('<title>' .. (metadata['title'] or '') .. '</title>')
	81	add('</head>')
	82	add('<body>')
	83	if metadata['title'] and metadata['title'] ~= "" then
	84	add('<h1 class="title">' .. metadata['title'] .. '</h1>')
	85	end
	86	for _, author in pairs(metadata['author'] or {}) do
	87	add('<h2 class="author">' .. author .. '</h2>')
	88	end
	89	if metadata['date'] and metadata['date'] ~= "" then
	90	add('<h3 class="date">' .. metadata.date .. '</h3>')
	91	end
	92	add(body)
	93	if #notes > 0 then
	94	add('<ol class="footnotes">')
	95	for _,note in pairs(notes) do
	96	add(note)
	97	end
	98	add('</ol>')
	99	end
	100	add('</body>')
	101	add('</html>')
	102	return table.concat(buffer,'\n')
	103	end
	104
	105	-- The functions that follow render corresponding pandoc elements.
	106	-- s is always a string, attr is always a table of attributes, and
	107	-- items is always an array of strings (the items in a list).
	108	-- Comments indicate the types of other variables.
	109
	110	function Str(s)
	111	return escape(s)
	112	end
	113
	114	function Space()
	115	return " "
	116	end
	117
	118	function LineBreak()
	119	return "<br/>"
	120	end
	121
	122	function Emph(s)
	123	return "<em>" .. s .. "</em>"
	124	end
	125
	126	function Strong(s)
	127	return "<strong>" .. s .. "</strong>"
	128	end
	129
	130	function Subscript(s)
	131	return "<sub>" .. s .. "</sub>"
	132	end
	133
	134	function Superscript(s)
	135	return "<sup>" .. s .. "</sup>"
	136	end
	137
	138	function SmallCaps(s)
	139	return '<span style="font-variant: small-caps;">' .. s .. '</span>'
	140	end
	141
	142	function Strikeout(s)
	143	return '<del>' .. s .. '</del>'
	144	end
	145
	146	function Link(s, src, tit)
	147	return "<a href='" .. escape(src,true) .. "' title='" ..
	148	escape(tit,true) .. "'>" .. s .. "</a>"
	149	end
	150
	151	function Image(s, src, tit)
	152	return "<img src='" .. escape(src,true) .. "' title='" ..
	153	escape(tit,true) .. "'/>"
	154	end
	155
	156	function Code(s, attr)
	157	return "<code" .. attributes(attr) .. ">" .. escape(s) .. "</code>"
	158	end
	159
	160	function InlineMath(s)
	161	return "\\(" .. escape(s) .. "\\)"
	162	end
	163
	164	function DisplayMath(s)
	165	return "\\[" .. escape(s) .. "\\]"
	166	end
	167
	168	function Note(s)
	169	local num = #notes + 1
	170	-- insert the back reference right before the final closing tag.
	171	s = string.gsub(s,
	172	'(.*)</', '%1 <a href="#fnref' .. num .. '">↩</a></')
	173	-- add a list item with the note to the note table.
	174	table.insert(notes, '<li id="fn' .. num .. '">' .. s .. '</li>')
	175	-- return the footnote reference, linked to the note.
	176	return '<a id="fnref' .. num .. '" href="#fn' .. num ..
	177	'"><sup>' .. num .. '</sup></a>'
	178	end
	179
	180	function Span(s, attr)
	181	return "<span" .. attributes(attr) .. ">" .. s .. "</span>"
	182	end
	183
	184	function Cite(s)
	185	return "<span class=\"cite\">" .. s .. "</span>"
	186	end
	187
	188	function Plain(s)
	189	return s
	190	end
	191
	192	function Para(s)
	193	return "<p>" .. s .. "</p>"
	194	end
	195
	196	-- lev is an integer, the header level.
	197	function Header(lev, s, attr)
	198	return "<h" .. lev .. attributes(attr) .. ">" .. s .. "</h" .. lev .. ">"
	199	end
	200
	201	function BlockQuote(s)
	202	return "<blockquote>\n" .. s .. "\n</blockquote>"
	203	end
	204
	205	function HorizontalRule()
	206	return "<hr/>"
	207	end
	208
	209	function CodeBlock(s, attr)
	210	-- If code block has class 'dot', pipe the contents through dot
	211	-- and base64, and include the base64-encoded png as a data: URL.
	212	if attr.class and string.match(' ' .. attr.class .. ' ',' dot ') then
	213	local png = pipe("base64", pipe("dot -Tpng", s))
	214	return '<img src="data:image/png;base64,' .. png .. '"/>'
	215	-- otherwise treat as code (one could pipe through a highlighter)
	216	else
	217	return "<pre><code" .. attributes(attr) .. ">" .. escape(s) ..
	218	"</code></pre>"
	219	end
	220	end
	221
	222	function BulletList(items)
	223	local buffer = {}
	224	for _, item in pairs(items) do
	225	table.insert(buffer, "<li>" .. item .. "</li>")
	226	end
	227	return "<ul>\n" .. table.concat(buffer, "\n") .. "\n</ul>"
	228	end
	229
	230	function OrderedList(items)
	231	local buffer = {}
	232	for _, item in pairs(items) do
	233	table.insert(buffer, "<li>" .. item .. "</li>")
	234	end
	235	return "<ol>\n" .. table.concat(buffer, "\n") .. "\n</ol>"
	236	end
	237
	238	-- Revisit association list STackValue instance.
	239	function DefinitionList(items)
	240	local buffer = {}
	241	for _,item in pairs(items) do
	242	for k, v in pairs(item) do
	243	table.insert(buffer,"<dt>" .. k .. "</dt>\n<dd>" ..
	244	table.concat(v,"</dd>\n<dd>") .. "</dd>")
	245	end
	246	end
	247	return "<dl>\n" .. table.concat(buffer, "\n") .. "\n</dl>"
	248	end
	249
	250	-- Convert pandoc alignment to something HTML can use.
	251	-- align is AlignLeft, AlignRight, AlignCenter, or AlignDefault.
	252	function html_align(align)
	253	if align == 'AlignLeft' then
	254	return 'left'
	255	elseif align == 'AlignRight' then
	256	return 'right'
	257	elseif align == 'AlignCenter' then
	258	return 'center'
	259	else
	260	return 'left'
	261	end
	262	end
	263
	264	-- Caption is a string, aligns is an array of strings,
	265	-- widths is an array of floats, headers is an array of
	266	-- strings, rows is an array of arrays of strings.
	267	function Table(caption, aligns, widths, headers, rows)
	268	local buffer = {}
	269	local function add(s)
	270	table.insert(buffer, s)
	271	end
	272	add("<table>")
	273	if caption ~= "" then
	274	add("<caption>" .. caption .. "</caption>")
	275	end
	276	if widths and widths[1] ~= 0 then
	277	for _, w in pairs(widths) do
	278	add('<col width="' .. string.format("%d%%", w * 100) .. '" />')
	279	end
	280	end
	281	local header_row = {}
	282	local empty_header = true
	283	for i, h in pairs(headers) do
	284	local align = html_align(aligns[i])
	285	table.insert(header_row,'<th align="' .. align .. '">' .. h .. '</th>')
	286	empty_header = empty_header and h == ""
	287	end
	288	if empty_header then
	289	head = ""
	290	else
	291	add('<tr class="header">')
	292	for _,h in pairs(header_row) do
	293	add(h)
	294	end
	295	add('</tr>')
	296	end
	297	local class = "even"
	298	for _, row in pairs(rows) do
	299	class = (class == "even" and "odd") or "even"
	300	add('<tr class="' .. class .. '">')
	301	for i,c in pairs(row) do
	302	add('<td align="' .. html_align(aligns[i]) .. '">' .. c .. '</td>')
	303	end
	304	add('</tr>')
	305	end
	306	add('</table')
	307	return table.concat(buffer,'\n')
	308	end
	309
	310	function Div(s, attr)
	311	return "<div" .. attributes(attr) .. ">\n" .. s .. "</div>"
	312	end
	313
	314	-- The following code will produce runtime warnings when you haven't defined
	315	-- all of the functions you need for the custom writer, so it's useful
	316	-- to include when you're working on a writer.
	317	local meta = {}
	318	meta.__index =
	319	function(_, key)
	320	io.stderr:write(string.format("WARNING: Undefined function '%s'\n",key))
	321	return function() return "" end
	322	end
	323	setmetatable(_G, meta)
	324