@@ -333,7 +333,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
333333 case epubCoverImage metadata of
334334 Nothing -> return ([],[])
335335 Just img -> do
336− let coverImage = "cover-image" ++ takeExtension img
336+ let coverImage = "media/" ++ takeFileName img
337337 let cpContent = renderHtml $ writeHtml opts'
338338 (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"])
339339 imgContent <- B.readFile img
@@ -561,8 +561,8 @@ writeEPUB opts doc@(Pandoc meta _) = do
561561 ,("content", "0")] $ ()
562562 ] ++ case epubCoverImage metadata of
563563 Nothing -> []
564− Just _ -> [unode "meta" ! [("name","cover"),
565− ("content","cover-image")] $ ()]
564+ Just img -> [unode "meta" ! [("name","cover"),
565+ ("content", toId img)] $ ()]
566566 , unode "docTitle" $ unode "text" $ plainTitle
567567 , unode "navMap" $
568568 tpNode : evalState (mapM (navPointNode navMapFormatter) secs) 1
@@ -657,8 +657,8 @@ metadataElement version md currentTime =
657657 coverageNodes = maybe [] (dcTag' "coverage") $ epubCoverage md
658658 rightsNodes = maybe [] (dcTag' "rights") $ epubRights md
659659 coverImageNodes = maybe []
660− (const $ [unode "meta" ! [("name","cover"),
661− ("content","cover-image")] $ ()])
660+ (\img -> [unode "meta" ! [("name","cover"),
661+ ("content",toId img)] $ ()])
662662 $ epubCoverImage md
663663 modifiedNodes = [ unode "meta" ! [("property", "dcterms:modified")] $
664664 (showDateTimeISO8601 currentTime) | version == EPUB3 ]