diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-08-25 21:36:43 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-08-25 21:36:43 -0700 |
commit | c554c6190768160860d3c3ea4e7ca8c978364406 (patch) | |
tree | 073800cf190f05f1e2551dfe9bd54f4a78433c3b /src/Text/Pandoc | |
parent | a6dcae1648e948bc984683639bf80173cf59ff7b (diff) | |
download | pandoc-c554c6190768160860d3c3ea4e7ca8c978364406.tar.gz |
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.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 46310e398..b6527c6c8 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -206,7 +206,7 @@ writeEPUB opts doc@(Pandoc meta _) = do , unode "docTitle" $ unode "text" $ plainTitle , unode "navMap" $ zipWith3 navPointNode (tpEntry : chapterEntries) [1..(length chapterEntries + 1)] - ("Title Page" : map (\(Pandoc m _) -> + (plainTitle : map (\(Pandoc m _) -> plainify $ docTitle m) chapters) ] let tocEntry = mkEntry "toc.ncx" tocData |