From e3ebc947a4b2023cfce03b6cf375ff7b600263f5 Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Thu, 4 Oct 2007 10:15:04 +0200 Subject: add man page doco darcs-hash:20071004081504-78224-238c1e8592b9155ca49eac30e2940c43fa473be6.gz --- SwapWorkspaces.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'SwapWorkspaces.hs') 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 -- cgit v1.2.3