@@ -407,8 +407,10 @@ title = try $ do
407407authors :: GenParser Char ParserState Block
408408authors = try $ do
409409 string "\\author{"
410− raw <- many1 (notFollowedBy (char '}') >> inline)
411− let authors' = map normalizeSpaces $ splitBy (== LineBreak) raw
410+ let andsep = try $ string "\\and" >> notFollowedBy letter >>
411+ spaces >> return '&'
412+ raw <- sepBy (many $ notFollowedBy (char '}' <|> andsep) >> inline) andsep
413+ let authors' = map normalizeSpaces raw
412414 char '}'
413415 spaces
414416 updateState (\s -> s { stateAuthors = authors' })