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

one more comment.

Browse Source
This commit is contained in:
David Roundy
2007-10-11 15:44:23 +00:00
parent 75874040cc
commit 1a48b527ff
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Operations.hs
View File

@@ -330,7 +330,8 @@ broadcastMessage a = runOnWorkspaces modw
where modw w = do ml' <- handleMessage (W.layout w) (SomeMessage a) `catchX` return Nothing where modw w = do ml' <- handleMessage (W.layout w) (SomeMessage a) `catchX` return Nothing
return $ w { W.layout = maybe (W.layout w) id ml' } return $ w { W.layout = maybe (W.layout w) id ml' }
-- | XXX comment me -- | This is basically a map function, running a function in the X monad on
-- each workspace with the output of that function being the modified workspace.
runOnWorkspaces :: (WindowSpace -> X WindowSpace) -> X () runOnWorkspaces :: (WindowSpace -> X WindowSpace) -> X ()
runOnWorkspaces job = do ws <- gets windowset runOnWorkspaces job = do ws <- gets windowset
h <- mapM job $ W.hidden ws h <- mapM job $ W.hidden ws