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 TODOs

Browse Source
This commit is contained in:
Devin Mullins 2008-05-11 21:13:26 +00:00
parent ad787b2d5f
commit 5338391ae9
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Actions/WindowNavigation.hs
View File

@ -38,8 +38,13 @@ import Graphics.X11.Xlib
-- --
-- Don't use it! What, are you crazy? -- Don't use it! What, are you crazy?
-- TODO: solve the 2+3, middle right to bottom left problem -- TODO:
-- logHook to update currentPosition? -- - 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: -- go:
-- 1. get current position, verifying it matches the current window -- 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 -> Direction -> X [(Window, Rectangle)]
navigableTargets point dir = navigable dir point <$> windowRects navigableTargets point dir = navigable dir point <$> windowRects
-- TODO: use a smarter algorithm (with memory of last position)
setPosition :: IORef WNState -> Point -> Rectangle -> X () setPosition :: IORef WNState -> Point -> Rectangle -> X ()
setPosition posRef _ (Rectangle x y w h) = do setPosition posRef _ (Rectangle x y w h) = do
wsid <- gets (W.tag . W.workspace . W.current . windowset) wsid <- gets (W.tag . W.workspace . W.current . windowset)