diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-04-17 19:10:37 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-04-17 19:10:37 -0700 |
| commit | 28ca8566ab72e135d559e457e28d3f3f306a7b0e (patch) | |
| tree | ced14587477a16e1fbe0865f4e6c40342572d46f /src | |
| parent | 44fcc5f96e3f412337a98a1791a79b059579f78e (diff) | |
| parent | dccd408a9c22e9120dcf50f1c107bff71778ee45 (diff) | |
Merge pull request #1954 from mcmtroffaes/feature/citekey-firstchar-alphanum
Allow digit as first character of a citation key.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Parsing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs index d30c74230..33120e55d 100644 --- a/src/Text/Pandoc/Parsing.hs +++ b/src/Text/Pandoc/Parsing.hs @@ -1191,7 +1191,7 @@ citeKey = try $ do guard =<< notAfterString suppress_author <- option False (char '-' *> return True) char '@' - firstChar <- letter <|> char '_' + firstChar <- alphaNum <|> char '_' let regchar = satisfy (\c -> isAlphaNum c || c == '_') let internal p = try $ p <* lookAhead regchar rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/") |