git.iko.soy/typeable/pandoc
on master help sign in
EPUB writer: Don't include node for cover.xhtml if no cover!
56277baJohn MacFarlane
src/Text/Pandoc/Writers/EPUB.hs+3−2
compare with master
unifiedsplit
@@ -267,8 +267,9 @@ writeEPUB opts doc@(Pandoc meta _) = do
267 , unode "guide" $
267 , unode "guide" $
268 [ unode "reference" !
268 [ unode "reference" !
269 [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ ()
269 [("type","toc"),("title",plainTitle),("href","nav.xhtml")] $ ()
270+ ] ++
270− , unode "reference" !
271+ [ unode "reference" !
271− [("type","cover"),("title","Cover"),("href","cover.xhtml")] $ ()
272+ [("type","cover"),("title","Cover"),("href","cover.xhtml")] $ () | mbCoverImage /= Nothing
272 ]
273 ]
273 ]
274 ]
274 let contentsEntry = mkEntry "content.opf" contentsData
275 let contentsEntry = mkEntry "content.opf" contentsData