diff options
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -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 |