diff options
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/WindowNavigation.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/XMonad/Actions/WindowNavigation.hs b/XMonad/Actions/WindowNavigation.hs index 421300f..b380e7b 100644 --- a/XMonad/Actions/WindowNavigation.hs +++ b/XMonad/Actions/WindowNavigation.hs @@ -43,8 +43,6 @@ import Graphics.X11.Xlib -- Don't use it! What, are you crazy? -- TODO: --- - 1. 2x2, top right; 2. a,j,d 3. error! --- - implement swap -- - cleanup -- - documentation :) -- - tests? (esp. for edge cases in currentPosition) @@ -125,7 +123,7 @@ currentPosition posRef = do where Point px py `inside` Rectangle rx ry rw rh = px >= rx && px < rx + fromIntegral rw && - py >= rx && py < ry + fromIntegral rh + py >= ry && py < ry + fromIntegral rh middleOf (Rectangle x y w h) = Point (x + fromIntegral w `div` 2) (y + fromIntegral h `div` 2) |