twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use xmessage from core

Browse Source 
Related: https://github.com/xmonad/xmonad/pull/318
This commit is contained in:
Tomas Janousek
2021-08-07 22:04:09 +01:00
parent 8d557c6954
commit 07040cbd58
7 changed files with 7 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Util/EZConfig.hs
View File

@@ -710,9 +710,9 @@ multimediaKeys = filter ((/= noSymbol) . snd) . map (id &&& stringToKeysym) $
checkKeymap :: XConfig l -> [(String, a)] -> X ()
checkKeymap conf km = warn (doKeymapCheck conf km)
where warn ([],[]) = return ()
warn (bad,dup) = spawn $ "xmessage 'Warning:\n"
warn (bad,dup) = xmessage $ "Warning:\n"
++ msg "bad" bad ++ "\n"
++ msg "duplicate" dup ++ "'"
++ msg "duplicate" dup
msg _ [] = ""
msg m xs = m ++ " keybindings detected: " ++ showBindings xs
showBindings = unwords . map (("\""++) . (++"\""))