@@ -74,6 +74,12 @@ pandocToConTeXt options (Pandoc (Meta title authors date) blocks) = do
74 let main = (render colwidth . vcat) body
74 let main = (render colwidth . vcat) body
75 let context = writerVariables options ++
75 let context = writerVariables options ++
76 [ ("toc", if writerTableOfContents options then "yes" else "")
76 [ ("toc", if writerTableOfContents options then "yes" else "")
77+ , ("placelist", intercalate "," $
78+ take (writerTOCDepth options + if writerChapters options
81+ ["chapter","section","subsection","subsubsection",
82+ "subsubsubsection","subsubsubsubsection"])
77 , ("body", main)
83 , ("body", main)
78 , ("title", titletext)
84 , ("title", titletext)
79 , ("date", datetext) ] ++
85 , ("date", datetext) ] ++