From 65d01857fbb4041b68ce3767773c151b4f135a27 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 5 Jan 2013 18:14:52 -0800
Subject: Support --toc-depth in context writer.

---
 src/Text/Pandoc/Writers/ConTeXt.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index df11d79cc..c67daf13d 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -74,6 +74,12 @@ pandocToConTeXt options (Pandoc (Meta title authors date) blocks) = do
   let main = (render colwidth . vcat) body
   let context  = writerVariables options ++
                  [ ("toc", if writerTableOfContents options then "yes" else "")
+                 , ("placelist", intercalate "," $
+                     take (writerTOCDepth options + if writerChapters options
+                                                       then 0
+                                                       else 1)
+                       ["chapter","section","subsection","subsubsection",
+                        "subsubsubsection","subsubsubsubsection"])
                  , ("body", main)
                  , ("title", titletext)
                  , ("date", datetext) ] ++
-- 
cgit v1.2.3