From 1f707da40fa2a916fe6f8f86720494eadfc5ae9e Mon Sep 17 00:00:00 2001
From: niszet <niszet0016@gmail.com>
Date: Fri, 25 Sep 2020 01:28:38 +0900
Subject: Support toc-depth option for ODT writer (#6697)
To support `--toc-depth` option for ODT, writer and template are
updated. Closes #6696.
---
src/Text/Pandoc/Writers/OpenDocument.hs | 1 +
1 file changed, 1 insertion(+)
(limited to 'src')
diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs
index bd20d2db6..731f98e75 100644
--- a/src/Text/Pandoc/Writers/OpenDocument.hs
+++ b/src/Text/Pandoc/Writers/OpenDocument.hs
@@ -247,6 +247,7 @@ writeOpenDocument opts (Pandoc meta blocks) = do
let automaticStyles = vcat $ reverse $ styles ++ listStyles
let context = defField "body" body
. defField "toc" (writerTableOfContents opts)
+ . defField "toc-depth" (tshow $ writerTOCDepth opts)
. defField "automatic-styles" automaticStyles
$ metadata
return $ render colwidth $
--
cgit v1.2.3