Match 'Remove Operations functions which have StackSet equivalents' from the core

This commit is contained in:
Spencer Janssen
2007-09-17 21:33:29 +00:00
parent 67779476ed
commit 6c7fde2991
5 changed files with 18 additions and 18 deletions

View File

@@ -22,9 +22,8 @@ module XMonadContrib.DynamicWorkspaces (
import Control.Monad.State ( gets, modify )
import XMonad ( X, XState(..), Layout, WorkspaceId, trace )
import Operations ( windows, view )
import StackSet ( tagMember, StackSet(..), Screen(..), Workspace(..),
integrate, differentiate )
import Operations
import StackSet hiding (filter, modify, delete)
import Data.Map ( delete, insert )
import Graphics.X11.Xlib ( Window )
@@ -51,7 +50,7 @@ removeWorkspace = do s <- gets windowset
case s of
StackSet { current = Screen { workspace = torem }
, hidden = (w:_) }
-> do view $ tag w
-> do windows $ view (tag w)
modify $ \st -> st { layouts = delete (tag torem) $ layouts st }
windows (removeWorkspace' (tag torem))
_ -> return ()