diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-02-12 03:03:23 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-02-12 03:03:23 +0000 |
| commit | 07f25fb13c2248f4a1cc0e34fa35b6c250e62a61 (patch) | |
| tree | fd5dab53678f3df1dc7a864bf465d70839e7e66b /src | |
| parent | 53ede0de5d018947706288e199c77a091e4b2e85 (diff) | |
LaTeX reader: treat \paragraph and \subparagraph as level 4, 5 headers.
Resolves Issue #207.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1838 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index 85f9fcbf0..f8ab8b8b9 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -169,12 +169,12 @@ header :: GenParser Char ParserState Block header = try $ do char '\\' subs <- many (try (string "sub")) - string "section" + base <- try (string "section" >> return 1) <|> (string "paragraph" >> return 4) optional (char '*') char '{' title' <- manyTill inline (char '}') spaces - return $ Header (length subs + 1) (normalizeSpaces title') + return $ Header (length subs + base) (normalizeSpaces title') -- -- hrule block |