diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2014-11-17 15:43:40 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2014-11-17 15:43:40 -0800 |
commit | 7a5cb29319e6daae3ed1cf01a966ca3aac6bec22 (patch) | |
tree | 3bddfacf86577d85ee00eb4cf093b2ada2a47bc7 | |
parent | 91a26fcdc4a06f7b647760dca378fa425880367e (diff) |
Really fix #1758. Add `id="cover"` to body on cover page.
Not title page!
m--------- | data/templates | 12 | ||||
-rw-r--r-- | src/Text/Pandoc/Writers/EPUB.hs | 5 |
2 files changed, 10 insertions, 7 deletions
diff --git a/data/templates b/data/templates -Subproject 7ff2baf592ee4627da0ad1e5cec60e6be3de578 +Subproject c76c6c52249118e49c5dd1b99fe916724350a59 diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 456158116..2291c7184 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -358,8 +358,9 @@ writeEPUB opts doc@(Pandoc meta _) = do Nothing -> return ([],[]) Just img -> do let coverImage = "media/" ++ takeFileName img - let cpContent = renderHtml $ writeHtml opts' - (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"]) + let cpContent = renderHtml $ writeHtml + opts'{ writerVariables = ("coverpage","true"):vars } + (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"]) imgContent <- B.readFile img return ( [mkEntry "cover.xhtml" cpContent] , [mkEntry coverImage imgContent] ) |