diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-07-27 03:23:02 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-07-27 03:23:02 +0200 |
| commit | fcfe386490981d68ec48d633e8bea9b669cb9082 (patch) | |
| tree | 56d796875f4a035b6b67c4f0118999cd9ee7073f /XMonad/Actions | |
| parent | 7e4d91fa980190ff01f83a413400489ea42ead71 (diff) | |
| download | XMonadContrib-fcfe386490981d68ec48d633e8bea9b669cb9082.tar.gz XMonadContrib-fcfe386490981d68ec48d633e8bea9b669cb9082.tar.xz XMonadContrib-fcfe386490981d68ec48d633e8bea9b669cb9082.zip | |
Revert to old behavior where unmatched keys do not exit the eventloop for A.GridSelect
Ignore-this: 936cfd1e1b6243ced54e356f8067fac
darcs-hash:20090727012302-1499c-4bd45b322d0d86cf6afd00e027a6a40f5647c777.gz
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/GridSelect.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 02d0ee0..b69671e 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -32,7 +32,6 @@ module XMonad.Actions.GridSelect ( colorRangeFromClassName ) where import Data.Maybe -import Data.Traversable (traverse) import Data.Bits import Control.Applicative import Control.Monad.State @@ -194,8 +193,8 @@ 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 = fmap join $ traverse diffAndRefresh . M.lookup (m,ks) - =<< gets (gs_navigate . td_gsconfig) + | t == keyPress = maybe eventLoop diffAndRefresh . M.lookup (m,ks) + =<< gets (gs_navigate . td_gsconfig) where diffAndRefresh diff = do state <- get let elmap = td_elementmap state |