diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-05 18:14:52 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-05 18:15:34 -0800 |
| commit | 65d01857fbb4041b68ce3767773c151b4f135a27 (patch) | |
| tree | 0566682a6915b41e1856984bed2bd2ff708107a9 /src | |
| parent | f9799c2a425787fb8d5528d00e20e47a56996853 (diff) | |
| download | pandoc-65d01857fbb4041b68ce3767773c151b4f135a27.tar.gz | |
Support --toc-depth in context writer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 6 |
1 files changed, 6 insertions, 0 deletions
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) ] ++ |