diff options
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Options.hs | 2 | ||||
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 27 |
2 files changed, 19 insertions, 10 deletions
diff --git a/src/Text/Pandoc/Options.hs b/src/Text/Pandoc/Options.hs index 39d314974..856fa259f 100644 --- a/src/Text/Pandoc/Options.hs +++ b/src/Text/Pandoc/Options.hs @@ -374,6 +374,7 @@ data WriterOptions = WriterOptions , writerBeamer :: Bool -- ^ Produce beamer LaTeX slide show , writerSlideLevel :: Maybe Int -- ^ Force header level of slides , writerChapters :: Bool -- ^ Use "chapter" for top-level sects + , writerParts :: Bool -- ^ Use "part" for top-level sects in LaTeX , writerListings :: Bool -- ^ Use listings package for code , writerHighlight :: Bool -- ^ Highlight source code , writerHighlightStyle :: Style -- ^ Style to use for highlighting @@ -422,6 +423,7 @@ instance Default WriterOptions where , writerBeamer = False , writerSlideLevel = Nothing , writerChapters = False + , writerParts = False , writerListings = False , writerHighlight = False , writerHighlightStyle = pygments 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 |