From 5bd301ef4589f30d0b18899a91df094aec74bf90 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 7 Dec 2023 14:39:21 -0800 Subject: Typst writer/template: support `--toc-depth` as in other writers. Closes #9242. --- src/Text/Pandoc/Writers/Typst.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs index fcdd037f2..20521af28 100644 --- a/src/Text/Pandoc/Writers/Typst.hs +++ b/src/Text/Pandoc/Writers/Typst.hs @@ -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) -- cgit v1.2.3