Typst writer/template: support --toc-depth as in other writers.

Closes #9242.
This commit is contained in:
John MacFarlane
2023-12-07 14:39:21 -08:00
parent e7348b4f76
commit 5bd301ef45
2 changed files with 3 additions and 2 deletions
+1 -1
View File
@@ -76,7 +76,7 @@ $endfor$
$if(toc)$
#outline(
title: auto,
depth: none
depth: $toc-depth$
);
$endif$
+2 -1
View File
@@ -26,7 +26,7 @@ import qualified Data.Text as T
import Control.Monad.State ( StateT, evalStateT, gets, modify )
import Text.Pandoc.Writers.Shared ( metaToContext, defField, resetField,
toLegacyTable, lookupMetaString )
import Text.Pandoc.Shared (isTightList, orderedListMarkers)
import Text.Pandoc.Shared (isTightList, orderedListMarkers, tshow)
import Text.Pandoc.Writers.Math (convertMath)
import qualified Text.TeXMath as TM
import Text.DocLayout
@@ -76,6 +76,7 @@ pandocToTypst options (Pandoc meta blocks) = do
Right l ->
resetField "lang" (langLanguage l) .
maybe id (resetField "region") (langRegion l))
$ defField "toc-depth" (tshow $ writerTOCDepth options)
$ (if writerNumberSections options
then defField "numbering" ("1.1.1.1.1" :: Text)
else id)