diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2011-10-11 22:46:19 +0200 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2011-10-11 22:46:19 +0200 |
| commit | 5023a4e0f9ff0fa340dbb3d4500ee80ab68ed68d (patch) | |
| tree | 7d29b0a5b9b80326877ef0d89c548a7b8f4973cb | |
| parent | 83cd37211c4949ff8403f3eecff2a87facc3e834 (diff) | |
| download | XMonadContrib-5023a4e0f9ff0fa340dbb3d4500ee80ab68ed68d.tar.gz XMonadContrib-5023a4e0f9ff0fa340dbb3d4500ee80ab68ed68d.tar.xz XMonadContrib-5023a4e0f9ff0fa340dbb3d4500ee80ab68ed68d.zip | |
documentation patch: add a bit more context to the code snippets in X.L.IndependentScreens
Ignore-this: cbb03927204aa3c01aa9bea067d37bce
darcs-hash:20111011204619-76d51-04fad5588955d5da32bd3aa742090b941c1345b6.gz
| -rw-r--r-- | XMonad/Layout/IndependentScreens.hs | 16 |
1 files changed, 10 insertions, 6 deletions
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 |