From a551d1367c0f49220c27a4b769b4f652dba54388 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 20 Nov 2011 04:55:38 +0000 Subject: [PATCH] Restore TrackFloating behavior to an earlier version. 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. --- XMonad/Layout/TrackFloating.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Layout/TrackFloating.hs b/XMonad/Layout/TrackFloating.hs index b30d5242..217e9a4b 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)