Allow -, _, :, . in markdown attribute names.

These are legal in XML attribute names.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@1586 788f1e2b-df1e-0410-8736-df70ead52e1b
This commit is contained in:
fiddlosopher 2009-07-03 02:33:52 +00:00
parent d3f4293725
commit e577233095

View file

@ -362,7 +362,7 @@ attribute = identifierAttr <|> classAttr <|> keyValAttr
identifier :: GenParser Char st [Char]
identifier = do
first <- letter
rest <- many alphaNum
rest <- many $ alphaNum <|> oneOf "-_:."
return (first:rest)
identifierAttr :: GenParser Char st ([Char], [a], [a1])