twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-18 21:53:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

add man page doco

Browse Source
This commit is contained in:
Devin Mullins
2007-10-04 08:15:04 +00:00
parent 2f7fb1480d
commit 1b4c763ef9
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
SwapWorkspaces.hs
View File

@@ -34,6 +34,11 @@ import StackSet
-- > ++ -- > ++
-- > [((modMask .|. controlMask, k), windows $ swapWithCurrent i) -- > [((modMask .|. controlMask, k), windows $ swapWithCurrent i)
-- > | (i, k) <- zip workspaces [xK_1 ..]] -- > | (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 :: 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 swapWithCurrent t s = swapWorkspaces t (tag $ workspace $ current s) s