twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.WindowNavigation: add withWindowNavigation, for easy setup

Browse Source 
This should be more flexible than it is -- I've got an idea, but am interested to hear others.
This commit is contained in:
Devin Mullins 2008-05-11 22:04:58 +00:00
parent 98c70dd264
commit 8f0b9fa066
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Actions/WindowNavigation.hs
View File

@ -18,6 +18,7 @@
module XMonad.Actions.WindowNavigation (
-- * Usage
-- $usage
withWindowNavigation,
go, swap,
Direction(..)
) where
@ -39,7 +40,6 @@ import Graphics.X11.Xlib
-- Don't use it! What, are you crazy?
-- TODO:
-- - withWindowNavigation :: XConfig l -> XConfig l
-- - cleanup
-- - actually deal with multiple screens
-- - documentation :)
@ -47,6 +47,15 @@ import Graphics.X11.Xlib
-- - solve the 2+3, middle right to bottom left problem
-- - manageHook to draw window decos?
withWindowNavigation :: (KeySym, KeySym, KeySym, KeySym) -> XConfig l -> IO (XConfig l)
withWindowNavigation (u,l,d,r) conf = do
posRef <- newIORef M.empty
return conf { keys = \cnf -> M.fromList [
((modMask cnf, u), go posRef U),
((modMask cnf, l), go posRef L),
((modMask cnf, d), go posRef D),
((modMask cnf, r), go posRef R)
] `M.union` (keys conf cnf) }
type WNState = Map WorkspaceId Point