twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

hide layout when changing to another

Browse Source
This commit is contained in:
Bogdan Sinitsyn 2016-03-25 16:13:07 +03:00
parent 01ea659a06
commit dd5a36cc08
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/IfMax.hs
View File

@ -61,11 +61,13 @@ instance (LayoutClass l1 Window, LayoutClass l2 Window) => LayoutClass (IfMax l1
arrange ws fw | length (ws L.\\ fw) <= n = do
(wrs, ml1') <- runLayout (W.Workspace "" l1 s) rect
let l1' = fromMaybe l1 ml1'
return (wrs, Just $ IfMax n l1' l2)
l2' <- fromMaybe l2 <$> handleMessage l2 (SomeMessage Hide)
return (wrs, Just $ IfMax n l1' l2')
| otherwise = do
(wrs, ml2') <- runLayout (W.Workspace "" l2 s) rect
l1' <- fromMaybe l1 <$> handleMessage l1 (SomeMessage Hide)
let l2' = fromMaybe l2 ml2'
return (wrs, Just $ IfMax n l1 l2')
return (wrs, Just $ IfMax n l1' l2')
handleMessage (IfMax n l1 l2) m = do
(allWindows, floatingWindows) <- gets ((W.integrate' . W.stack . W.workspace . W.current &&& M.keys . W.floating) . windowset)