diff options
| author | Devin Mullins <me@twifkak.com> | 2008-05-12 10:22:28 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2008-05-12 10:22:28 +0200 |
| commit | 35b89902b8711a85deabe798c4ab76e149b00b2f (patch) | |
| tree | 4fa4f204e15177e83f931af5ea8f79fcbccc8ca5 /XMonad/Actions | |
| parent | 2afe55aad20487d93824fe131372316033283a87 (diff) | |
| download | XMonadContrib-35b89902b8711a85deabe798c4ab76e149b00b2f.tar.gz XMonadContrib-35b89902b8711a85deabe798c4ab76e149b00b2f.tar.xz XMonadContrib-35b89902b8711a85deabe798c4ab76e149b00b2f.zip | |
X.A.WindowNavigation: ugh, typo
darcs-hash:20080512082228-78224-9fa253af956d0d4493197c520aebed43683f1b95.gz
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) |