From e01ed83975933e4c8eafcda7950db98342ddfd63 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 6 Mar 2015 22:08:20 -0700
Subject: Switch to compile.lua for reasons

---
 lua/jttm.lua | 193 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 193 insertions(+)
 create mode 100644 lua/jttm.lua

(limited to 'lua/jttm.lua')

diff --git a/lua/jttm.lua b/lua/jttm.lua
new file mode 100644
index 0000000..2ba101a
--- /dev/null
+++ b/lua/jttm.lua
@@ -0,0 +1,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)
+
-- 
cgit 1.4.1-21-gabe81