summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlex Tarkovsky <alextarkovsky@gmail.com>2007-09-07 14:04:14 +0200
committerAlex Tarkovsky <alextarkovsky@gmail.com>2007-09-07 14:04:14 +0200
commit3440978e4a82cac099bb7c8eb3fd5406b23d53ea (patch)
tree1d3d8c1163ef96b3780528744609530b7c3d06e3
parent4688b4e20aba76e98a5c811d9ff550206a289877 (diff)
downloadmetatile-3440978e4a82cac099bb7c8eb3fd5406b23d53ea.tar
metatile-3440978e4a82cac099bb7c8eb3fd5406b23d53ea.zip
Add missing insert markers for generate-configs.sh in Config.hs
darcs-hash:20070907120414-bd4fb-b2420c480279a6aa7bc687bbe6f6774082726d91
-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