d9f5f55 · typeable/pandoc

git.iko.soy/typeable/pandoc

on master help sign in

Class: add setMediaBag function.

d9f5f55Jesse Rosenthal10 years ago

src/Text/Pandoc/Class.hs+6

@@ -101,6 +101,7 @@ class (Functor m, Applicative m, Monad m, MonadError PandocExecutionError m) =>

101 getWarnings :: m [String]

102 fail :: String -> m b

103 glob :: String -> m [FilePath]

104+ setMediaBag :: MediaBag -> m ()

104 insertMedia :: FilePath -> Maybe MimeType -> BL.ByteString -> m ()

105 insertMedia :: FilePath -> Maybe MimeType -> BL.ByteString -> m ()

105

106

106--Some functions derived from Primitives:

107--Some functions derived from Primitives:

@@ -175,6 +176,8 @@ instance PandocMonad PandocIO where

175 liftIO $ IO.warn msg

176 liftIO $ IO.warn msg

176 getWarnings = gets ioStWarnings

177 getWarnings = gets ioStWarnings

177 glob = liftIO . IO.glob

178 glob = liftIO . IO.glob

179+ setMediaBag mb =

180+ modify $ \st -> st{ioStMediaBag = mb}

178 insertMedia fp mime bs =

181 insertMedia fp mime bs =

179 modify $ \st -> st{ioStMediaBag = MB.insertMedia fp mime bs (ioStMediaBag st) }

182 modify $ \st -> st{ioStMediaBag = MB.insertMedia fp mime bs (ioStMediaBag st) }

180

183

@@ -299,5 +302,8 @@ instance PandocMonad PandocPure where

299 fontFiles <- asks envFontFiles

302 fontFiles <- asks envFontFiles

300 return (filter (match (compile s)) fontFiles)

303 return (filter (match (compile s)) fontFiles)

301

304

305+ setMediaBag mb =

306+ modify $ \st -> st{stMediaBag = mb}

307+

302 insertMedia fp mime bs =

308 insertMedia fp mime bs =

303 modify $ \st -> st{stMediaBag = MB.insertMedia fp mime bs (stMediaBag st) }

309 modify $ \st -> st{stMediaBag = MB.insertMedia fp mime bs (stMediaBag st) }