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

Merge pull request #652 from Rogach/pr/fix-window-navigation

Browse Source 
X.A.WindowNavigation: Fix navigation being "stuck" in certain situations
This commit is contained in:
Tony Zorman 2021-11-22 21:10:39 +01:00 committed by GitHub
commit 2a02fb3753
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
CHANGES.md
View File

@ -32,6 +32,11 @@
- Flipped how `(^?)`, `(~?)`, and `($?)` work to more accurately
reflect how one uses these operators.
* `XMonad.Actions.WindowNavigation`
- Fixed navigation getting "stuck" in certain situations for
widescreen resolutions.
## 0.17.0 (October 27, 2021)
### Breaking Changes

4
XMonad/Actions/WindowNavigation.hs
View File

@ -209,9 +209,9 @@ inr D (Point px py) (Rectangle rx ry w h) = px >= rx && px < rx + fromIntegral w
py < ry + fromIntegral h
inr U (Point px py) (Rectangle rx ry w _) = px >= rx && px < rx + fromIntegral w &&
py > ry
inr R (Point px py) (Rectangle rx ry _ h) = px < rx &&
inr R (Point px py) (Rectangle rx ry w h) = px < rx + fromIntegral w &&
py >= ry && py < ry + fromIntegral h
inr L (Point px py) (Rectangle rx ry w h) = px > rx + fromIntegral w &&
inr L (Point px py) (Rectangle rx ry _ h) = px > rx &&
py >= ry && py < ry + fromIntegral h
sortby :: Direction2D -> [(a,Rectangle)] -> [(a,Rectangle)]