diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2013-05-13 10:33:31 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2013-05-13 10:33:31 -0700 |
| commit | b89a44303456da6db8aedfeecc8577fcfcb78274 (patch) | |
| tree | 5f90999b5bc856e715a28e9793fa42bd3462ac66 /src | |
| parent | d097734189935e60c4b2394e768d8b25eaf46f6f (diff) | |
| download | pandoc-b89a44303456da6db8aedfeecc8577fcfcb78274.tar.gz | |
Markdown reader: Allow internal `+` in citation identifiers.
Closes #856.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index dcf7f1b1a..69011bc56 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -1705,7 +1705,7 @@ citeKey = try $ do char '@' first <- letter let internal p = try $ p >>~ lookAhead (letter <|> digit) - rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_?<>~/") + rest <- many $ letter <|> digit <|> internal (oneOf ":.#$%&-_+?<>~/") let key = first:rest citations' <- map CSL.refId <$> getOption readerReferences guard $ key `elem` citations' |