Lua: add `pandoc.WriterOptions` constructor

2 files changed, 16 insertions, 6 deletions

diff --git a/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs b/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs
index 781ae3f7c..b5b1f715e 100644
--- a/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs
+++ b/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs
@@ -93,7 +93,8 @@ typeWriterOptions = deftype "WriterOptions"
     (pushText, writerEpubSubdirectory)
     (peekText, \opts x -> opts{ writerEpubSubdirectory = x })
 
-  , property "extensions" "Markdown extensions that can be used"
+  , property "extensions"
+    "Markdown extensions that can be used"
     (pushViaJSON, writerExtensions)
     (peekViaJSON, \opts x -> opts{ writerExtensions = x })
 
@@ -147,16 +148,16 @@ typeWriterOptions = deftype "WriterOptions"
     (maybe pushnil pushString, writerReferenceDoc)
     (optional . peekString, \opts x -> opts{ writerReferenceDoc = x })
 
-  , property "reference_location"
-    "Location of footnotes and references for writing markdown"
-    (pushViaJSON, writerReferenceLocation)
-    (peekViaJSON, \opts x -> opts{ writerReferenceLocation = x })
-
   , property "reference_links"
     "Use reference links in writing markdown, rst"
     (pushBool, writerReferenceLinks)
     (peekBool, \opts x -> opts{ writerReferenceLinks = x })
 
+  , property "reference_location"
+    "Location of footnotes and references for writing markdown"
+    (pushViaJSON, writerReferenceLocation)
+    (peekViaJSON, \opts x -> opts{ writerReferenceLocation = x })
+
   , property "section_divs"
     "Put sections in div tags in HTML"
     (pushBool, writerSectionDivs)
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]