diff options
| author | Devin Mullins <me@twifkak.com> | 2007-10-04 10:15:04 +0200 |
|---|---|---|
| committer | Devin Mullins <me@twifkak.com> | 2007-10-04 10:15:04 +0200 |
| commit | e3ebc947a4b2023cfce03b6cf375ff7b600263f5 (patch) | |
| tree | 6a387f1adfccf0b6d2b8d32f877fcc02f8c3da45 /SwapWorkspaces.hs | |
| parent | 4a7fbb95609ed14c39961b79e7579822e916995c (diff) | |
| download | XMonadContrib-e3ebc947a4b2023cfce03b6cf375ff7b600263f5.tar.gz XMonadContrib-e3ebc947a4b2023cfce03b6cf375ff7b600263f5.tar.xz XMonadContrib-e3ebc947a4b2023cfce03b6cf375ff7b600263f5.zip | |
add man page doco
darcs-hash:20071004081504-78224-238c1e8592b9155ca49eac30e2940c43fa473be6.gz
Diffstat (limited to 'SwapWorkspaces.hs')
| -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 |