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 | 8dcbd28945ecf137c34267c39a04f946d2862ec1 (patch) | |
| tree | 7609708a4857105c34556bb3ba782b96d2e757be | |
| parent | 8828e5e54c9b5753af749831525bd7afa8cd8b7e (diff) | |
| download | metatile-8dcbd28945ecf137c34267c39a04f946d2862ec1.tar metatile-8dcbd28945ecf137c34267c39a04f946d2862ec1.zip | |
Added doShift function for more user-friendly hooks
darcs-hash:20080506185757-98257-f0e6f2940269244914797539efd3f6e86960d037
| -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 |