aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2011-11-20 05:55:38 +0100
committerAdam Vogt <vogt.adam@gmail.com>2011-11-20 05:55:38 +0100
commitb9fecaee6fe7287df4b0ba526fad4178833c5838 (patch)
tree7220dcd12499051d45e3c5b03d2d996befd23df9 /XMonad
parent89f6bee45fc63230c378af5f33ec1a39e658eea7 (diff)
downloadXMonadContrib-b9fecaee6fe7287df4b0ba526fad4178833c5838.tar.gz
XMonadContrib-b9fecaee6fe7287df4b0ba526fad4178833c5838.tar.xz
XMonadContrib-b9fecaee6fe7287df4b0ba526fad4178833c5838.zip
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
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/Layout/TrackFloating.hs4
1 files changed, 2 insertions, 2 deletions
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)