diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-02-28 22:08:02 +0100 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-02-28 22:08:02 +0100 |
| commit | 4f4f864fd37dcad02f526045eb4a061fbdaa177e (patch) | |
| tree | 9ea3d7e0bed0048000392346766bc0d46d2fd06b /lib | |
| parent | ef2d12e398b9bb46b2e6fa7e98c9e4488ca3b94b (diff) | |
| download | xmonad-conf-4f4f864fd37dcad02f526045eb4a061fbdaa177e.tar xmonad-conf-4f4f864fd37dcad02f526045eb4a061fbdaa177e.zip | |
Allow shifting windows ignoring process groups
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ProcessWorkspaces.hs | 10 |
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 |