diff options
author | bobstopper <bobstopper@bobturf.org> | 2007-05-22 07:00:08 +0200 |
---|---|---|
committer | bobstopper <bobstopper@bobturf.org> | 2007-05-22 07:00:08 +0200 |
commit | abbd6294c6640ec140c5f056ddb216f704777e83 (patch) | |
tree | 6000e5c40b55fe02832dda8bafced58ed7243c5f /Operations.hs | |
parent | 29a641c35380d44dea54fd44d63d072b9a5937ce (diff) | |
download | xmonad-abbd6294c6640ec140c5f056ddb216f704777e83.tar.gz xmonad-abbd6294c6640ec140c5f056ddb216f704777e83.tar.xz xmonad-abbd6294c6640ec140c5f056ddb216f704777e83.zip |
add swapLeft and swapRight
darcs-hash:20070522050008-ee4f8-6073519fac239b25e5e265ce3995ee75683fcb81.gz
Diffstat (limited to '')
-rw-r--r-- | Operations.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Operations.hs b/Operations.hs index 2b35895..39a5a35 100644 --- a/Operations.hs +++ b/Operations.hs @@ -51,13 +51,15 @@ unmanage :: Window -> X () unmanage = windows . W.delete -- | focus. focus window to the left or right. -focusLeft, focusRight :: X () +focusLeft, focusRight, swapLeft, swapRight :: X () focusLeft = windows W.focusLeft focusRight = windows W.focusRight +swapLeft = windows W.swapLeft +swapRight = windows W.swapRight --- | swap. Move the currently focused window into the master frame -swap :: X () -swap = windows W.swap +-- | swapMaster. Move the currently focused window into the master frame +swapMaster :: X () +swapMaster = windows W.swapMaster -- | shift. Move a window to a new workspace, 0 indexed. shift :: WorkspaceId -> X () |