aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Actions
diff options
context:
space:
mode:
Diffstat (limited to 'XMonad/Actions')
-rw-r--r--XMonad/Actions/WindowNavigation.hs11
1 files changed, 10 insertions, 1 deletions
diff --git a/XMonad/Actions/WindowNavigation.hs b/XMonad/Actions/WindowNavigation.hs
index 17c3d56..410ac58 100644
--- a/XMonad/Actions/WindowNavigation.hs
+++ b/XMonad/Actions/WindowNavigation.hs
@@ -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