diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-05 11:49:42 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-01-05 11:49:42 -0800 |
| commit | 123b94ad81e1b8c1e80f52a8d544bbc6b753fb86 (patch) | |
| tree | 4b3a572995ae5347b0b877f8858d64de46f53ae7 /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | 7c10e579976a3016d86b613cf4f8b25e3c01a7da (diff) | |
| download | pandoc-123b94ad81e1b8c1e80f52a8d544bbc6b753fb86.tar.gz | |
Implemented --toc-level in LaTeX writer.
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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) |