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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
if not modules then modules = { } end modules ['mtx-epub'] = {
version = 1.001,
comment = "companion to mtxrun.lua",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local format = string.format
local concat = table.concat
local helpinfo = [[
--make create epub zip file
example:
mtxrun --script epub --make mydocument
]]
local application = logs.application {
name = "mtx-epub",
banner = "ConTeXt EPUB Helpers 0.10",
helpinfo = helpinfo,
}
-- script code
scripts = scripts or { }
scripts.epub = scripts.epub or { }
local mimetype = "application/epub+zip"
local container = [[
<?xml version="1.0" encoding="UTF-8" ?>
<container version="1.0" xmlns="urn:oasis:names:tc:opendocument:xmlns:container">
<rootfiles>
<rootfile full-path="OPS/%s" media-type="application/oebps-package+xml"/>
</rootfiles>
</container>
]]
local package = [[
<?xml version="1.0"?>
<package version="2.0" xmlns="http://www.idpf.org/2007/opf" unique-identifier="%s">
<metadata xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:opf="http://www.idpf.org/2007/opf">
<dc:title>My Title</dc:title>
<dc:language>en</dc:language>
<dc:identifier id="%s" />
<dc:creator opf:file-as="Self, My" opf:role="aut">MySelf</dc:creator>
</metadata>
<manifest>
%s
</manifest>
<spine toc="ncx">
<itemref idref="%s" />
</spine>
</package>
]]
local mimetypes = {
xhtml = "application/xhtml+xml",
css = "text/css",
}
-- specification = {
-- name = "document",
-- identifier = "123",
-- root = "a.xhtml",
-- files = {
-- "a.xhtml",
-- "b.css",
-- "c.png",
-- }
-- }
function scripts.epub.make()
local filename = environment.files[1]
if filename and filename ~= "" then
filename = file.basename(filename)
local specfile = file.replacesuffix(filename,"specification")
local specification = lfs.isfile(specfile) and dofile(specfile) or { }
inspect(specification)
local name = specification.name or file.removesuffix(filename)
local identifier = specification.identifier or os.uuid()
local files = specification.files or { file.addsuffix(filename,"xhtml") }
local root = specification.root or files[1]
local epubname = name
local epubpath = file.replacesuffix(name,"tree")
local epubfile = file.replacesuffix(name,"epub")
local epubroot = file.replacesuffix(name,"opf")
local used = { }
for i=1,#files do
local filename = files[i]
local suffix = file.suffix(filename)
local mime = mimetypes[suffix]
if mime then
file.copy(filename,file.join(epubpath,"OPS",filename))
used[#used+1] = format("<item id='%s' href='%s' media-type='%s'/>",i,filename,mime)
end
end
container = format(container,epubroot)
package = format(package,identifier,identifier,concat(used,"\n"),root)
lfs.mkdir(epubpath)
lfs.mkdir(file.join(epubpath,"META-INF"))
lfs.mkdir(file.join(epubpath,"OPS"))
io.savedata(file.join(epubpath,"mimetype"),mimetype)
io.savedata(file.join(epubpath,"META-INF","container.xml"),container)
io.savedata(file.join(epubpath,"OPS",epubroot),package)
lfs.chdir(epubpath)
os.remove(epubfile)
os.execute(format("zip %s -0 %s",epubfile,"mimetype"))
os.execute(format("zip %s -r %s",epubfile,"META-INF"))
os.execute(format("zip %s -r %s",epubfile,"OPS"))
lfs.chdir("..")
application.report("epub archive: %s",file.join(epubpath,epubfile))
end
end
--
if environment.argument("make") then
scripts.epub.make()
else
application.help()
end
|
