@@ -101,6 +101,7 @@ class (Functor m, Applicative m, Monad m, MonadError PandocExecutionError m) =>
101101 getWarnings :: m [String]
102102 fail :: String -> m b
103103 glob :: String -> m [FilePath]
104+ setMediaBag :: MediaBag -> m ()
104105 insertMedia :: FilePath -> Maybe MimeType -> BL.ByteString -> m ()
105106
106107--Some functions derived from Primitives:
@@ -175,6 +176,8 @@ instance PandocMonad PandocIO where
175176 liftIO $ IO.warn msg
176177 getWarnings = gets ioStWarnings
177178 glob = liftIO . IO.glob
179+ setMediaBag mb =
180+ modify $ \st -> st{ioStMediaBag = mb}
178181 insertMedia fp mime bs =
179182 modify $ \st -> st{ioStMediaBag = MB.insertMedia fp mime bs (ioStMediaBag st) }
180183
@@ -299,5 +302,8 @@ instance PandocMonad PandocPure where
299302 fontFiles <- asks envFontFiles
300303 return (filter (match (compile s)) fontFiles)
301304
305+ setMediaBag mb =
306+ modify $ \st -> st{stMediaBag = mb}
307+
302308 insertMedia fp mime bs =
303309 modify $ \st -> st{stMediaBag = MB.insertMedia fp mime bs (stMediaBag st) }