summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/ProcessWorkspaces.hs10
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