twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 04:01:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

make WindowNavigation work when windows are stacked.

Browse Source
This commit is contained in:
David Roundy
2008-02-05 20:20:27 +00:00
parent 4c7a536465
commit f804991d22
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/WindowNavigation.hs
View File

@@ -122,7 +122,7 @@ instance LayoutModifier WindowNavigation Window where
[] -> rscr
pt = case state of Just (NS ptold _) | ptold `inrect` r -> ptold
_ -> center r
wrs' = filter ((/=w) . fst) wrs
wrs' = filter ((/=r) . snd) $ filter ((/=w) . fst) wrs
wnavigable = nub $ concatMap
(\d -> truncHead $ sortby d $ filter (inr d pt . snd) wrs') [U,D,R,L]
wnavigablec = nub $ concatMap