Markdown reader: Allow internal `+` in citation identifiers.
Closes #856.
commitb89a44303456da6db8aedfeecc8577fcfcb78274
authorJohn MacFarlane <jgm@berkeley.edu>
dateMon 13 May 2013, 10:33 (13 years ago)
parentd097734
src/Text/Pandoc/Readers/Markdown.hs+1−1
@@ -1705,7 +1705,7 @@ citeKey = try $ do
17051705 char '@'
17061706 first <- letter
17071707 let internal p = try $ p >>~ lookAhead (letter <|> digit)
1708− rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_?<>~/")
1708+ rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_+?<>~/")
17091709 let key = first:rest
17101710 citations' <- map CSL.refId <$> getOption readerReferences
17111711 guard $ key `elem` citations'