diff options
author | Karl Berry <karl@freefriends.org> | 2018-05-03 21:04:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2018-05-03 21:04:48 +0000 |
commit | d20905e40a1f1c00c8b4d268ecaafcef47953e7a (patch) | |
tree | 904da60a00b88366bbc0b5aef7adc62c08838164 /Master/texmf-dist/scripts/make4ht/filters | |
parent | 14d1c94af4e8acce4d5d6854b6988834d8ab4dac (diff) |
make4ht (3may18)
git-svn-id: svn://tug.org/texlive/trunk@47598 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/make4ht/filters')
-rw-r--r-- | Master/texmf-dist/scripts/make4ht/filters/make4ht-staticsite.lua | 98 |
1 files changed, 98 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/make4ht/filters/make4ht-staticsite.lua b/Master/texmf-dist/scripts/make4ht/filters/make4ht-staticsite.lua new file mode 100644 index 00000000000..6378f0440aa --- /dev/null +++ b/Master/texmf-dist/scripts/make4ht/filters/make4ht-staticsite.lua @@ -0,0 +1,98 @@ +local domobj = require "luaxml-domobject" +-- save the header settings in YAML format +local function make_yaml(tbl, level) + local t = {} + local level = level or 0 + local indent = string.rep(" ", level) + -- indentation for multilen strings + local str_indent = string.rep(" ", level + 1) + for k,v in pairs(tbl) do + if type(v)=="string" then + -- detect multiline strings + if v:match("\n") then + table.insert(t, string.format(indent .. "%s: |", k)) + table.insert(t, str_indent .. (v:gsub("\n", "\n".. str_indent))) + else + v = v:gsub("'", "''") + table.insert(t, string.format(indent .. "%s: '%s'", k,v)) + end + elseif type(v) == "table" then + table.insert(t,string.format(indent .. "%s:", k)) + -- we need to differently process array and hash table + -- we don't support mixing types + if #v > 0 then + for x,y in ipairs(v) do + if type(y) == "string" then + -- each string can be printed on it's own line + table.insert(t, indent .. string.format("- '%s'", y)) + else + -- subtables need to be indented + -- table.insert(t, indent .. "-") + local subtable = make_yaml(y, level + 1) + -- we must insert dash at a correct place + local insert_dash = subtable:gsub("^(%s*)%s%s", "%1- ") + table.insert(t, insert_dash) + end + end + else + -- print indented table + table.insert(t, make_yaml(v,level + 1)) + end + else + -- convert numbers and other values to string + table.insert(t, string.format(indent .. "%s: %s", k,tostring(v))) + end + + end + return table.concat(t, "\n") +end + +local function update_properties(properties, dom) + -- enable properties update from the config or build file + local settings = get_filter_settings "staticsite" or {} + local header = settings.header or {} + for field, rule in pairs(header) do + -- it is possible to pass function as a rule, it will be executed with properties as a parameter + if type(rule) == "function" then + properties[field] = rule(properties, dom) + else + -- otherwise set properties + properties[field] = rule + end + end + return properties +end + +local function get_header(tbl) + local yaml = make_yaml(tbl) + return "---\n".. yaml.. "\n---\n" +end + +return function(s,par) + print(os.getenv "blog_home") + local dom = domobj.parse(s) + local properties = {} + local head = dom:query_selector("head")[1] + properties.title = head:query_selector("title")[1]:get_text() + local styles = {} + for _, link in ipairs(head:query_selector("link")) do + local typ = link:get_attribute("type") + if typ == "text/css" then + table.insert(styles, link:get_attribute("href")) + end + end + properties.styles = styles + local metas = {} + for _, meta in ipairs(head:query_selector("meta")) do + print(meta:serialize()) + table.insert(metas, {charset= meta:get_attribute("charset"), content = meta:get_attribute("content"), property = meta:get_attribute("property"), name = meta:get_attribute("name")}) + end + properties.meta = metas + properties = update_properties(properties, dom) + + + local body = dom:query_selector("body")[1] + print(get_header(properties)) + -- return s + return get_header(properties) .. body:serialize():gsub("<body.->", ""):gsub("</body>", "") +end |