@@ -333,7 +333,7 @@ writeEPUB opts doc@(Pandoc meta _) = do
333 case epubCoverImage metadata of
333 case epubCoverImage metadata of
334 Nothing -> return ([],[])
334 Nothing -> return ([],[])
335 Just img -> do
335 Just img -> do
336− let coverImage = "cover-image" ++ takeExtension img
336+ let coverImage = "media/" ++ takeFileName img
337 let cpContent = renderHtml $ writeHtml opts'
337 let cpContent = renderHtml $ writeHtml opts'
338 (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"])
338 (Pandoc meta [RawBlock (Format "html") $ "<div id=\"cover-image\">\n<img src=\"" ++ coverImage ++ "\" alt=\"cover image\" />\n</div>"])
339 imgContent <- B.readFile img
339 imgContent <- B.readFile img
@@ -561,8 +561,8 @@ writeEPUB opts doc@(Pandoc meta _) = do
561 ,("content", "0")] $ ()
561 ,("content", "0")] $ ()
562 ] ++ case epubCoverImage metadata of
562 ] ++ case epubCoverImage metadata of
563 Nothing -> []
563 Nothing -> []
564− Just _ -> [unode "meta" ! [("name","cover"),
564+ Just img -> [unode "meta" ! [("name","cover"),
565− ("content","cover-image")] $ ()]
565+ ("content", toId img)] $ ()]
566 , unode "docTitle" $ unode "text" $ plainTitle
566 , unode "docTitle" $ unode "text" $ plainTitle
567 , unode "navMap" $
567 , unode "navMap" $
568 tpNode : evalState (mapM (navPointNode navMapFormatter) secs) 1
568 tpNode : evalState (mapM (navPointNode navMapFormatter) secs) 1
@@ -657,8 +657,8 @@ metadataElement version md currentTime =
657 coverageNodes = maybe [] (dcTag' "coverage") $ epubCoverage md
657 coverageNodes = maybe [] (dcTag' "coverage") $ epubCoverage md
658 rightsNodes = maybe [] (dcTag' "rights") $ epubRights md
658 rightsNodes = maybe [] (dcTag' "rights") $ epubRights md
659 coverImageNodes = maybe []
659 coverImageNodes = maybe []
660− (const $ [unode "meta" ! [("name","cover"),
660+ (\img -> [unode "meta" ! [("name","cover"),
661− ("content","cover-image")] $ ()])
661+ ("content",toId img)] $ ()])
662 $ epubCoverImage md
662 $ epubCoverImage md
663 modifiedNodes = [ unode "meta" ! [("property", "dcterms:modified")] $
663 modifiedNodes = [ unode "meta" ! [("property", "dcterms:modified")] $
664 (showDateTimeISO8601 currentTime) | version == EPUB3 ]
664 (showDateTimeISO8601 currentTime) | version == EPUB3 ]