From 8dcbd28945ecf137c34267c39a04f946d2862ec1 Mon Sep 17 00:00:00 2001
From: "Ivan N. Veselov" <veselov@gmail.com>
Date: Tue, 6 May 2008 20:57:57 +0200
Subject: Added doShift function for more user-friendly hooks

darcs-hash:20080506185757-98257-f0e6f2940269244914797539efd3f6e86960d037
---
 XMonad/ManageHook.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'XMonad')

diff --git a/XMonad/ManageHook.hs b/XMonad/ManageHook.hs
index 485c245..b5ad2f2 100644
--- a/XMonad/ManageHook.hs
+++ b/XMonad/ManageHook.hs
@@ -108,3 +108,7 @@ doFloat = ask >>= \w -> doF . W.float w . snd =<< liftX (floatLocation w)
 -- | Map the window and remove it from the 'WindowSet'.
 doIgnore :: ManageHook
 doIgnore = ask >>= \w -> liftX (reveal w) >> doF (W.delete w)
+
+-- | Move the window to a given workspace
+doShift :: WorkspaceId -> ManageHook
+doShift = doF . W.shift
-- 
cgit v1.2.3