aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Prompt
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--XMonad/Prompt.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 07f80c0..fa0c8f4 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -345,7 +345,7 @@ handle ks@(sym,_) e@(KeyEvent {ev_event_type = t, ev_state = m}) = do
when (length c > 1) $ modify (\s -> s { showComplWin = True })
if complKey == sym
then completionHandle c ks e
- else when (t == keyPress) $ cleanMask m >>= flip keyPressHandle ks
+ else when (t == keyPress) $ keyPressHandle m ks
handle _ (ExposeEvent {ev_window = w}) = do
st <- get
when (win st == w) updateWindows
@@ -424,8 +424,9 @@ defaultXPKeymap = M.fromList $
]
keyPressHandle :: KeyMask -> KeyStroke -> XP ()
-keyPressHandle mask (ks,str) = do
+keyPressHandle m (ks,str) = do
km <- gets (promptKeymap . config)
+ mask <- cleanMask m
case M.lookup (mask,ks) km of
Just action -> action >> updateWindows
Nothing -> case str of