summaryrefslogtreecommitdiff
path: root/paper/lua-filters/scrlttr2/scrlttr2.lua
diff options
context:
space:
mode:
Diffstat (limited to 'paper/lua-filters/scrlttr2/scrlttr2.lua')
-rw-r--r--paper/lua-filters/scrlttr2/scrlttr2.lua161
1 files changed, 0 insertions, 161 deletions
diff --git a/paper/lua-filters/scrlttr2/scrlttr2.lua b/paper/lua-filters/scrlttr2/scrlttr2.lua
deleted file mode 100644
index 78f38fd..0000000
--- a/paper/lua-filters/scrlttr2/scrlttr2.lua
+++ /dev/null
@@ -1,161 +0,0 @@
--- Ensure unpack also works if pandoc was compiled against Lua 5.1
-local unpack = unpack or table.unpack
-local List = require 'pandoc.List'
-local stringify = (require 'pandoc.utils')['stringify']
-
---- Set some default options
-local default = {
- opening = 'Dear Sir/Madam,',
- closing = 'Sincerely,',
- address = 'no address given'
-}
-
---- Return a list of inlines representing a call to a latex command.
-local function latex_command (command, ...)
- local entry = {
- pandoc.RawInline('latex', '\\' .. command),
- }
- for _, arg in ipairs{...} do
- entry[#entry + 1] = pandoc.RawInline('latex', '{')
- if type(arg) ~= 'table' then
- entry[#entry + 1] = pandoc.RawInline('latex', tostring(arg))
- else
- List.extend(entry, arg)
- end
- entry[#entry + 1] = pandoc.RawInline('latex', '}')
- end
- return entry
-end
-
---- Convert the given meta-value to a list of inlines
-local function ensure_inlines (val)
- if not val or type(val) == 'string' or type(val) == 'boolean' then
- return pandoc.MetaInlines{pandoc.Str(tostring(val))}
- elseif type(val) == 'table' and val.t == 'MetaInlines' then
- return val
- elseif type(val) == 'table' then
- local res = List:new{}
- for i = 1, #val do
- res:extend(val[i])
- res[#res + 1] = pandoc.RawInline('latex', '\\\\ ')
- end
- res[#res] = nil -- drop last linebreak
- return pandoc.MetaInlines(res)
- else
- return pandoc.MetaInlines{pandoc.Str(pandoc.utils.stringify(val))}
- end
-end
-
---- Convert the given value to a MetaList
-local function ensure_meta_list (val)
- if not val or val.t ~= 'MetaList' then
- return pandoc.MetaList{}
- else
- return val
- end
-end
-
---- Set supported variables as KOMA variables.
-function setkomavar_commands (meta)
- local set_vars = {}
- local res = {}
- local function set_koma_var (name, value, enable)
- if value ~= nil then
- res[#res + 1] = latex_command('setkomavar', name, ensure_inlines(value))
- if enable then
- set_vars[#set_vars + 1] = name
- end
- end
- end
-
- set_koma_var('fromname', meta.fromname or meta.author)
- set_koma_var('fromaddress', meta.fromaddress or meta['return-address'])
- set_koma_var('subject', meta.subject)
- set_koma_var('title', meta.title)
- set_koma_var('signature', meta.signature)
- set_koma_var('customer', meta.customer)
- set_koma_var('yourref', meta.yourref)
- set_koma_var('myref', meta.myref)
- set_koma_var('invoice', meta.invoice)
- set_koma_var('place', meta.place)
-
- set_koma_var('fromfax', meta.fromfax or meta.fax, true)
- set_koma_var('fromurl', meta.fromurl or meta.url, true)
- set_koma_var('fromlogo', meta.fromlogo or meta.logo, true)
- set_koma_var('fromemail', meta.fromemail or meta.email, true)
- set_koma_var('fromphone', meta.fromphone or meta.phone, true)
-
- -- don't set date if date is set to `false`
- if meta.date == nil or meta.date == true then
- if meta['date-format'] then
- set_koma_var('date', os.date(stringify(date_format)))
- else
- set_koma_var('date', pandoc.MetaInlines{pandoc.RawInline('latex', '\\today')})
- end
- elseif meta.date then
- set_koma_var('date', meta.date)
- end
-
- if meta['KOMAoptions'] or #set_vars >= 1 then
- res[#res + 1] = latex_command(
- 'KOMAoptions',
- meta['KOMAoptions']
- or table.concat(set_vars, '=true,') .. '=true'
- )
- end
-
- return res
-end
-
---- Bring Metadata in a form suitable for the scrlttr KOMA class
-local function make_koma_metadata(meta)
- local header_includes = ensure_meta_list(meta['header-includes'])
- List.extend(header_includes, setkomavar_commands(meta))
-
- local include_before = ensure_meta_list(meta['include-before'])
- List.extend(
- include_before,
- {
- pandoc.MetaInlines(
- latex_command(
- 'begin',
- 'letter',
- ensure_inlines(meta.address or default.address)
- )
- ),
-
- pandoc.MetaInlines(
- latex_command('opening', meta.opening or default.opening)
- ),
- }
- )
-
- local include_after = ensure_meta_list(meta['include-after'])
- List.extend(
- include_after,
- {
- pandoc.MetaInlines(
- latex_command('closing', meta.closing or default.closing)
- ),
- pandoc.MetaInlines(latex_command('end', 'letter')),
- }
- )
-
- -- unset or reset some unwanted vars
- meta.data = nil -- set via komavar 'date'
- meta.title = nil -- set via komavar 'subject'
- meta.indent = true -- disable parskib
- -- set documentclass to scrlttr2 if it's unset
- meta.documentclass = meta.documentclass or pandoc.MetaString'scrlttr2'
-
-
- meta['header-includes'] = header_includes
- meta['include-before'] = include_before
- meta['include-after'] = include_after
-
- return meta
-end
-
-return {
- {Meta = make_koma_metadata}
-}