diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ProcessWorkspaces.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/ProcessWorkspaces.hs b/lib/ProcessWorkspaces.hs index 0b14bff..06818b0 100644 --- a/lib/ProcessWorkspaces.hs +++ b/lib/ProcessWorkspaces.hs @@ -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 |