From b9fecaee6fe7287df4b0ba526fad4178833c5838 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 20 Nov 2011 05:55:38 +0100 Subject: Restore TrackFloating behavior to an earlier version. Ignore-this: 1a1367b4171c3ad23b0553766021629f Thanks for liskni_si for pressing the matter: without this change it is very broken, with the patch it is still not perfect but still useful. darcs-hash:20111120045538-1499c-9c31ece452b68c0344ade43a50c32237acde737f.gz --- XMonad/Layout/TrackFloating.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Layout') diff --git a/XMonad/Layout/TrackFloating.hs b/XMonad/Layout/TrackFloating.hs index b30d524..217e9a4 100644 --- a/XMonad/Layout/TrackFloating.hs +++ b/XMonad/Layout/TrackFloating.hs @@ -45,7 +45,7 @@ data TrackFloating a = TrackFloating instance LayoutModifier TrackFloating Window where - modifyLayoutWithUpdate os@(TrackFloating wasF mw) ws@(W.Workspace{ W.stack = ms }) r + modifyLayoutWithUpdate os@(TrackFloating _wasF mw) ws@(W.Workspace{ W.stack = ms }) r = do winset <- gets windowset let xCur = fmap W.focus xStack @@ -57,7 +57,7 @@ instance LayoutModifier TrackFloating Window where newStack -- focus is floating, so use the remembered focus point | Just isF' <- isF, - isF' || wasF, + isF', Just w <- mw, Just s <- ms, Just ns <- find ((==) w . W.focus) -- cgit v1.2.3