From 35b89902b8711a85deabe798c4ab76e149b00b2f Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Mon, 12 May 2008 10:22:28 +0200 Subject: X.A.WindowNavigation: ugh, typo darcs-hash:20080512082228-78224-9fa253af956d0d4493197c520aebed43683f1b95.gz --- XMonad/Actions/WindowNavigation.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'XMonad/Actions/WindowNavigation.hs') 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) -- cgit v1.2.3