aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Options.hs2
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs27
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