From 0b23956d48682e93afc016a60d9c04696bb7a69a Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 13 Jul 2010 19:18:58 -0700
Subject: Parse \chapter{} in latex.

+ Added stateHasChapters to ParserState.
+ If a \chapter command is encountered, this is set to True
  and subsequent \section commands (etc.) will be bumped up
  one level.
---
 src/Text/Pandoc/Readers/LaTeX.hs | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc/Readers/LaTeX.hs')

diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs
index bbc5bb872..8d4f67edc 100644
--- a/src/Text/Pandoc/Readers/LaTeX.hs
+++ b/src/Text/Pandoc/Readers/LaTeX.hs
@@ -168,16 +168,34 @@ block = choice [ hrule
 --
 
 header :: GenParser Char ParserState Block
-header = try $ do
+header = section <|> chapter
+
+chapter :: GenParser Char ParserState Block
+chapter = try $ do
+  string "\\chapter"
+  result <- headerWithLevel 1
+  updateState $ \s -> s{ stateHasChapters = True }
+  return result
+
+section :: GenParser Char ParserState Block
+section = try $ do
   char '\\'
   subs <- many (try (string "sub"))
   base <- try (string "section" >> return 1) <|> (string "paragraph" >> return 4)
+  st <- getState
+  let lev = if stateHasChapters st
+               then length subs + base + 1
+               else length subs + base
+  headerWithLevel lev
+
+headerWithLevel :: Int -> GenParser Char ParserState Block
+headerWithLevel lev = try $ do
   optional (char '*')
   optional $ bracketedText '[' ']' -- alt title
   char '{'
   title' <- manyTill inline (char '}')
   spaces
-  return $ Header (length subs + base) (normalizeSpaces title')
+  return $ Header lev (normalizeSpaces title')
 
 --
 -- hrule block
-- 
cgit v1.2.3