git.iko.soy/typeable/pandoc
on master help sign in
EPUB: Use title instead of "Title Page" in contents.
c554c61John MacFarlane
src/Text/Pandoc/Writers/EPUB.hs+1−1
compare with master
unifiedsplit
@@ -206,7 +206,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
206 , unode "docTitle" $ unode "text" $ plainTitle
206 , unode "docTitle" $ unode "text" $ plainTitle
207 , unode "navMap" $ zipWith3 navPointNode (tpEntry : chapterEntries)
207 , unode "navMap" $ zipWith3 navPointNode (tpEntry : chapterEntries)
208 [1..(length chapterEntries + 1)]
208 [1..(length chapterEntries + 1)]
209− ("Title Page" : map (\(Pandoc m _) ->
209+ (plainTitle : map (\(Pandoc m _) ->
210 plainify $ docTitle m) chapters)
210 plainify $ docTitle m) chapters)
211 ]
211 ]
212 let tocEntry = mkEntry "toc.ncx" tocData
212 let tocEntry = mkEntry "toc.ncx" tocData