Allow shifting windows ignoring process groups
This commit is contained in:
parent
ef2d12e398
commit
4f4f864fd3
2 changed files with 22 additions and 5 deletions
|
@ -4,6 +4,8 @@ module ProcessWorkspaces ( setProcessWorkspace
|
|||
, getProcessWorkspace
|
||||
, doAutoShift
|
||||
, doIgnoreProcessWorkspace
|
||||
, shiftIgnoreGroup
|
||||
, shiftWinIgnoreGroup
|
||||
, shiftGroup
|
||||
, shiftWinGroup
|
||||
, processWorkspaceStorage
|
||||
|
@ -49,6 +51,14 @@ doIgnoreProcessWorkspace = do
|
|||
liftX $ setProcessWorkspace (fromJust mp) Nothing
|
||||
idHook
|
||||
|
||||
shiftIgnoreGroup :: WorkspaceId -> X ()
|
||||
shiftIgnoreGroup ws = withFocused $ shiftWinIgnoreGroup ws
|
||||
|
||||
shiftWinIgnoreGroup :: WorkspaceId -> Window -> X ()
|
||||
shiftWinIgnoreGroup ws w = do
|
||||
runQuery doIgnoreProcessWorkspace w
|
||||
windows $ W.shiftWin ws w
|
||||
|
||||
shiftGroup :: WorkspaceId -> X ()
|
||||
shiftGroup ws = withFocused $ shiftWinGroup ws
|
||||
|
||||
|
|
Reference in a new issue