From 6a5ac90bf18f46beb6df4921f428dfb48ccb1fa8 Mon Sep 17 00:00:00 2001 From: Albert Krewinkel Date: Fri, 31 Dec 2021 20:12:23 +0100 Subject: Lua: add `pandoc.WriterOptions` constructor --- src/Text/Pandoc/Lua/Module/Pandoc.hs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'src/Text/Pandoc/Lua/Module') diff --git a/src/Text/Pandoc/Lua/Module/Pandoc.hs b/src/Text/Pandoc/Lua/Module/Pandoc.hs index e9603f827..c0127cdfe 100644 --- a/src/Text/Pandoc/Lua/Module/Pandoc.hs +++ b/src/Text/Pandoc/Lua/Module/Pandoc.hs @@ -34,6 +34,8 @@ import Text.Pandoc.Lua.Marshal.AST import Text.Pandoc.Lua.Marshal.Filter (peekFilter) import Text.Pandoc.Lua.Marshal.ReaderOptions ( peekReaderOptions , pushReaderOptions) +import Text.Pandoc.Lua.Marshal.WriterOptions ( peekWriterOptions + , pushWriterOptions) import Text.Pandoc.Lua.Module.Utils (sha1) import Text.Pandoc.Lua.PandocLua (PandocLua (unPandocLua), liftPandocLua) import Text.Pandoc.Options ( ReaderOptions (readerExtensions) @@ -129,6 +131,13 @@ otherConstructors = <#> parameter peekReaderOptions "ReaderOptions|table" "opts" "reader options" =#> functionResult pushReaderOptions "ReaderOptions" "new object" #? "Creates a new ReaderOptions value." + + , defun "WriterOptions" + ### liftPure id + <#> parameter peekWriterOptions "WriterOptions|table" "opts" + "writer options" + =#> functionResult pushWriterOptions "WriterOptions" "new object" + #? "Creates a new WriterOptions value." ] stringConstants :: [Field e] -- cgit v1.2.3