diff --git a/bin/xmonad.hs b/bin/xmonad.hs index 809b654..0a4eff7 100644 --- a/bin/xmonad.hs +++ b/bin/xmonad.hs @@ -255,7 +255,7 @@ myPowerPrompt = mkXPrompt PowerPrompt theme comp executeAction comp = mkComplFunFromList [] theme = T.promptTheme { promptKeymap = keymap } keymap = M.fromList - $ ((0, xK_g), quit) : + $ ((controlMask, xK_g), quit) : map (first $ (,) 0) [ (xK_p, sendAction "p") , (xK_s, sendAction "s")