twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.WindowNavigation: ugh, typo

Browse Source
This commit is contained in:
Devin Mullins 2008-05-12 08:22:28 +00:00
parent 70caa5a67b
commit 6eb5074bd1
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Actions/WindowNavigation.hs
View File

@ -43,8 +43,6 @@ import Graphics.X11.Xlib
-- Don't use it! What, are you crazy? -- Don't use it! What, are you crazy?
-- TODO: -- TODO:
-- - 1. 2x2, top right; 2. a,j,d 3. error!
-- - implement swap
-- - cleanup -- - cleanup
-- - documentation :) -- - documentation :)
-- - tests? (esp. for edge cases in currentPosition) -- - tests? (esp. for edge cases in currentPosition)
@ -125,7 +123,7 @@ currentPosition posRef = do
where Point px py `inside` Rectangle rx ry rw rh = where Point px py `inside` Rectangle rx ry rw rh =
px >= rx && px < rx + fromIntegral rw && px >= rx && px < rx + fromIntegral rw &&
py >= rx && py < ry + fromIntegral rh py >= ry && py < ry + fromIntegral rh
middleOf (Rectangle x y w h) = middleOf (Rectangle x y w h) =
Point (x + fromIntegral w `div` 2) (y + fromIntegral h `div` 2) Point (x + fromIntegral w `div` 2) (y + fromIntegral h `div` 2)