summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Config.hs13
1 files changed, 9 insertions, 4 deletions
diff --git a/Config.hs b/Config.hs
index d42bcef..d520eab 100644
--- a/Config.hs
+++ b/Config.hs
@@ -29,6 +29,8 @@ import qualified Data.Map as M
import System.Exit
import Graphics.X11.Xlib
+-- Extension-provided imports
+
--
-- The number of workspaces (virtual screens, or window groups)
--
@@ -163,21 +165,22 @@ keys = M.fromList $
-- quit, or restart
, ((modMask .|. shiftMask, xK_q ), io (exitWith ExitSuccess)) -- @@ Quit xmonad
, ((modMask , xK_q ), restart Nothing True) -- @@ Restart xmonad
- -- Extension-provided key bindings
- ] ++
+ -- Extension-provided key bindings
+ ]
+ ++
-- mod-[1..9] @@ Switch to workspace N
-- mod-shift-[1..9] @@ Move client to workspace N
[((m .|. modMask, k), f i)
| (i, k) <- zip workspaces [xK_1 ..]
, (f, m) <- [(view, 0), (shift, shiftMask)]]
-
+ ++
-- mod-{w,e,r} @@ Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r} @@ Move client to screen 1, 2, or 3
- ++
[((m .|. modMask, key), screenWorkspace sc >>= flip whenJust f)
| (key, sc) <- zip [xK_w, xK_e, xK_r] [0..]
, (f, m) <- [(windows . W.view, 0), (shift, shiftMask)]]
+ -- Extension-provided key bindings lists
-- |
-- default actions bound to mouse events
@@ -192,3 +195,5 @@ mouseBindings = M.fromList $
, ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
-- Extension-provided mouse bindings
]
+
+-- Extension-provided definitions