mirror of
https://github.com/xmonad/xmonad.git
synced 2025-05-19 08:30:21 -07:00
Manage windows that are created before thunk starts
This commit is contained in:
parent
dda3f2c07a
commit
160f07a47c
4
Main.hs
4
Main.hs
@ -77,6 +77,10 @@ main = do
|
||||
io $ do selectInput dpy r (substructureRedirectMask .|. substructureNotifyMask)
|
||||
sync dpy False
|
||||
registerKeys dpy r
|
||||
(_, _, ws) <- io $ queryTree dpy r
|
||||
forM_ ws $ \w -> do
|
||||
wa <- io $ getWindowAttributes dpy w
|
||||
when (waMapState wa == waIsViewable) (manage w)
|
||||
go dpy
|
||||
|
||||
return ()
|
||||
|
Loading…
x
Reference in New Issue
Block a user