From a0f3bb7026ec88c9ee95388ce1c1b3e41a026c5a Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Sun, 11 May 2008 23:13:26 +0200 Subject: X.A.WindowNavigation: add TODOs darcs-hash:20080511211326-78224-2bc3ec2ff16e886901601f2f428215abfdbc72ba.gz --- XMonad/Actions/WindowNavigation.hs | 10 ++++++++-- 1 file 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) -- cgit v1.2.3