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