diff options
author | Oliver Matthews <oliver@codersoffortune.net> | 2016-09-06 21:43:45 +0200 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2016-09-06 21:43:45 +0200 |
commit | 23fb52ef7d0357a0e8abc391f6590e5cbfd606b0 (patch) | |
tree | f4827c6774e771977baaf9feaff6685a46fbf120 /src/Text/Pandoc/Writers/LaTeX.hs | |
parent | 4a2a7a21e5e8bf0d11abd214d372729eb9eb8d0c (diff) |
Add --parts command line option to LaTeX writer.
Add --parts command line argument.
This only effects LaTeX writer, and only for non-beamer output formats.
It changes the output levels so the top level is 'part', the next
'chapter' and then into sections.
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 517460f5d..33e4ffbb1 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -750,18 +750,25 @@ sectionHeader unnumbered ident level lst = do <> braces (text plain)) book <- gets stBook opts <- gets stOptions - let level' = if book || writerChapters opts then level - 1 else level + let level' = case level of + 1 | writerParts opts -> 0 + | writerBeamer opts -> 0 + | book || writerChapters opts -> 1 + | otherwise -> 2 + _ | writerParts opts -> level - 1 + | book || writerChapters opts -> level + | otherwise -> level + 1 let sectionType = case level' of - 0 | writerBeamer opts -> "part" - | otherwise -> "chapter" - 1 -> "section" - 2 -> "subsection" - 3 -> "subsubsection" - 4 -> "paragraph" - 5 -> "subparagraph" + 0 -> "part" + 1 -> "chapter" + 2 -> "section" + 3 -> "subsection" + 4 -> "subsubsection" + 5 -> "paragraph" + 6 -> "subparagraph" _ -> "" inQuote <- gets stInQuote - let prefix = if inQuote && level' >= 4 + let prefix = if inQuote && level' >= 5 then text "\\mbox{}%" -- needed for \paragraph, \subparagraph in quote environment -- see http://tex.stackexchange.com/questions/169830/ @@ -770,7 +777,7 @@ sectionHeader unnumbered ident level lst = do let star = if unnumbered && level < 4 then text "*" else empty let stuffing = star <> optional <> contents stuffing' <- hypertarget ident $ text ('\\':sectionType) <> stuffing <> lab - return $ if level' > 5 + return $ if level' > 6 then txt else prefix $$ stuffing' $$ if unnumbered |