1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{-# LANGUAGE OverloadedStrings #-}
{- |
Module : Text.Pandoc.Lua.Module.Format
Copyright : © 2022 Albert Krewinkel
License : GPL-2.0-or-later
Maintainer : Albert Krewinkel <[email protected]>
Lua module to handle pandoc templates.
-}
module Text.Pandoc.Lua.Module.Format
( documentedModule
) where
import HsLua
import Text.Pandoc.Error (PandocError)
import Text.Pandoc.Extensions (getAllExtensions, getDefaultExtensions)
import Text.Pandoc.Lua.Marshal.Format (pushExtensions)
import Text.Pandoc.Lua.PandocLua ()
import qualified Data.Text as T
-- | The "pandoc.format" module.
documentedModule :: Module PandocError
documentedModule = Module
{ moduleName = "pandoc.format"
, moduleDescription = T.unlines
[ "Pandoc formats and their extensions."
]
, moduleFields = []
, moduleOperations = []
, moduleFunctions = functions
}
-- | Extension module functions.
functions :: [DocumentedFunction PandocError]
functions =
[ defun "default_extensions"
### liftPure getDefaultExtensions
<#> parameter peekText "string" "format" "format name"
=#> functionResult pushExtensions "FormatExtensions"
"default extensions enabled for `format`"
#? T.unlines
[ "Returns the list of default extensions of the given format; this"
, "function does not check if the format is supported, it will return"
, "a fallback list of extensions even for unknown formats."
]
, defun "all_extensions"
### liftPure getAllExtensions
<#> parameter peekText "string" "format" "format name"
=#> functionResult pushExtensions "FormatExtensions"
"all extensions supported for `format`"
#? T.unlines
[ "Returns the list of all valid extensions for a format."
, "No distinction is made between input and output; an extension"
, "can have an effect when reading a format but not when"
, "writing it, or *vice versa*."
]
]
|
