Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Fixed a couple validation bugs that affect epub2 also.

Browse source
This commit is contained in:
John MacFarlane 2012-11-02 20:14:18 -07:00
parent 83556239b1
commit 76d3c0d028
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Text/Pandoc/Writers/EPUB.hs
View file

@ -140,7 +140,7 @@ writeEPUB version opts doc@(Pandoc meta _) = do
let chapToEntry :: Int -> [Tag String] -> Entry
chapToEntry num ts = mkEntry (showChapter num)
$ fromStringLazy
$ renderTemplate [("body",renderTags ts)]
$ renderTemplate [("body",renderTags ts), ("pagetitle",show num)]
$ pageTemplate
let chapterEntries = zipWith chapToEntry [1..] chunks
@ -173,8 +173,9 @@ writeEPUB version opts doc@(Pandoc meta _) = do
Pandoc meta [Plain t]
let plainTitle = plainify $ docTitle meta
let plainAuthors = map plainify $ docAuthors meta
let plainDate = maybe "" id $ normalizeDate $ stringify $ docDate meta
currentTime <- getCurrentTime
let plainDate = maybe (showDateTimeISO8601 currentTime) id
$ normalizeDate $ stringify $ docDate meta
let contentsData = fromStringLazy $ ppTopElement $
unode "package" ! [("version", case version of
EPUB2 -> "2.0"