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
|
#!/usr/bin/env -S wordgrinder --lua
-- © 2013 David Given.
-- WordGrinder is licensed under the MIT open source license. See the COPYING
-- file in this distribution for the full text.
-- This user script will export all subdocuments in a document set.
--
-- To use:
--
-- wordgrinder --lua exportall.lua mynovel.wg output.html
--
-- (Note the quoting.)
--
-- If mynovel.wg contains subdocuments called Foo, Bar and Baz, this will
-- create files output.1.Foo.html, output.2.Bar.html and output.3.Baz.html.
-- Main program
local function main(inputfile, template)
if not template then
print("Syntax: wordgrinder --lua exportall.lua '<inputfile.wg> <outputfiletemplate>'")
os.exit(1)
end
local export_table =
{
["wg"] = Cmd.SaveCurrentDocumentAs,
["odt"] = Cmd.ExportODTFile,
["html"] = Cmd.ExportHTMLFile,
["tr"] = Cmd.ExportTroffFile,
["tex"] = Cmd.ExportLatexFile,
["txt"] = Cmd.ExportTextFile,
["md"] = Cmd.ExportMarkdownFile,
}
local _, _, extension = template:find("%.(%w+)$")
local exporter = export_table[extension or ""]
if not exporter then
print("Unknown output format")
os.exit(1)
end
if not Cmd.LoadDocumentSet(inputfile) then
print("failed to load document")
os.exit(1)
end
for i, doc in ipairs(DocumentSet:getDocumentList()) do
local outputfile = template:gsub("%.(%w+)$", "."..i.."."..doc.name..".%1")
print(outputfile)
Document = doc
if not exporter(outputfile) then
print("failed to write output file")
os.exit(1)
end
end
end
main(...)
os.exit(0)
|
