From 064352bdda2ce311772516fcd0c3394c33aa674d Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Mon, 28 Feb 2011 22:56:39 +0100
Subject: Allow regrouping processes

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

(limited to 'lib/ProcessWorkspaces.hs')

diff --git a/lib/ProcessWorkspaces.hs b/lib/ProcessWorkspaces.hs
index 06818b0..8789c51 100644
--- a/lib/ProcessWorkspaces.hs
+++ b/lib/ProcessWorkspaces.hs
@@ -4,6 +4,8 @@ module ProcessWorkspaces ( setProcessWorkspace
                          , getProcessWorkspace
                          , doAutoShift
                          , doIgnoreProcessWorkspace
+                         , regroupProcess
+                         , regroupWinProcess
                          , shiftIgnoreGroup
                          , shiftWinIgnoreGroup
                          , shiftGroup
@@ -51,6 +53,15 @@ doIgnoreProcessWorkspace = do
     liftX $ setProcessWorkspace (fromJust mp) Nothing
   idHook
 
+regroupProcess :: WorkspaceId -> X ()
+regroupProcess ws = withFocused $ regroupWinProcess ws
+
+regroupWinProcess :: WorkspaceId -> Window -> X ()
+regroupWinProcess ws w = do
+  mp <- runQuery pid w
+  when (isJust mp) $ setProcessWorkspace (fromJust mp) (Just ws)
+  shiftWinGroup ws w
+
 shiftIgnoreGroup :: WorkspaceId -> X ()
 shiftIgnoreGroup ws = withFocused $ shiftWinIgnoreGroup ws
 
-- 
cgit v1.2.3