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