diff options
| author | David Roundy <droundy@darcs.net> | 2008-02-05 21:20:27 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2008-02-05 21:20:27 +0100 |
| commit | 6713e15c2f6f2859daa96f00c01bc639da219fdd (patch) | |
| tree | 79dee7464b8e4a6a697242b2d6f745362160167c | |
| parent | 6928bb1beca2ade83116d9607782377b7bdb43d6 (diff) | |
| download | XMonadContrib-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.hs | 2 |
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 |