diff options
| author | Ivan N. Veselov <veselov@gmail.com> | 2008-05-06 20:57:57 +0200 |
|---|---|---|
| committer | Ivan N. Veselov <veselov@gmail.com> | 2008-05-06 20:57:57 +0200 |
| commit | f7a9c1916c1a93fb2da42b83c9d25b5deb045d43 (patch) | |
| tree | 7609708a4857105c34556bb3ba782b96d2e757be | |
| parent | 0cf13ecf8a9fd226ae9eb00389323851c759885b (diff) | |
| download | xmonad-f7a9c1916c1a93fb2da42b83c9d25b5deb045d43.tar.gz xmonad-f7a9c1916c1a93fb2da42b83c9d25b5deb045d43.tar.xz xmonad-f7a9c1916c1a93fb2da42b83c9d25b5deb045d43.zip | |
Added doShift function for more user-friendly hooks
darcs-hash:20080506185757-98257-f0e6f2940269244914797539efd3f6e86960d037.gz
| -rw-r--r-- | XMonad/ManageHook.hs | 4 |
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 |