diff options
| -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 |