aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad
diff options
context:
space:
mode:
authorIvan N. Veselov <veselov@gmail.com>2008-05-06 20:57:57 +0200
committerIvan N. Veselov <veselov@gmail.com>2008-05-06 20:57:57 +0200
commitf7a9c1916c1a93fb2da42b83c9d25b5deb045d43 (patch)
tree7609708a4857105c34556bb3ba782b96d2e757be /XMonad
parent0cf13ecf8a9fd226ae9eb00389323851c759885b (diff)
downloadxmonad-f7a9c1916c1a93fb2da42b83c9d25b5deb045d43.tar.gz
xmonad-f7a9c1916c1a93fb2da42b83c9d25b5deb045d43.tar.xz
xmonad-f7a9c1916c1a93fb2da42b83c9d25b5deb045d43.zip
Added doShift function for more user-friendly hooks
darcs-hash:20080506185757-98257-f0e6f2940269244914797539efd3f6e86960d037.gz
Diffstat (limited to 'XMonad')
-rw-r--r--XMonad/ManageHook.hs4
1 files changed, 4 insertions, 0 deletions
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