From 123b94ad81e1b8c1e80f52a8d544bbc6b753fb86 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 5 Jan 2013 11:49:42 -0800
Subject: Implemented --toc-level in LaTeX writer.

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

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 3d25e0fc9..f93c168b7 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -131,6 +131,10 @@ pandocToLaTeX options (Pandoc (Meta title authors date) blocks) = do
                          _      -> []
       context  = writerVariables options ++
                  [ ("toc", if writerTableOfContents options then "yes" else "")
+                 , ("toc-level", show (writerTOCLevel options -
+                                       if writerChapters options
+                                          then 1
+                                          else 0))
                  , ("body", main)
                  , ("title", titletext)
                  , ("title-meta", stringify title)
-- 
cgit v1.2.3