EPUB: Use title instead of "Title Page" in contents.
Otherwise we have a hard-coded English string, which looks
strange in ebooks written in other languages. Using the
title for this entry seems a good solution. Closes #572.
commitc554c6190768160860d3c3ea4e7ca8c978364406
authorJohn MacFarlane <jgm@berkeley.edu>
dateSat 25 Aug 2012, 21:36 (14 years ago)
parenta6dcae1
src/Text/Pandoc/Writers/EPUB.hs+1−1
@@ -206,7 +206,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
206206 , unode "docTitle" $ unode "text" $ plainTitle
207207 , unode "navMap" $ zipWith3 navPointNode (tpEntry : chapterEntries)
208208 [1..(length chapterEntries + 1)]
209− ("Title Page" : map (\(Pandoc m _) ->
209+ (plainTitle : map (\(Pandoc m _) ->
210210 plainify $ docTitle m) chapters)
211211 ]
212212 let tocEntry = mkEntry "toc.ncx" tocData