From c554c6190768160860d3c3ea4e7ca8c978364406 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 25 Aug 2012 21:36:43 -0700
Subject: 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.
---
 src/Text/Pandoc/Writers/EPUB.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3