crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

epub: add spline generation

Browse source 
FossilOrigin-Name: 1beb1ae2cf458f9c515a1cf12efdb083f4a8dbc28d1482383df2b974f6c290a7
This commit is contained in:
crc 2020-09-24 19:57:52 +00:00
parent 5340a97c9f
commit 81d80e980b
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
generate-epub.retro
View file

@ -17,9 +17,7 @@ Our structure will look like:
|-- stylesheet.css
|-- cover.xhtml
|-- toc.xhtml
|-- chapterAA.xhtml
|-- ...
`-- chapterZZ.xhtml
|-- chapters/...
Begin by defining some helper functions for writing to a
@ -91,12 +89,12 @@ Spine:
'__</metadata> file:s:put file:nl
'__<manifest> file:s:put file:nl
#0 TOC [ over swap '____<item_href="chapters/%s.html"_id="CHAPTEr%n"_media-type="application/xhtml+xml"/> s:format file:s:put file:nl n:inc ] a:for-each
#0 TOC [ over swap '____<item_href="chapters/%s.html"_id="CHAP%n"_media-type="application/xhtml+xml"/> s:format file:s:put file:nl n:inc ] a:for-each
drop
'__</manifest> file:s:put file:nl
'__<spine_toc="ncx"> file:s:put file:nl
(spine)
#0 TOC [ drop dup '____<itemref_idref="CHAP%n"_linear="yes"/> s:format file:s:put file:nl n:inc ] a:for-each drop
'__</spine> file:s:put file:nl
'__<guide> file:s:put file:nl