lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-26 09:25:48 +00:00
Code Issues Packages Projects Releases Wiki Activity

Markdown reader: Allow internal + in citation identifiers.

Browse Source 
Closes #856.
This commit is contained in:
John MacFarlane
2013-05-13 10:33:31 -07:00
parent d097734189
commit b89a443034
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/Markdown.hs
+1 -1
View File
@@ -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'