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

handle ReleaseResources correctly

Browse Source
This commit is contained in:
Bogdan Sinitsyn
2016-03-25 16:31:23 +03:00
parent 43fccf1a6c
commit 44abb6c8d4
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/IfMax.hs
View File

@@ -66,6 +66,12 @@ instance (LayoutClass l1 Window, LayoutClass l2 Window) => LayoutClass (IfMax l1
let l2' = fromMaybe l2 ml2'
return (wrs, Just $ IfMax n l1' l2')
handleMessage (IfMax n l1 l2) m | Just ReleaseResources <- fromMessage m = do
l1' <- handleMessage l1 (SomeMessage ReleaseResources)
l2' <- handleMessage l2 (SomeMessage ReleaseResources)
if isNothing l1' && isNothing l2'
then return Nothing
else return $ Just $ IfMax n (fromMaybe l1 l1') (fromMaybe l2 l2')
handleMessage (IfMax n l1 l2) m = do
(allWindows, floatingWindows) <- gets ((W.integrate' . W.stack . W.workspace . W.current &&& M.keys . W.floating) . windowset)
if length (allWindows L.\\ floatingWindows) <= n