Allow regrouping processes

This commit is contained in:
Matthias Schiffer 2011-02-28 22:56:39 +01:00
parent 4f4f864fd3
commit 064352bdda
2 changed files with 12 additions and 0 deletions

View file

@ -4,6 +4,8 @@ module ProcessWorkspaces ( setProcessWorkspace
, getProcessWorkspace
, doAutoShift
, doIgnoreProcessWorkspace
, regroupProcess
, regroupWinProcess
, shiftIgnoreGroup
, shiftWinIgnoreGroup
, shiftGroup
@ -51,6 +53,15 @@ doIgnoreProcessWorkspace = do
liftX $ setProcessWorkspace (fromJust mp) Nothing
idHook
regroupProcess :: WorkspaceId -> X ()
regroupProcess ws = withFocused $ regroupWinProcess ws
regroupWinProcess :: WorkspaceId -> Window -> X ()
regroupWinProcess ws w = do
mp <- runQuery pid w
when (isJust mp) $ setProcessWorkspace (fromJust mp) (Just ws)
shiftWinGroup ws w
shiftIgnoreGroup :: WorkspaceId -> X ()
shiftIgnoreGroup ws = withFocused $ shiftWinIgnoreGroup ws