diff options
| -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 |