@@ -416,7 +416,12 @@ pandocToEPUB :: PandocMonad m
416416 -> WriterOptions
417417 -> Pandoc
418418 -> E m B.ByteString
419−pandocToEPUB version opts doc@(Pandoc meta _) = do
419+pandocToEPUB version opts doc = do
420+ -- handle pictures
421+ Pandoc meta blocks <- walkM (transformInline opts) doc >>=
422+ walkM transformBlock
423+ picEntries <- mapMaybe (snd . snd) <$> gets stMediaPaths
424+
420425 epubSubdir <- gets stEpubSubdir
421426 let epub3 = version == EPUB3
422427 let writeHtml o = fmap (UTF8.fromTextLazy . TL.fromStrict) .
@@ -486,11 +491,6 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do
486491 (Pandoc meta [])
487492 tpEntry <- mkEntry "text/title_page.xhtml" tpContent
488493
489− -- handle pictures
490− -- mediaRef <- P.newIORef []
491− Pandoc _ blocks <- walkM (transformInline opts') doc >>=
492− walkM transformBlock
493− picEntries <- mapMaybe (snd . snd) <$> gets stMediaPaths
494494 -- handle fonts
495495 let matchingGlob f = do
496496 xs <- lift $ P.glob f