twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

GridSelect.hs: navigate grid with h,j,k,l as well as arrow keys

Browse Source
This commit is contained in:
sean.escriva
2008-11-22 08:47:25 +00:00
parent 3b4473f121
commit 0462f00f42
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/GridSelect.hs
View File

@@ -163,10 +163,10 @@ handle :: (KeySym, String)
-> StateT TwoDState X (Maybe Window) -> StateT TwoDState X (Maybe Window)
handle (ks,_) (KeyEvent {ev_event_type = t}) handle (ks,_) (KeyEvent {ev_event_type = t})
| t == keyPress && ks == xK_Escape = return Nothing | t == keyPress && ks == xK_Escape = return Nothing
| t == keyPress && ks == xK_Left = diffAndRefresh (-1,0) | t == keyPress && ks == xK_Left || ks == xK_h = diffAndRefresh (-1,0)
| t == keyPress && ks == xK_Right = diffAndRefresh (1,0) | t == keyPress && ks == xK_Right || ks == xK_l = diffAndRefresh (1,0)
| t == keyPress && ks == xK_Down = diffAndRefresh (0,1) | t == keyPress && ks == xK_Down || ks == xK_j = diffAndRefresh (0,1)
| t == keyPress && ks == xK_Up = diffAndRefresh (0,-1) | t == keyPress && ks == xK_Up || ks == xK_k = diffAndRefresh (0,-1)
| t == keyPress && ks == xK_Return = do | t == keyPress && ks == xK_Return = do
(TwoDState { td_curpos = pos, td_windowmap = winmap }) <- get (TwoDState { td_curpos = pos, td_windowmap = winmap }) <- get
return $ fmap (snd . snd) $ findInWindowMap pos winmap return $ fmap (snd . snd) $ findInWindowMap pos winmap