Allow :// in citation keys.

Closes jgm/pandoc-citeproc#166.
jgm · Nov 13, 2015 · d8080db · d8080db
1 parent a119ad8
commit d8080db
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Parsing.hs b/src/Text/Pandoc/Parsing.hs
@@ -1211,7 +1211,8 @@ citeKey = try $ do
   firstChar <- alphaNum <|> char '_' <|> char '*' -- @* for wildcard in nocite
   let regchar = satisfy (\c -> isAlphaNum c || c == '_')
   let internal p = try $ p <* lookAhead regchar
-  rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/")
+  rest <- many $ regchar <|> internal (oneOf ":.#$%&-+?<>~/") <|>
+                 (oneOf ":/" <* lookAhead (char '/'))
   let key = firstChar:rest
   return (suppress_author, key)