aboutsummaryrefslogtreecommitdiffstats
path: root/util
diff options
context:
space:
mode:
Diffstat (limited to 'util')
-rw-r--r--util/GenerateManpage.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/util/GenerateManpage.hs b/util/GenerateManpage.hs
index 8e69af3..5b8b1b7 100644
--- a/util/GenerateManpage.hs
+++ b/util/GenerateManpage.hs
@@ -43,7 +43,7 @@ trim = reverse . dropWhile isSpace . reverse . dropWhile isSpace
guessKeys line = concat $ intersperse "-" (modifiers ++ [map toLower key])
where modifiers = map (!!1) (line =~ "(mod|shift|control)Mask")
- (_, _, _, [key]) = line =~ "xK_(\\w+)" :: (String, String, String, [String])
+ (_, _, _, [key]) = line =~ "xK_([_[:alnum:]]+)" :: (String, String, String, [String])
binding :: [String] -> (String, String)
binding [ _, bindingLine, "", desc ] = (guessKeys bindingLine, desc)