diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2011-11-20 05:55:38 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2011-11-20 05:55:38 +0100 |
| commit | b9fecaee6fe7287df4b0ba526fad4178833c5838 (patch) | |
| tree | 7220dcd12499051d45e3c5b03d2d996befd23df9 /XMonad | |
| parent | 89f6bee45fc63230c378af5f33ec1a39e658eea7 (diff) | |
| download | XMonadContrib-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.hs | 4 |
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) |