aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel Wagner <daniel@wagner-home.com>2011-10-11 22:46:19 +0200
committerDaniel Wagner <daniel@wagner-home.com>2011-10-11 22:46:19 +0200
commit5023a4e0f9ff0fa340dbb3d4500ee80ab68ed68d (patch)
tree7d29b0a5b9b80326877ef0d89c548a7b8f4973cb
parent83cd37211c4949ff8403f3eecff2a87facc3e834 (diff)
downloadXMonadContrib-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.hs16
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