From cb93b2e6fe9f3bcb5b20cb2e4b822ade52f2b284 Mon Sep 17 00:00:00 2001
From: Jens Petersen <juhp@community.haskell.org>
Date: Mon, 12 Mar 2012 11:23:31 +0100
Subject: 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
---
 XMonad/Actions/FindEmptyWorkspace.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'XMonad/Actions/FindEmptyWorkspace.hs')

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