mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-31 20:21:52 -07:00
use "windows" in "unmanage"
This commit is contained in:
2
Main.hs
2
Main.hs
@@ -269,7 +269,7 @@ manage w = do
|
|||||||
-- list, on whatever workspace it is.
|
-- list, on whatever workspace it is.
|
||||||
unmanage :: Window -> X ()
|
unmanage :: Window -> X ()
|
||||||
unmanage w = do
|
unmanage w = do
|
||||||
modify $ \s -> s { workspace = W.delete w (workspace s) }
|
windows $ W.delete w
|
||||||
withServerX $ do
|
withServerX $ do
|
||||||
setTopFocus
|
setTopFocus
|
||||||
withDisplay $ \d -> io (sync d False)
|
withDisplay $ \d -> io (sync d False)
|
||||||
|
Reference in New Issue
Block a user