diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:16:34 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-31 01:16:34 +0000 |
| commit | 998fb9820ee5e1cefd6960b8e18a656717689494 (patch) | |
| tree | e042dbb5fff39764931ef6b2fdf074ef125949e3 /src/Text/Pandoc | |
| parent | 54dda0ff9e682036f3b17a28d7333d965313f9d1 (diff) | |
LaTeX reader: use \\ to separate multiple authors.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1727 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Readers/LaTeX.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/LaTeX.hs b/src/Text/Pandoc/Readers/LaTeX.hs index cd1312966..85f9fcbf0 100644 --- a/src/Text/Pandoc/Readers/LaTeX.hs +++ b/src/Text/Pandoc/Readers/LaTeX.hs @@ -317,11 +317,11 @@ title = try $ do authors :: GenParser Char ParserState Block authors = try $ do string "\\author{" - authors' <- sepBy (many1 (notFollowedBy (oneOf "};,") >> inline)) (oneOf ",;") + raw <- many1 (notFollowedBy (char '}') >> inline) + let authors' = map normalizeSpaces $ splitBy LineBreak raw char '}' spaces - let authors'' = map normalizeSpaces authors' - updateState (\s -> s { stateAuthors = authors'' }) + updateState (\s -> s { stateAuthors = authors' }) return Null date :: GenParser Char ParserState Block |