From 5023a4e0f9ff0fa340dbb3d4500ee80ab68ed68d Mon Sep 17 00:00:00 2001 From: Daniel Wagner Date: Tue, 11 Oct 2011 22:46:19 +0200 Subject: documentation patch: add a bit more context to the code snippets in X.L.IndependentScreens Ignore-this: cbb03927204aa3c01aa9bea067d37bce darcs-hash:20111011204619-76d51-04fad5588955d5da32bd3aa742090b941c1345b6.gz --- XMonad/Layout/IndependentScreens.hs | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'XMonad/Layout') diff --git a/XMonad/Layout/IndependentScreens.hs b/XMonad/Layout/IndependentScreens.hs index 17e782e..5ff3873 100644 --- a/XMonad/Layout/IndependentScreens.hs +++ b/XMonad/Layout/IndependentScreens.hs @@ -53,15 +53,19 @@ import XMonad.Hooks.DynamicLog -- to specific workspace names. In the default configuration, only -- the keybindings for changing workspace do this: -- --- > [((m .|. modm, k), windows $ f i) --- > | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] --- > , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] +-- > keyBindings conf = let m = modMask conf in fromList $ +-- > {- lots of other keybindings -} +-- > [((m .|. modm, k), windows $ f i) +-- > | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9] +-- > , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- -- This should change to -- --- > [((m .|. modm, k), windows $ onCurrentScreen f i) --- > | (i, k) <- zip (workspaces' conf) [xK_1 .. xK_9] --- > , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] +-- > keyBindings conf = let m = modMask conf in fromList $ +-- > {- lots of other keybindings -} +-- > [((m .|. modm, k), windows $ onCurrentScreen f i) +-- > | (i, k) <- zip (workspaces' conf) [xK_1 .. xK_9] +-- > , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- -- In particular, the analogue of @XMonad.workspaces@ is -- @workspaces'@, and you can use @onCurrentScreen@ to convert functions -- cgit v1.2.3