@@ -46,6 +46,7 @@ module Text.Pandoc.Class ( PandocMonad(..)
4646 , getMediaBag
4747 , setMediaBag
4848 , insertMedia
49+ , insertDeferredMedia
4950 , fetchItem
5051 , getInputFiles
5152 , getOutputFile
@@ -147,6 +148,12 @@ insertMedia fp mime bs = do
147148 let mb' = MB.insertMedia fp mime bs mb
148149 modifyCommonState $ \st -> st{stDeferredMediaBag =DeferredMediaBag mb' dm }
149150
151+insertDeferredMedia :: PandocMonad m => FilePath -> m ()
152+insertDeferredMedia fp = do
153+ (DeferredMediaBag mb dm) <- getsCommonState stDeferredMediaBag
154+ modifyCommonState $
155+ \st -> st{stDeferredMediaBag = DeferredMediaBag mb ((DeferredMediaPath fp) : dm)}
156+
150157getInputFiles :: PandocMonad m => m (Maybe [FilePath])
151158getInputFiles = getsCommonState stInputFiles
152159