This commit is contained in:
Mark Wright 2015-01-05 14:46:15 +11:00
parent e4c7894d01
commit 8b9bded796

View file

@ -240,7 +240,7 @@ toLabel z = go `fmap` stringToLaTeX URLString z
where go [] = ""
go (x:xs)
| (isLetter x || isDigit x) && isAscii x = x:go xs
| elem x "-+=:;." = x:go xs
| elem x ("-+=:;." :: String) = x:go xs
| otherwise = "ux" ++ printf "%x" (ord x) ++ go xs
-- | Puts contents into LaTeX command.