From b9fecaee6fe7287df4b0ba526fad4178833c5838 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
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')
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