@@ -71,7 +71,7 @@ commandArgs = many optOrArg
71-- | Parses LaTeX command, returns (name, star, list of options or arguments).
71-- | Parses LaTeX command, returns (name, star, list of options or arguments).
72command = do
72command = do
74− name <- many1 alphaNum
74+ name <- many1 letter
75 star <- option "" (string "*") -- some commands have starred versions
75 star <- option "" (string "*") -- some commands have starred versions
76 args <- commandArgs
76 args <- commandArgs
77 return (name, star, args)
77 return (name, star, args)
@@ -93,7 +93,7 @@ environment name = try $ begin name >> spaces >> manyTill block (end name)
94anyEnvironment = try $ do
94anyEnvironment = try $ do
95 string "\\begin{"
95 string "\\begin{"
96− name <- many alphaNum
96+ name <- many letter
97 star <- option "" (string "*") -- some environments have starred variants
97 star <- option "" (string "*") -- some environments have starred variants
99 optional commandArgs
99 optional commandArgs
@@ -341,7 +341,7 @@ specialEnvironment = do -- these are always parsed as raw
341rawLaTeXEnvironment :: GenParser Char st Block
341rawLaTeXEnvironment :: GenParser Char st Block
342rawLaTeXEnvironment = try $ do
342rawLaTeXEnvironment = try $ do
343 string "\\begin{"
343 string "\\begin{"
344− name <- many1 alphaNum
344+ name <- many1 letter
345 star <- option "" (string "*") -- for starred variants
345 star <- option "" (string "*") -- for starred variants
346 let name' = name ++ star
346 let name' = name ++ star
@@ -421,7 +421,7 @@ accentedChar = normalAccentedChar <|> specialAccentedChar
421normalAccentedChar = try $ do
421normalAccentedChar = try $ do
422 char '\\'
422 char '\\'
423 accent <- oneOf "'`^\"~"
423 accent <- oneOf "'`^\"~"
424− character <- (try $ char '{' >> alphaNum >>~ char '}') <|> alphaNum
424+ character <- (try $ char '{' >> letter >>~ char '}') <|> letter
425 let table = fromMaybe [] $ lookup character accentTable
425 let table = fromMaybe [] $ lookup character accentTable
426 let result = case lookup accent table of
426 let result = case lookup accent table of
427 Just num -> chr num
427 Just num -> chr num