@@ -49,7 +49,7 @@ import Data.Text (Text)
4949import qualified Data.Text as T
5050import Data.Aeson as Aeson
5151import qualified Text.Pandoc.UTF8 as UTF8
52−import Text.Pandoc.Shared (safeRead)
52+import Text.Pandoc.Shared (safeRead, isURI)
5353import Text.Pandoc.Writers.Shared (metaToJSON')
5454import Text.Pandoc.Writers.Markdown (writeMarkdown)
5555import qualified Data.Text.Encoding as TE
@@ -98,7 +98,8 @@ pandocToNotebook opts (Pandoc meta blocks) = do
9898addAttachment :: PandocMonad m
9999 => Inline
100100 -> StateT (M.Map Text MimeBundle) m Inline
101−addAttachment (Image attr lab (src,tit)) = do
101+addAttachment (Image attr lab (src,tit))
102+ | not (isURI src) = do
102103 (img, mbmt) <- fetchItem src
103104 let mt = maybe "application/octet-stream" (T.pack) mbmt
104105 modify $ M.insert (T.pack src)