aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Hooks/ManageDocks.hs
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-10-22 06:11:26 +0200
committerAdam Vogt <vogt.adam@gmail.com>2009-10-22 06:11:26 +0200
commit36728ae60e3effdfe645a9a34cfd2e1067a37516 (patch)
tree153d6eaf1780df2802bb8e5acefac9cbeda4d849 /XMonad/Hooks/ManageDocks.hs
parent0c9f1ac69bad6af19f3129ec50c4899bac5c149a (diff)
downloadXMonadContrib-36728ae60e3effdfe645a9a34cfd2e1067a37516.tar.gz
XMonadContrib-36728ae60e3effdfe645a9a34cfd2e1067a37516.tar.xz
XMonadContrib-36728ae60e3effdfe645a9a34cfd2e1067a37516.zip
Refer to modm as the current modMask
Ignore-this: d097c7dc1746c55e1d4078a7148f9d5a This makes the config suggestions consistent with the current template. darcs-hash:20091022041126-1499c-5dd63076fdd71a61276cfc8e648bada81d9cc586.gz
Diffstat (limited to 'XMonad/Hooks/ManageDocks.hs')
-rw-r--r--XMonad/Hooks/ManageDocks.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index 3a10be8..314b634 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -59,12 +59,12 @@ import qualified Data.Set as S
-- 'AvoidStruts' also supports toggling the dock gaps; add a keybinding
-- similar to:
--
--- > ,((modMask x, xK_b ), sendMessage ToggleStruts)
+-- > ,((modm, xK_b ), sendMessage ToggleStruts)
--
-- If you have multiple docks, you can toggle their gaps individually.
-- For example, to toggle only the top gap:
--
--- > ,((modMask x .|. controlMask, xK_t), sendMessage $ ToggleStrut U)
+-- > ,((modm .|. controlMask, xK_t), sendMessage $ ToggleStrut U)
--
-- Similarly, you can use 'D', 'L', and 'R' to individually toggle
-- gaps on the bottom, left, or right.
@@ -165,19 +165,19 @@ instance Message ToggleStruts
--
-- Show all gaps:
--
--- > ,((modMask x .|. shiftMask ,xK_b),sendMessage $ SetStruts [minBound .. maxBound] [])
+-- > ,((modm .|. shiftMask ,xK_b),sendMessage $ SetStruts [minBound .. maxBound] [])
--
-- Hide all gaps:
--
--- > ,((modMask x .|. controlMask,xK_b),sendMessage $ SetStruts [] [minBound .. maxBound])
+-- > ,((modm .|. controlMask,xK_b),sendMessage $ SetStruts [] [minBound .. maxBound])
--
-- Show only upper and left gaps:
--
--- > ,((modMask x .|. controlMask .|. shiftMask,xK_b),sendMessage $ SetStruts [U,L] [minBound .. maxBound])
+-- > ,((modm .|. controlMask .|. shiftMask,xK_b),sendMessage $ SetStruts [U,L] [minBound .. maxBound])
--
-- Hide the bottom keeping whatever the other values were:
--
--- > ,((modMask x .|. controlMask .|. shiftMask,xK_g),sendMessage $ SetStruts [] [D])
+-- > ,((modm .|. controlMask .|. shiftMask,xK_g),sendMessage $ SetStruts [] [D])
data SetStruts = SetStruts { addedStruts :: [Direction2D]
, removedStruts :: [Direction2D] -- ^ These are removed from the currently set struts before 'addedStruts' are added.
}