summaryrefslogtreecommitdiffstats
path: root/lib/ProcessWorkspaces.hs
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2011-02-28 22:08:02 +0100
committerMatthias Schiffer <mschiffer@universe-factory.net>2011-02-28 22:08:02 +0100
commit4f4f864fd37dcad02f526045eb4a061fbdaa177e (patch)
tree9ea3d7e0bed0048000392346766bc0d46d2fd06b /lib/ProcessWorkspaces.hs
parentef2d12e398b9bb46b2e6fa7e98c9e4488ca3b94b (diff)
downloadxmonad-conf-4f4f864fd37dcad02f526045eb4a061fbdaa177e.tar
xmonad-conf-4f4f864fd37dcad02f526045eb4a061fbdaa177e.zip
Allow shifting windows ignoring process groups
Diffstat (limited to 'lib/ProcessWorkspaces.hs')
-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