diff options
| author | Devin Mullins <me@twifkak.com> | 2008-05-11 23:13:26 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2008-05-11 23:13:26 +0200 |
| commit | a0f3bb7026ec88c9ee95388ce1c1b3e41a026c5a (patch) | |
| tree | 37c1bd82d0bf768732313f62432284795c51719f /XMonad | |
| parent | 7f31b70ffbccb6ac2814c20413e5726e832e44f0 (diff) | |
| download | XMonadContrib-a0f3bb7026ec88c9ee95388ce1c1b3e41a026c5a.tar.gz XMonadContrib-a0f3bb7026ec88c9ee95388ce1c1b3e41a026c5a.tar.xz XMonadContrib-a0f3bb7026ec88c9ee95388ce1c1b3e41a026c5a.zip | |
X.A.WindowNavigation: add TODOs
darcs-hash:20080511211326-78224-2bc3ec2ff16e886901601f2f428215abfdbc72ba.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/WindowNavigation.hs | 10 |
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) |