From 4f4f864fd37dcad02f526045eb4a061fbdaa177e Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Mon, 28 Feb 2011 22:08:02 +0100
Subject: Allow shifting windows ignoring process groups

---
 lib/ProcessWorkspaces.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lib/ProcessWorkspaces.hs')

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
 
-- 
cgit v1.2.3