diff options
| author | Jens Petersen <juhp@community.haskell.org> | 2012-03-12 11:23:31 +0100 |
|---|---|---|
| committer | Jens Petersen <juhp@community.haskell.org> | 2012-03-12 11:23:31 +0100 |
| commit | cb93b2e6fe9f3bcb5b20cb2e4b822ade52f2b284 (patch) | |
| tree | 229284b1c0b7237a059edcdebed126d652cbbf2a /XMonad/Actions/FindEmptyWorkspace.hs | |
| parent | 6527552fae93844748456f0fb6b431fb1ed174cc (diff) | |
| download | XMonadContrib-cb93b2e6fe9f3bcb5b20cb2e4b822ade52f2b284.tar.gz XMonadContrib-cb93b2e6fe9f3bcb5b20cb2e4b822ade52f2b284.tar.xz XMonadContrib-cb93b2e6fe9f3bcb5b20cb2e4b822ade52f2b284.zip | |
add sendToEmptyWorkspace to FindEmptyWorkspace
Ignore-this: 50e7992d80d2db43e4d0adf5c95e964f
sendToEmptyWorkspace is like tagToEmptyWorkspace except
it does not change workspace after moving the window.
darcs-hash:20120312102331-2376b-df1ce614606db38f82ed06938c730eaf5ec2962c.gz
Diffstat (limited to 'XMonad/Actions/FindEmptyWorkspace.hs')
| -rw-r--r-- | XMonad/Actions/FindEmptyWorkspace.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/XMonad/Actions/FindEmptyWorkspace.hs b/XMonad/Actions/FindEmptyWorkspace.hs index b65faab..745df46 100644 --- a/XMonad/Actions/FindEmptyWorkspace.hs +++ b/XMonad/Actions/FindEmptyWorkspace.hs @@ -15,7 +15,7 @@ module XMonad.Actions.FindEmptyWorkspace ( -- * Usage -- $usage - viewEmptyWorkspace, tagToEmptyWorkspace + viewEmptyWorkspace, tagToEmptyWorkspace, sendToEmptyWorkspace ) where import Data.List @@ -65,3 +65,8 @@ viewEmptyWorkspace = withEmptyWorkspace (windows . view) -- all workspaces are in use. tagToEmptyWorkspace :: X () tagToEmptyWorkspace = withEmptyWorkspace $ \w -> windows $ view w . shift w + +-- | Send current window to an empty workspace. Do nothing if +-- all workspaces are in use. +sendToEmptyWorkspace :: X () +sendToEmptyWorkspace = withEmptyWorkspace $ \w -> windows $ shift w |