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

formatting and comments only

Browse Source
This commit is contained in:
Don Stewart
2007-03-07 07:19:26 +00:00
parent ebe2ddf2e4
commit 11af93da57
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Main.hs
View File

@@ -141,13 +141,12 @@ withWindows f = do
modifyWindows f modifyWindows f
refresh refresh
-- | manage. Add a new window to be managed -- | manage. Add a new window to be managed. Bring it into focus.
manage :: Window -> W () manage :: Window -> W ()
manage w = do manage w = do
trace "manage"
d <- gets display d <- gets display
withWindows (nub . (w :))
io $ mapWindow d w io $ mapWindow d w
withWindows (nub . (w :))
-- | unmanage, a window no longer exists, remove it from the stack -- | unmanage, a window no longer exists, remove it from the stack
unmanage :: Window -> W () unmanage :: Window -> W ()