aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2008-02-05 21:20:27 +0100
committerDavid Roundy <droundy@darcs.net>2008-02-05 21:20:27 +0100
commit6713e15c2f6f2859daa96f00c01bc639da219fdd (patch)
tree79dee7464b8e4a6a697242b2d6f745362160167c
parent6928bb1beca2ade83116d9607782377b7bdb43d6 (diff)
downloadXMonadContrib-6713e15c2f6f2859daa96f00c01bc639da219fdd.tar.gz
XMonadContrib-6713e15c2f6f2859daa96f00c01bc639da219fdd.tar.xz
XMonadContrib-6713e15c2f6f2859daa96f00c01bc639da219fdd.zip
make WindowNavigation work when windows are stacked.
darcs-hash:20080205202027-72aca-52df32eeb02ca8abacc78486be8a02e1ea4063b6.gz
-rw-r--r--XMonad/Layout/WindowNavigation.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs
index 443e2d5..1bc50d9 100644
--- a/XMonad/Layout/WindowNavigation.hs
+++ b/XMonad/Layout/WindowNavigation.hs
@@ -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