diff options
| author | David Roundy <droundy@darcs.net> | 2008-02-05 21:35:56 +0100 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2008-02-05 21:35:56 +0100 |
| commit | d18d5f4c6905afe13a4040b6f01d113bc9b471a4 (patch) | |
| tree | 724372030e51966b21418fcabc89e7e32869570e /XMonad/Layout/WindowNavigation.hs | |
| parent | 387cac87e5f32735e2ff8dbb2fb620dbf46edccf (diff) | |
| download | XMonadContrib-d18d5f4c6905afe13a4040b6f01d113bc9b471a4.tar.gz XMonadContrib-d18d5f4c6905afe13a4040b6f01d113bc9b471a4.tar.xz XMonadContrib-d18d5f4c6905afe13a4040b6f01d113bc9b471a4.zip | |
make WindowNavigation ignore decorations.
darcs-hash:20080205203556-72aca-1340a5e4360366b96fa5509c2233891d5c2022fe.gz
Diffstat (limited to 'XMonad/Layout/WindowNavigation.hs')
| -rw-r--r-- | XMonad/Layout/WindowNavigation.hs | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/XMonad/Layout/WindowNavigation.hs b/XMonad/Layout/WindowNavigation.hs index 1bc50d9..bf07483 100644 --- a/XMonad/Layout/WindowNavigation.hs +++ b/XMonad/Layout/WindowNavigation.hs @@ -105,7 +105,7 @@ configurableNavigation :: LayoutClass l a => WNConfig -> l a -> ModifiedLayout W configurableNavigation conf = ModifiedLayout (WindowNavigation conf (I Nothing)) instance LayoutModifier WindowNavigation Window where - redoLayout (WindowNavigation conf (I state)) rscr s wrs = + redoLayout (WindowNavigation conf (I state)) rscr s origwrs = do XConf { normalBorder = nbc, focusedBorder = fbc, display = dpy } <- ask [uc,dc,lc,rc] <- case brightness conf of @@ -118,21 +118,23 @@ instance LayoutModifier WindowNavigation Window where dirc L = lc dirc R = rc let w = W.focus s - r = case filter ((==w).fst) wrs of ((_,x):_) -> x - [] -> rscr + r = case filter ((==w).fst) origwrs of ((_,x):_) -> x + [] -> rscr pt = case state of Just (NS ptold _) | ptold `inrect` r -> ptold _ -> center r - wrs' = filter ((/=r) . snd) $ filter ((/=w) . fst) wrs + existing_wins = W.integrate s + wrs = filter ((`elem` existing_wins) . fst) $ filter ((/=r) . snd) $ + filter ((/=w) . fst) origwrs wnavigable = nub $ concatMap - (\d -> truncHead $ sortby d $ filter (inr d pt . snd) wrs') [U,D,R,L] + (\d -> truncHead $ sortby d $ filter (inr d pt . snd) wrs) [U,D,R,L] wnavigablec = nub $ concatMap (\d -> map (\(win,_) -> (win,dirc d)) $ - truncHead $ sortby d $ filter (inr d pt . snd) wrs') [U,D,R,L] + truncHead $ sortby d $ filter (inr d pt . snd) wrs) [U,D,R,L] wothers = case state of Just (NS _ wo) -> map fst wo _ -> [] mapM_ (sc nbc) (wothers \\ map fst wnavigable) mapM_ (\(win,c) -> sc c win) wnavigablec - return (wrs, Just $ WindowNavigation conf $ I $ Just $ NS pt wnavigable) + return (origwrs, Just $ WindowNavigation conf $ I $ Just $ NS pt wnavigable) handleMessOrMaybeModifyIt (WindowNavigation conf (I (Just (NS pt wrs)))) m | Just (Go d) <- fromMessage m = |