diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-06-22 12:42:21 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-06-22 12:42:21 +0200 |
| commit | 4a6868885d961b0df782c19f70dd725148446633 (patch) | |
| tree | 3931b91a1ef9755f649a8eca77b3de3284f85ff3 | |
| parent | 2b3e8cb718d527640c237486d84cefa741221035 (diff) | |
EPUB writer: put title_page.xhtml in text/.
| -rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index ab9f873c8..d20eb8a2f 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -422,7 +422,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do tpContent <- lift $ writeHtml opts'{ writerVariables = ("titlepage","true"):vars } (Pandoc meta []) - let tpEntry = mkEntry "title_page.xhtml" tpContent + let tpEntry = mkEntry "text/title_page.xhtml" tpContent -- handle pictures -- mediaRef <- P.newIORef [] @@ -658,7 +658,7 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do let tpNode = unode "navPoint" ! [("id", "navPoint-0")] $ [ unode "navLabel" $ unode "text" (stringify $ docTitle' meta) - , unode "content" ! [("src","title_page.xhtml")] $ () ] + , unode "content" ! [("src","text/title_page.xhtml")] $ () ] navMap <- lift $ evalStateT (mapM (navPointNode navMapFormatter) secs) 1 let tocData = UTF8.fromStringLazy $ ppTopElement $ |