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 | 1e76113314a729920d52896947aac1328a6f316e (patch) | |
| tree | 6000e5c40b55fe02832dda8bafced58ed7243c5f /Operations.hs | |
| parent | c6e0ccef29e56f40f5083fce8a6a8cf2788eac76 (diff) | |
| download | metatile-1e76113314a729920d52896947aac1328a6f316e.tar metatile-1e76113314a729920d52896947aac1328a6f316e.zip | |
add swapLeft and swapRight
darcs-hash:20070522050008-ee4f8-6073519fac239b25e5e265ce3995ee75683fcb81
Diffstat (limited to 'Operations.hs')
| -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 () |