@@ -79,7 +79,9 @@ pandocToRST (Pandoc (Meta tit auth dat) blocks) = do
7979 let context = writerVariables opts ++
8080 [ ("body", main)
8181 , ("title", render Nothing title)
82− , ("date", render colwidth date) ] ++
82+ , ("date", render colwidth date)
83+ , ("toc", if writerTableOfContents opts then "yes" else "")
84+ , ("toc-level", show (writerTOCLevel opts)) ] ++
8385 [ ("math", "yes") | hasMath ] ++
8486 [ ("author", render colwidth a) | a <- authors ]
8587 if writerStandalone opts