diff options
| -rw-r--r-- | data/templates/default.opendocument | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/OpenDocument.hs | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/data/templates/default.opendocument b/data/templates/default.opendocument index e34c8d500..2eff86d7b 100644 --- a/data/templates/default.opendocument +++ b/data/templates/default.opendocument @@ -31,7 +31,7 @@ $include-before$ $endfor$ $if(toc)$ <text:table-of-content> - <text:table-of-content-source text:outline-level="10"> + <text:table-of-content-source text:outline-level="$toc-depth$"> <text:index-title-template text:style-name="Contents_20_Heading">$toc-title$</text:index-title-template> <text:table-of-content-entry-template text:outline-level="1" text:style-name="Contents_20_1"> 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 $ |