From 253f342a80028c7a0fe8d67115c4549cf5fc7d42 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 8 Jan 2019 16:19:54 -0800 Subject: EPUB writer: ensure that picture transforms are done on metadata too. --- src/Text/Pandoc/Writers/EPUB.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src') diff --git a/src/Text/Pandoc/Writers/EPUB.hs b/src/Text/Pandoc/Writers/EPUB.hs index 4faaa1631..676cda970 100644 --- a/src/Text/Pandoc/Writers/EPUB.hs +++ b/src/Text/Pandoc/Writers/EPUB.hs @@ -416,7 +416,12 @@ pandocToEPUB :: PandocMonad m -> WriterOptions -> Pandoc -> E m B.ByteString -pandocToEPUB version opts doc@(Pandoc meta _) = do +pandocToEPUB version opts doc = do + -- handle pictures + Pandoc meta blocks <- walkM (transformInline opts) doc >>= + walkM transformBlock + picEntries <- mapMaybe (snd . snd) <$> gets stMediaPaths + epubSubdir <- gets stEpubSubdir let epub3 = version == EPUB3 let writeHtml o = fmap (UTF8.fromTextLazy . TL.fromStrict) . @@ -486,11 +491,6 @@ pandocToEPUB version opts doc@(Pandoc meta _) = do (Pandoc meta []) tpEntry <- mkEntry "text/title_page.xhtml" tpContent - -- handle pictures - -- mediaRef <- P.newIORef [] - Pandoc _ blocks <- walkM (transformInline opts') doc >>= - walkM transformBlock - picEntries <- mapMaybe (snd . snd) <$> gets stMediaPaths -- handle fonts let matchingGlob f = do xs <- lift $ P.glob f -- cgit v1.2.3