twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Restore TrackFloating behavior to an earlier version.

Browse Source 
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.
This commit is contained in:
Adam Vogt
2011-11-20 04:55:38 +00:00
parent cb795c8c75
commit a551d1367c
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/TrackFloating.hs
View File

@@ -45,7 +45,7 @@ data TrackFloating a = TrackFloating
instance LayoutModifier TrackFloating Window where 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 = do
winset <- gets windowset winset <- gets windowset
let xCur = fmap W.focus xStack let xCur = fmap W.focus xStack
@@ -57,7 +57,7 @@ instance LayoutModifier TrackFloating Window where
newStack newStack
-- focus is floating, so use the remembered focus point -- focus is floating, so use the remembered focus point
| Just isF' <- isF, | Just isF' <- isF,
isF' || wasF, isF',
Just w <- mw, Just w <- mw,
Just s <- ms, Just s <- ms,
Just ns <- find ((==) w . W.focus) Just ns <- find ((==) w . W.focus)