From bc2aca3d6d4f3d59ba0b6a4b2f1e17ed4716e31a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 15 Feb 2019 22:55:17 -0800 Subject: ipynb writer: don't create attachments for images with absolute URIs. ...including data: URIs. Closes #5303. --- src/Text/Pandoc/Writers/Ipynb.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Writers') diff --git a/src/Text/Pandoc/Writers/Ipynb.hs b/src/Text/Pandoc/Writers/Ipynb.hs index a268efa01..38429f790 100644 --- a/src/Text/Pandoc/Writers/Ipynb.hs +++ b/src/Text/Pandoc/Writers/Ipynb.hs @@ -49,7 +49,7 @@ import Data.Text (Text) import qualified Data.Text as T import Data.Aeson as Aeson import qualified Text.Pandoc.UTF8 as UTF8 -import Text.Pandoc.Shared (safeRead) +import Text.Pandoc.Shared (safeRead, isURI) import Text.Pandoc.Writers.Shared (metaToJSON') import Text.Pandoc.Writers.Markdown (writeMarkdown) import qualified Data.Text.Encoding as TE @@ -98,7 +98,8 @@ pandocToNotebook opts (Pandoc meta blocks) = do addAttachment :: PandocMonad m => Inline -> StateT (M.Map Text MimeBundle) m Inline -addAttachment (Image attr lab (src,tit)) = do +addAttachment (Image attr lab (src,tit)) + | not (isURI src) = do (img, mbmt) <- fetchItem src let mt = maybe "application/octet-stream" (T.pack) mbmt modify $ M.insert (T.pack src) -- cgit v1.2.3