{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
module Text.Pandoc.Lua.Module.MediaBag
( documentedModule
) where
import Prelude hiding (lookup)
import Data.Maybe (fromMaybe)
import Data.Version (makeVersion)
import HsLua ( LuaE, DocumentedFunction, Module (..)
, (<#>), (###), (=#>), (=?>), (#?), defun, functionResult
, opt, parameter, since, stringParam, textParam)
import Text.Pandoc.Class ( CommonState (..), fetchItem, fillMediaBag
, getMediaBag, modifyCommonState, setMediaBag)
import Text.Pandoc.Class.IO (writeMedia)
import Text.Pandoc.Error (PandocError)
import Text.Pandoc.Lua.Marshal.Pandoc (peekPandoc, pushPandoc)
import Text.Pandoc.Lua.Marshal.List (pushPandocList)
import Text.Pandoc.Lua.Orphans ()
import Text.Pandoc.Lua.PandocLua (unPandocLua)
import Text.Pandoc.MIME (MimeType)
import qualified Data.ByteString.Lazy as BL
import qualified Data.Text as T
import qualified HsLua as Lua
import qualified Text.Pandoc.MediaBag as MB
documentedModule :: Module PandocError
documentedModule :: Module PandocError
documentedModule = Module
{ moduleName :: Name
moduleName = Name
"pandoc.mediabag"
, moduleDescription :: Text
moduleDescription = [Text] -> Text
T.unlines
[ Text
"The `pandoc.mediabag` module allows accessing pandoc's media"
, Text
"storage. The \"media bag\" is used when pandoc is called with the"
, Text
"`--extract-media` or (for HTML only) `--embed-resources` option."
, Text
""
, Text
"The module is loaded as part of module `pandoc` and can either"
, Text
"be accessed via the `pandoc.mediabag` field, or explicitly"
, Text
"required, e.g.:"
, Text
""
, Text
" local mb = require 'pandoc.mediabag'"
]
, moduleFields :: [Field PandocError]
moduleFields = []
, moduleFunctions :: [DocumentedFunction PandocError]
moduleFunctions =
[ DocumentedFunction PandocError
delete DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
7,Int
3]
, DocumentedFunction PandocError
empty DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
7,Int
3]
, DocumentedFunction PandocError
fetch DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
0]
, DocumentedFunction PandocError
fill DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
19]
, DocumentedFunction PandocError
insert DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
0]
, DocumentedFunction PandocError
items DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
7,Int
3]
, DocumentedFunction PandocError
list DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
0]
, DocumentedFunction PandocError
lookup DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
2,Int
0]
, DocumentedFunction PandocError
write DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
3,Int
0]
]
, moduleOperations :: [(Operation, DocumentedFunction PandocError)]
moduleOperations = []
, moduleTypeInitializers :: [LuaE PandocError Name]
moduleTypeInitializers = []
}
delete :: DocumentedFunction PandocError
delete :: DocumentedFunction PandocError
delete = Name
-> (String -> LuaE PandocError ())
-> HsFnPrecursor PandocError (String -> LuaE PandocError ())
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"delete"
### (\fp -> unPandocLua $ modifyCommonState
(\st -> st { stMediaBag = MB.deleteMedia fp (stMediaBag st) }))
HsFnPrecursor PandocError (String -> LuaE PandocError ())
-> Parameter PandocError String
-> HsFnPrecursor PandocError (LuaE PandocError ())
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Text -> Text -> Parameter PandocError String
forall e. Text -> Text -> Parameter e String
stringParam Text
"filepath"
(Text
"Filename of the item to deleted. The media bag will be " Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"left unchanged if no entry with the given filename exists.")
HsFnPrecursor PandocError (LuaE PandocError ())
-> FunctionResults PandocError () -> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> []
#? "Removes a single entry from the media bag."
empty :: DocumentedFunction PandocError
empty :: DocumentedFunction PandocError
empty = Name
-> LuaE PandocError ()
-> HsFnPrecursor PandocError (LuaE PandocError ())
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"empty"
### unPandocLua (modifyCommonState (\st -> st { stMediaBag = mempty }))
HsFnPrecursor PandocError (LuaE PandocError ())
-> FunctionResults PandocError () -> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> []
#? "Clear-out the media bag, deleting all items."
fill :: DocumentedFunction PandocError
fill :: DocumentedFunction PandocError
fill = Name
-> (Pandoc -> LuaE PandocError Pandoc)
-> HsFnPrecursor PandocError (Pandoc -> LuaE PandocError Pandoc)
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"fill"
### unPandocLua . fillMediaBag
HsFnPrecursor PandocError (Pandoc -> LuaE PandocError Pandoc)
-> Parameter PandocError Pandoc
-> HsFnPrecursor PandocError (LuaE PandocError Pandoc)
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Peeker PandocError Pandoc
-> TypeSpec -> Text -> Text -> Parameter PandocError Pandoc
forall e a. Peeker e a -> TypeSpec -> Text -> Text -> Parameter e a
parameter Peeker PandocError Pandoc
forall e. LuaError e => Peeker e Pandoc
peekPandoc TypeSpec
"Pandoc" Text
"doc"
Text
"document from which to fill the mediabag"
HsFnPrecursor PandocError (LuaE PandocError Pandoc)
-> FunctionResults PandocError Pandoc
-> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> Pusher PandocError Pandoc
-> TypeSpec -> Text -> FunctionResults PandocError Pandoc
forall e a. Pusher e a -> TypeSpec -> Text -> FunctionResults e a
functionResult Pusher PandocError Pandoc
forall e. LuaError e => Pusher e Pandoc
pushPandoc TypeSpec
"Pandoc" Text
"modified document"
#? ("Fills the mediabag with the images in the given document.\n" <>
"An image that cannot be retrieved will be replaced with a Span\n" <>
"of class \"image\" that contains the image description.\n" <>
"\n" <>
"Images for which the mediabag already contains an item will\n" <>
"not be processed again.")
insert :: DocumentedFunction PandocError
insert :: DocumentedFunction PandocError
insert = Name
-> (String
-> Maybe Text -> ByteString -> LuaE PandocError NumResults)
-> HsFnPrecursor
PandocError
(String -> Maybe Text -> ByteString -> LuaE PandocError NumResults)
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"insert"
### (\fp mmime contents -> unPandocLua $ do
mb <- getMediaBag
setMediaBag $ MB.insertMedia fp mmime contents mb
return (Lua.NumResults 0))
HsFnPrecursor
PandocError
(String -> Maybe Text -> ByteString -> LuaE PandocError NumResults)
-> Parameter PandocError String
-> HsFnPrecursor
PandocError
(Maybe Text -> ByteString -> LuaE PandocError NumResults)
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Text -> Text -> Parameter PandocError String
forall e. Text -> Text -> Parameter e String
stringParam Text
"filepath" Text
"filename and path relative to the output folder."
HsFnPrecursor
PandocError
(Maybe Text -> ByteString -> LuaE PandocError NumResults)
-> Parameter PandocError (Maybe Text)
-> HsFnPrecursor
PandocError (ByteString -> LuaE PandocError NumResults)
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Parameter PandocError Text -> Parameter PandocError (Maybe Text)
forall e a. Parameter e a -> Parameter e (Maybe a)
opt (Text -> Text -> Parameter PandocError Text
forall e. Text -> Text -> Parameter e Text
textParam Text
"mimetype"
Text
"the item's MIME type; omit if unknown or unavailable.")
HsFnPrecursor
PandocError (ByteString -> LuaE PandocError NumResults)
-> Parameter PandocError ByteString
-> HsFnPrecursor PandocError (LuaE PandocError NumResults)
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Peeker PandocError ByteString
-> TypeSpec -> Text -> Text -> Parameter PandocError ByteString
forall e a. Peeker e a -> TypeSpec -> Text -> Text -> Parameter e a
parameter Peeker PandocError ByteString
forall e. Peeker e ByteString
Lua.peekLazyByteString TypeSpec
"string" Text
"contents"
Text
"the binary contents of the file."
HsFnPrecursor PandocError (LuaE PandocError NumResults)
-> FunctionResults PandocError NumResults
-> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> []
#? T.unlines
[ "Adds a new entry to pandoc's media bag. Replaces any existing"
, "media bag entry the same `filepath`."
, ""
, "Usage:"
, ""
, " local fp = 'media/hello.txt'"
, " local mt = 'text/plain'"
, " local contents = 'Hello, World!'"
, " pandoc.mediabag.insert(fp, mt, contents)"
]
items :: DocumentedFunction PandocError
items :: DocumentedFunction PandocError
items = Name
-> LuaE PandocError NumResults
-> HsFnPrecursor PandocError (LuaE PandocError NumResults)
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"items"
### (do
mb <- unPandocLua getMediaBag
let pushItem (fp, mimetype, contents) = do
Lua.pushString fp
Lua.pushText mimetype
Lua.pushByteString $ BL.toStrict contents
return (Lua.NumResults 3)
Lua.pushIterator pushItem (MB.mediaItems mb))
HsFnPrecursor PandocError (LuaE PandocError NumResults)
-> Text -> DocumentedFunction PandocError
forall e.
HsFnPrecursor e (LuaE e NumResults) -> Text -> DocumentedFunction e
=?> [Text] -> Text
T.unlines
[ Text
"Iterator triple:"
, Text
""
, Text
"- The iterator function; must be called with the iterator"
, Text
" state and the current iterator value."
, Text
"- Iterator state -- an opaque value to be passed to the"
, Text
" iterator function."
, Text
"- Initial iterator value."
]
#? T.unlines
[ "Returns an iterator triple to be used with Lua's generic `for`"
, "statement. The iterator returns the filepath, MIME type, and"
, "content of a media bag item on each invocation. Items are"
, "processed one-by-one to avoid excessive memory use."
, ""
, "This function should be used only when full access to all items,"
, "including their contents, is required. For all other cases,"
, "[`list`](#pandoc.mediabag.list) should be preferred."
, ""
, "Usage:"
, ""
, " for fp, mt, contents in pandoc.mediabag.items() do"
, " -- print(fp, mt, contents)"
, " end"
]
lookup :: DocumentedFunction PandocError
lookup :: DocumentedFunction PandocError
lookup = Name
-> (String -> LuaE PandocError (Maybe MediaItem))
-> HsFnPrecursor
PandocError (String -> LuaE PandocError (Maybe MediaItem))
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"lookup"
### (\fp -> unPandocLua (MB.lookupMedia fp <$> getMediaBag))
HsFnPrecursor
PandocError (String -> LuaE PandocError (Maybe MediaItem))
-> Parameter PandocError String
-> HsFnPrecursor PandocError (LuaE PandocError (Maybe MediaItem))
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Text -> Text -> Parameter PandocError String
forall e. Text -> Text -> Parameter e String
stringParam Text
"filepath" Text
"name of the file to look up."
HsFnPrecursor PandocError (LuaE PandocError (Maybe MediaItem))
-> FunctionResults PandocError (Maybe MediaItem)
-> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> [FunctionResults PandocError (Maybe MediaItem)]
-> FunctionResults PandocError (Maybe MediaItem)
forall a. Monoid a => [a] -> a
mconcat
[ Pusher PandocError (Maybe MediaItem)
-> TypeSpec
-> Text
-> FunctionResults PandocError (Maybe MediaItem)
forall e a. Pusher e a -> TypeSpec -> Text -> FunctionResults e a
functionResult
(LuaE PandocError ()
-> (MediaItem -> LuaE PandocError ())
-> Pusher PandocError (Maybe MediaItem)
forall b a. b -> (a -> b) -> Maybe a -> b
maybe LuaE PandocError ()
forall e. LuaE e ()
Lua.pushnil (Pusher PandocError Text
forall e. Pusher e Text
Lua.pushText Pusher PandocError Text
-> (MediaItem -> Text) -> MediaItem -> LuaE PandocError ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MediaItem -> Text
MB.mediaMimeType))
TypeSpec
"string"
Text
"The entry's MIME type, or nil if the file was not found."
, Pusher PandocError (Maybe MediaItem)
-> TypeSpec
-> Text
-> FunctionResults PandocError (Maybe MediaItem)
forall e a. Pusher e a -> TypeSpec -> Text -> FunctionResults e a
functionResult
(LuaE PandocError ()
-> (MediaItem -> LuaE PandocError ())
-> Pusher PandocError (Maybe MediaItem)
forall b a. b -> (a -> b) -> Maybe a -> b
maybe LuaE PandocError ()
forall e. LuaE e ()
Lua.pushnil (Pusher PandocError ByteString
forall e. Pusher e ByteString
Lua.pushLazyByteString Pusher PandocError ByteString
-> (MediaItem -> ByteString) -> MediaItem -> LuaE PandocError ()
forall b c a. (b -> c) -> (a -> b) -> a -> c
. MediaItem -> ByteString
MB.mediaContents))
TypeSpec
"string"
Text
"Contents of the file, or nil if the file was not found."
]
#? T.unlines
[ "Lookup a media item in the media bag, and return its MIME type"
, "and contents."
, ""
, "Usage:"
, ""
, " local filename = 'media/diagram.png'"
, " local mt, contents = pandoc.mediabag.lookup(filename)"
]
list :: DocumentedFunction PandocError
list :: DocumentedFunction PandocError
list = Name
-> LuaE PandocError [(String, Text, Int)]
-> HsFnPrecursor
PandocError (LuaE PandocError [(String, Text, Int)])
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"list"
### (unPandocLua (MB.mediaDirectory <$> getMediaBag))
HsFnPrecursor PandocError (LuaE PandocError [(String, Text, Int)])
-> FunctionResults PandocError [(String, Text, Int)]
-> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> Pusher PandocError [(String, Text, Int)]
-> TypeSpec
-> Text
-> FunctionResults PandocError [(String, Text, Int)]
forall e a. Pusher e a -> TypeSpec -> Text -> FunctionResults e a
functionResult (Pusher PandocError (String, Text, Int)
-> Pusher PandocError [(String, Text, Int)]
forall e a. LuaError e => Pusher e a -> Pusher e [a]
pushPandocList Pusher PandocError (String, Text, Int)
pushEntry) TypeSpec
"table"
(Text
"A list of elements summarizing each entry in the media\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"bag. The summary item contains the keys `path`, `type`, and\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"`length`, giving the filepath, MIME type, and length of\n" Text -> Text -> Text
forall a. Semigroup a => a -> a -> a
<>
Text
"contents in bytes, respectively.")
#? T.unlines
[ "Get a summary of the current media bag contents."
, ""
, "Usage:"
, ""
, " -- calculate the size of the media bag."
, " local mb_items = pandoc.mediabag.list()"
, " local sum = 0"
, " for i = 1, #mb_items do"
, " sum = sum + mb_items[i].length"
, " end"
, " print(sum)"
]
where
pushEntry :: (FilePath, MimeType, Int) -> LuaE PandocError ()
pushEntry :: Pusher PandocError (String, Text, Int)
pushEntry (String
fp, Text
mimeType, Int
contentLength) = do
LuaE PandocError ()
forall e. LuaE e ()
Lua.newtable
Name -> LuaE PandocError ()
forall e. Name -> LuaE e ()
Lua.pushName Name
"path" LuaE PandocError () -> LuaE PandocError () -> LuaE PandocError ()
forall a b.
LuaE PandocError a -> LuaE PandocError b -> LuaE PandocError b
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
*> String -> LuaE PandocError ()
forall e. String -> LuaE e ()
Lua.pushString String
fp LuaE PandocError () -> LuaE PandocError () -> LuaE PandocError ()
forall a b.
LuaE PandocError a -> LuaE PandocError b -> LuaE PandocError b
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
*> StackIndex -> LuaE PandocError ()
forall e. LuaError e => StackIndex -> LuaE e ()
Lua.rawset (-StackIndex
3)
Name -> LuaE PandocError ()
forall e. Name -> LuaE e ()
Lua.pushName Name
"type" LuaE PandocError () -> LuaE PandocError () -> LuaE PandocError ()
forall a b.
LuaE PandocError a -> LuaE PandocError b -> LuaE PandocError b
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
*> Pusher PandocError Text
forall e. Pusher e Text
Lua.pushText Text
mimeType LuaE PandocError () -> LuaE PandocError () -> LuaE PandocError ()
forall a b.
LuaE PandocError a -> LuaE PandocError b -> LuaE PandocError b
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
*> StackIndex -> LuaE PandocError ()
forall e. LuaError e => StackIndex -> LuaE e ()
Lua.rawset (-StackIndex
3)
Name -> LuaE PandocError ()
forall e. Name -> LuaE e ()
Lua.pushName Name
"length" LuaE PandocError () -> LuaE PandocError () -> LuaE PandocError ()
forall a b.
LuaE PandocError a -> LuaE PandocError b -> LuaE PandocError b
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
*> Int -> LuaE PandocError ()
forall a e. (Integral a, Show a) => a -> LuaE e ()
Lua.pushIntegral Int
contentLength LuaE PandocError () -> LuaE PandocError () -> LuaE PandocError ()
forall a b.
LuaE PandocError a -> LuaE PandocError b -> LuaE PandocError b
forall (f :: * -> *) a b. Applicative f => f a -> f b -> f b
*> StackIndex -> LuaE PandocError ()
forall e. LuaError e => StackIndex -> LuaE e ()
Lua.rawset (-StackIndex
3)
fetch :: DocumentedFunction PandocError
fetch :: DocumentedFunction PandocError
fetch = Name
-> (Text -> LuaE PandocError (ByteString, Maybe Text))
-> HsFnPrecursor
PandocError (Text -> LuaE PandocError (ByteString, Maybe Text))
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"fetch"
### (unPandocLua . fetchItem)
HsFnPrecursor
PandocError (Text -> LuaE PandocError (ByteString, Maybe Text))
-> Parameter PandocError Text
-> HsFnPrecursor
PandocError (LuaE PandocError (ByteString, Maybe Text))
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Text -> Text -> Parameter PandocError Text
forall e. Text -> Text -> Parameter e Text
textParam Text
"source" Text
"path to a resource; either a local file path or URI"
HsFnPrecursor
PandocError (LuaE PandocError (ByteString, Maybe Text))
-> FunctionResults PandocError (ByteString, Maybe Text)
-> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> ( Pusher PandocError (ByteString, Maybe Text)
-> TypeSpec
-> Text
-> FunctionResults PandocError (ByteString, Maybe Text)
forall e a. Pusher e a -> TypeSpec -> Text -> FunctionResults e a
functionResult (Pusher PandocError Text
forall e. Pusher e Text
Lua.pushText Pusher PandocError Text
-> ((ByteString, Maybe Text) -> Text)
-> Pusher PandocError (ByteString, Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Text -> Maybe Text -> Text
forall a. a -> Maybe a -> a
fromMaybe Text
"" (Maybe Text -> Text)
-> ((ByteString, Maybe Text) -> Maybe Text)
-> (ByteString, Maybe Text)
-> Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString, Maybe Text) -> Maybe Text
forall a b. (a, b) -> b
snd) TypeSpec
"string"
Text
"The entry's MIME type, or `nil` if the file was not found."
FunctionResults PandocError (ByteString, Maybe Text)
-> FunctionResults PandocError (ByteString, Maybe Text)
-> FunctionResults PandocError (ByteString, Maybe Text)
forall a. Semigroup a => a -> a -> a
<>
Pusher PandocError (ByteString, Maybe Text)
-> TypeSpec
-> Text
-> FunctionResults PandocError (ByteString, Maybe Text)
forall e a. Pusher e a -> TypeSpec -> Text -> FunctionResults e a
functionResult (Pusher PandocError ByteString
forall e. Pusher e ByteString
Lua.pushByteString Pusher PandocError ByteString
-> ((ByteString, Maybe Text) -> ByteString)
-> Pusher PandocError (ByteString, Maybe Text)
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ByteString, Maybe Text) -> ByteString
forall a b. (a, b) -> a
fst) TypeSpec
"string"
Text
"Contents of the file, or `nil` if the file was not found."
)
#? T.unlines
[ "Fetches the given source from a URL or local file. Returns two"
, "values: the contents of the file and the MIME type (or an empty"
, "string)."
, ""
, "The function will first try to retrieve `source` from the"
, "mediabag; if that fails, it will try to download it or read it"
, "from the local file system while respecting pandoc's \"resource"
, "path\" setting."
, ""
, "Usage:"
, ""
, " local diagram_url = 'https://pandoc.org/diagram.jpg'"
, " local mt, contents = pandoc.mediabag.fetch(diagram_url)"
]
write :: DocumentedFunction PandocError
write :: DocumentedFunction PandocError
write = Name
-> (String -> Maybe String -> LuaE PandocError ())
-> HsFnPrecursor
PandocError (String -> Maybe String -> LuaE PandocError ())
forall a e. Name -> a -> HsFnPrecursor e a
defun Name
"write"
### (\dir mfp -> do
mb <- unPandocLua getMediaBag
case mfp of
Nothing -> unPandocLua $ mapM_ (writeMedia dir) (MB.mediaItems mb)
Just fp -> do
case MB.lookupMedia fp mb of
Nothing -> Lua.failLua ("Resource not in mediabag: " <> fp)
Just item -> unPandocLua $ do
let triple = ( MB.mediaPath item
, MB.mediaMimeType item
, MB.mediaContents item
)
writeMedia dir triple)
HsFnPrecursor
PandocError (String -> Maybe String -> LuaE PandocError ())
-> Parameter PandocError String
-> HsFnPrecursor PandocError (Maybe String -> LuaE PandocError ())
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Text -> Text -> Parameter PandocError String
forall e. Text -> Text -> Parameter e String
stringParam Text
"dir" Text
"path of the target directory"
HsFnPrecursor PandocError (Maybe String -> LuaE PandocError ())
-> Parameter PandocError (Maybe String)
-> HsFnPrecursor PandocError (LuaE PandocError ())
forall e a b.
HsFnPrecursor e (a -> b) -> Parameter e a -> HsFnPrecursor e b
<#> Parameter PandocError String
-> Parameter PandocError (Maybe String)
forall e a. Parameter e a -> Parameter e (Maybe a)
opt (Text -> Text -> Parameter PandocError String
forall e. Text -> Text -> Parameter e String
stringParam Text
"fp" Text
"canonical name (relative path) of resource")
HsFnPrecursor PandocError (LuaE PandocError ())
-> FunctionResults PandocError () -> DocumentedFunction PandocError
forall e a.
HsFnPrecursor e (LuaE e a)
-> FunctionResults e a -> DocumentedFunction e
=#> []
#? T.unlines
[ "Writes the contents of mediabag to the given target directory. If"
, "`fp` is given, then only the resource with the given name will be"
, "extracted. Omitting that parameter means that the whole mediabag"
, "gets extracted. An error is thrown if `fp` is given but cannot be"
, "found in the mediabag."
]
DocumentedFunction PandocError
-> Version -> DocumentedFunction PandocError
forall e. DocumentedFunction e -> Version -> DocumentedFunction e
`since` [Int] -> Version
makeVersion [Int
3, Int
0]