From 8d1750f4b6762ddacdf96098a32373e353f52665 Mon Sep 17 00:00:00 2001 From: "sean.escriva" Date: Sat, 22 Nov 2008 09:47:25 +0100 Subject: GridSelect.hs: navigate grid with h,j,k,l as well as arrow keys darcs-hash:20081122084725-29414-872e8669c51462d047d726504e4e34042884ce0b.gz --- XMonad/Actions/GridSelect.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad/Actions/GridSelect.hs') diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 31aec5e..76066f2 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -163,10 +163,10 @@ handle :: (KeySym, String) -> StateT TwoDState X (Maybe Window) handle (ks,_) (KeyEvent {ev_event_type = t}) | t == keyPress && ks == xK_Escape = return Nothing - | t == keyPress && ks == xK_Left = diffAndRefresh (-1,0) - | t == keyPress && ks == xK_Right = diffAndRefresh (1,0) - | t == keyPress && ks == xK_Down = diffAndRefresh (0,1) - | t == keyPress && ks == xK_Up = diffAndRefresh (0,-1) + | t == keyPress && ks == xK_Left || ks == xK_h = diffAndRefresh (-1,0) + | t == keyPress && ks == xK_Right || ks == xK_l = diffAndRefresh (1,0) + | t == keyPress && ks == xK_Down || ks == xK_j = diffAndRefresh (0,1) + | t == keyPress && ks == xK_Up || ks == xK_k = diffAndRefresh (0,-1) | t == keyPress && ks == xK_Return = do (TwoDState { td_curpos = pos, td_windowmap = winmap }) <- get return $ fmap (snd . snd) $ findInWindowMap pos winmap -- cgit v1.2.3