twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.Prelude: Concat modifier keys instead of unwording

Browse Source 
Instead of printing "M- S- C-", print "M-S-C".
This commit is contained in:
slotThe 2022-02-05 10:32:40 +01:00
parent 493b6adbc4
commit e6b50c5dd6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Prelude.hs
View File

@ -91,7 +91,7 @@ keymaskToString :: KeyMask -- ^ Num lock mask
-> KeyMask -- ^ Modifier mask -> KeyMask -- ^ Modifier mask
-> String -> String
keymaskToString numLockMask msk = keymaskToString numLockMask msk =
unwords . reverse . fst . foldr go ([], msk) $ masks concat . reverse . fst . foldr go ([], msk) $ masks
where where
masks :: [(KeyMask, String)] masks :: [(KeyMask, String)]
masks = map (\m -> (m, show m)) masks = map (\m -> (m, show m))