aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorniszet <niszet0016@gmail.com>2020-09-25 01:28:38 +0900
committerGitHub <noreply@github.com>2020-09-24 09:28:38 -0700
commit1f707da40fa2a916fe6f8f86720494eadfc5ae9e (patch)
tree9c4f575025fa86c9d4b0382c9c2cfed5b611e86b /src/Text
parent09d39e0e98258bf74c019623d1b2a63661d57dde (diff)
downloadpandoc-1f707da40fa2a916fe6f8f86720494eadfc5ae9e.tar.gz
Support toc-depth option for ODT writer (#6697)
To support `--toc-depth` option for ODT, writer and template are updated. Closes #6696.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/OpenDocument.hs1
1 files changed, 1 insertions, 0 deletions
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 $