diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Class/PandocMonad.hs | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs index 6660db286..e108dd13e 100644 --- a/src/Text/Pandoc/Class/PandocMonad.hs +++ b/src/Text/Pandoc/Class/PandocMonad.hs @@ -703,15 +703,24 @@ fillMediaBag d = walkM handleImage d report $ CouldNotFetchResource src "replacing image with description" -- emit alt text - return $ Span ("",["image"],[]) lab + return $ replacementSpan attr src tit lab PandocHttpError u er -> do report $ CouldNotFetchResource u (T.pack $ show er ++ "\rReplacing image with description.") -- emit alt text - return $ Span ("",["image"],[]) lab + return $ replacementSpan attr src tit lab _ -> throwError e) handleImage x = return x + replacementSpan (ident, classes, attribs) src title descr = + Span ( ident + , "image":"placeholder":classes + , ("original-image-src", src) : + ("original-image-title", title) : + attribs + ) + descr + -- This requires UndecidableInstances. We could avoid that -- by repeating the definitions below for every monad transformer -- we use: ReaderT, WriterT, StateT, RWST. But this seems to |