@@ -448,7 +448,12 @@ writeEPUB opts doc@(Pandoc meta _) = do
448 [("properties","nav") | epub3 ]) $ ()
448 [("properties","nav") | epub3 ]) $ ()
450 map chapterNode (cpgEntry ++ (tpEntry : chapterEntries)) ++
450 map chapterNode (cpgEntry ++ (tpEntry : chapterEntries)) ++
454+ [Attr (unqual "properties") "cover-image" | epub3]
455+ (pictureNode x)]) ++
451− map pictureNode (cpicEntry ++ picEntries) ++
456+ map pictureNode picEntries ++
452 map fontNode fontEntries
457 map fontNode fontEntries
453 , unode "spine" ! [("toc","ncx")] $
458 , unode "spine" ! [("toc","ncx")] $
454 case epubCoverImage metadata of
459 case epubCoverImage metadata of