Allow regrouping processes

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
 

xmonad.hs

@@ -48,6 +48,7 @@ main = xmonad $ gnomeConfig
        , ("M-<F3>", viewOrWarp 2)
        , ("M-b", banishScreen LowerRight)
        , ("M-p", spawnOnCurrent "exe=`dmenu_path | /home/neoraider/bin/dmemu -b` && eval \"exec $exe\"")
+       , ("M-g", gets (W.currentTag . windowset) >>= regroupProcess)
        ]
        ++ [ (("M-" ++ show n, windows $ W.greedyView ws)) | (ws, n) <- zip myWorkspaces ([1..9]++[0])]
        ++ [ (("M-S-" ++ show n, shiftGroup ws)) | (ws, n) <- zip myWorkspaces ([1..9]++[0])]