diff options
| -rw-r--r-- | SwapWorkspaces.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/SwapWorkspaces.hs b/SwapWorkspaces.hs index e1575dc..4b404b6 100644 --- a/SwapWorkspaces.hs +++ b/SwapWorkspaces.hs @@ -34,6 +34,11 @@ import StackSet -- > ++ -- > [((modMask .|. controlMask, k), windows $ swapWithCurrent i) -- > | (i, k) <- zip workspaces [xK_1 ..]] +-- +-- %import XMonadContrib.SwapWorkspaces +-- %keybindlist ++ +-- %keybindlist [((modMask .|. controlMask, k), windows $ swapWithCurrent i) +-- %keybindlist | (i, k) <- zip workspaces [xK_1 ..]] swapWithCurrent :: Eq i => i -> StackSet i l a s sd -> StackSet i l a s sd swapWithCurrent t s = swapWorkspaces t (tag $ workspace $ current s) s |