4b95372 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Class: Add insertDeferredMedia function.

4b95372Jesse Rosenthal10 years ago

src/Text/Pandoc/Class.hs+7

@@ -46,6 +46,7 @@ module Text.Pandoc.Class ( PandocMonad(..)

46 , getMediaBag

47 , setMediaBag

48 , insertMedia

49+ , insertDeferredMedia

49 , fetchItem

50 , fetchItem

50 , getInputFiles

51 , getInputFiles

51 , getOutputFile

52 , getOutputFile

@@ -147,6 +148,12 @@ insertMedia fp mime bs = do

147 let mb' = MB.insertMedia fp mime bs mb

148 let mb' = MB.insertMedia fp mime bs mb

148 modifyCommonState $ \st -> st{stDeferredMediaBag =DeferredMediaBag mb' dm }

149 modifyCommonState $ \st -> st{stDeferredMediaBag =DeferredMediaBag mb' dm }

149

150

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+

150getInputFiles :: PandocMonad m => m (Maybe [FilePath])

157getInputFiles :: PandocMonad m => m (Maybe [FilePath])

151getInputFiles = getsCommonState stInputFiles

158getInputFiles = getsCommonState stInputFiles

152

159