From 477e235f6e7ceabe3748cfdd2b67ccc42ae2df88 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sun, 8 Sep 2024 09:42:20 -0700 Subject: pandoc-lua-engine: marshall list_tables, epub_title_page writer options. --- pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'pandoc-lua-engine/src') diff --git a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs index d033c495f..16118e8c2 100644 --- a/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs +++ b/pandoc-lua-engine/src/Text/Pandoc/Lua/Marshal/WriterOptions.hs @@ -95,6 +95,11 @@ typeWriterOptions = deftype "WriterOptions" (pushPandocList pushString, writerEpubFonts) (peekList peekString, \opts x -> opts{ writerEpubFonts = x }) + , property "epub_title_page" + "Determines whether a title page is included in EPUB" + (pushBool, writerEpubTitlePage) + (peekBool, \opts x -> opts{ writerEpubTitlePage = x }) + , property "epub_metadata" "Metadata to include in EPUB" (maybe pushnil pushText, writerEpubMetadata) @@ -195,6 +200,11 @@ typeWriterOptions = deftype "WriterOptions" (pushBool, writerSetextHeaders) (peekBool, \opts x -> opts{ writerSetextHeaders = x }) + , property "list_tables" + "Render tables using list tables in RST output" + (pushBool, writerListTables) + (peekBool, \opts x -> opts{ writerListTables = x }) + , property "slide_level" "Force header level of slides" (maybe pushnil pushIntegral, writerSlideLevel) -- cgit v1.2.3