aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Actions/WindowNavigation.hs10
1 files changed, 8 insertions, 2 deletions
diff --git a/XMonad/Actions/WindowNavigation.hs b/XMonad/Actions/WindowNavigation.hs
index 66b3240..802ef00 100644
--- a/XMonad/Actions/WindowNavigation.hs
+++ b/XMonad/Actions/WindowNavigation.hs
@@ -38,8 +38,13 @@ import Graphics.X11.Xlib
--
-- Don't use it! What, are you crazy?
--- TODO: solve the 2+3, middle right to bottom left problem
--- logHook to update currentPosition?
+-- TODO:
+-- - withWindowNavigation :: XConfig l -> XConfig l
+-- - cleanup
+-- - actually deal with multiple screens
+-- - documentation :)
+-- - tests? (esp. for edge cases in currentPosition)
+-- - solve the 2+3, middle right to bottom left problem
-- go:
-- 1. get current position, verifying it matches the current window
@@ -83,6 +88,7 @@ currentPosition posRef = do
navigableTargets :: Point -> Direction -> X [(Window, Rectangle)]
navigableTargets point dir = navigable dir point <$> windowRects
+-- TODO: use a smarter algorithm (with memory of last position)
setPosition :: IORef WNState -> Point -> Rectangle -> X ()
setPosition posRef _ (Rectangle x y w h) = do
wsid <- gets (W.tag . W.workspace . W.current . windowset)