diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-19 07:57:10 +0100 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-19 07:57:10 +0100 |
commit | a8df4338b64f23b211485868accc188db60af2b9 (patch) | |
tree | 03c231877441ee6bb8b32ef6e52cc8d32dd5261c /XMonad/Operations.hs | |
parent | 17e14134266db4735537c919bd339d556039a930 (diff) | |
download | xmonad-a8df4338b64f23b211485868accc188db60af2b9.tar.gz xmonad-a8df4338b64f23b211485868accc188db60af2b9.tar.xz xmonad-a8df4338b64f23b211485868accc188db60af2b9.zip |
Call 'broadcastMessage ReleaseResources' in restart
darcs-hash:20071219065710-a5988-a03100cb8be702bdb1e972911e14117ed517975a.gz
Diffstat (limited to '')
-rw-r--r-- | XMonad/Operations.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs index a2f4cf5..844202c 100644 --- a/XMonad/Operations.hs +++ b/XMonad/Operations.hs @@ -324,23 +324,6 @@ sendMessageToWorkspaces a l = runOnWorkspaces $ \w -> return $ w { W.layout = maybe (W.layout w) id ml' } else return w --- | Send a message to all visible layouts, without necessarily refreshing. --- This is how we implement the hooks, such as UnDoLayout. -broadcastMessage :: Message a => a -> X () -broadcastMessage a = runOnWorkspaces $ \w -> do - ml' <- handleMessage (W.layout w) (SomeMessage a) `catchX` return Nothing - return $ w { W.layout = maybe (W.layout w) id ml' } - --- | 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 job =do - ws <- gets windowset - h <- mapM job $ W.hidden ws - c:v <- mapM (\s -> (\w -> s { W.workspace = w}) <$> job (W.workspace s)) - $ W.current ws : W.visible ws - modify $ \s -> s { windowset = ws { W.current = c, W.visible = v, W.hidden = h } } - -- | Set the layout of the currently viewed workspace setLayout :: Layout Window -> X () setLayout l = do |