aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel Schoepe <daniel.schoepe@gmail.com>2009-10-22 00:34:04 +0200
committerDaniel Schoepe <daniel.schoepe@gmail.com>2009-10-22 00:34:04 +0200
commit7141da81104fae9e1892f580192a44713d52efe5 (patch)
treed79ffa42e1540ab104cc081c85b3bf825260f27d
parent739184db607b9fe1b1ffe0c7dcf10149e875eba4 (diff)
downloadXMonadContrib-7141da81104fae9e1892f580192a44713d52efe5.tar.gz
XMonadContrib-7141da81104fae9e1892f580192a44713d52efe5.tar.xz
XMonadContrib-7141da81104fae9e1892f580192a44713d52efe5.zip
Clean keymask in GridSelect(solves issue 318)
Ignore-this: 2c315539bf1ae8c427b7856b5fdb2e49 darcs-hash:20091021223404-7f603-1e20667b6fbcc50ada28c9de6059b13914b7357d.gz
-rw-r--r--XMonad/Actions/GridSelect.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index 86ef379..989e453 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -312,8 +312,10 @@ handle (ks,_) (KeyEvent {ev_event_type = t, ev_state = m })
| t == keyPress && ks == xK_Return = do
(TwoDState { td_curpos = pos, td_elementmap = elmap }) <- get
return $ fmap (snd . snd) $ findInElementMap pos elmap
- | t == keyPress = maybe eventLoop diffAndRefresh . M.lookup (m,ks)
- =<< gets (gs_navigate . td_gsconfig)
+ | t == keyPress = do
+ m' <- liftX (cleanMask m)
+ keymap <- gets (gs_navigate . td_gsconfig)
+ maybe eventLoop diffAndRefresh . M.lookup (m',ks) $ keymap
where diffAndRefresh diff = do
state <- get
let elmap = td_elementmap state