summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDon Stewart <dons@cse.unsw.edu.au>2007-04-01 05:35:22 +0200
committerDon Stewart <dons@cse.unsw.edu.au>2007-04-01 05:35:22 +0200
commit0f15ab8cd0f051e3a6ca3f71c4d4d2761afa3f48 (patch)
tree33e4be13247adc9b885aa8afe46e83cacfac2dc8
parent0154feb21d2f3c9df1a72006b39ab4487d1ac50e (diff)
downloadmetatile-0f15ab8cd0f051e3a6ca3f71c4d4d2761afa3f48.tar
metatile-0f15ab8cd0f051e3a6ca3f71c4d4d2761afa3f48.zip
sanitize key bindings
Changes mean: * gmrun is like the dmenu key, but with shift set. - , ((modMask .|. shiftMask, xK_F11 ), spawn "gmrun") + , ((modMask .|. shiftMask, xK_p ), spawn "gmrun") If no one actually uses both gmrun and dmenu, we should consider only using mod-p for this. * restart is like quit, but with 'ctrl' set: + , ((modMask .|. shiftMask, xK_q ), io $ exitWith ExitSuccess) + , ((modMask .|. shiftMask .|. controlMask, xK_q ), io restart) * revert to 'wer' ordering for xinerama screens: - | (key, sc) <- zip [xK_e, xK_r, xK_t] [1..] + | (key, sc) <- zip [xK_w, xK_e, xK_r] [1..] that's the only binding order that makes sense, since they're meant to refer to screens 1 2 and 3, hence 'wer' (look at the keyboard to see why) darcs-hash:20070401033522-9c5c1-612e23066ea1c2523b0b0be8d2ffdd2fe407c341
-rw-r--r--Config.hs25
1 files changed, 15 insertions, 10 deletions
diff --git a/Config.hs b/Config.hs
index 03098f5..8bf36a0 100644
--- a/Config.hs
+++ b/Config.hs
@@ -67,31 +67,36 @@ keys :: M.Map (KeyMask, KeySym) (X ())
keys = M.fromList $
[ ((modMask .|. shiftMask, xK_Return), spawn "xterm")
, ((modMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && exec $exe")
- , ((modMask .|. shiftMask, xK_F11 ), spawn "gmrun")
+ , ((modMask .|. shiftMask, xK_p ), spawn "gmrun")
, ((modMask, xK_space ), switchLayout)
+ , ((modMask, xK_Tab ), raise GT)
+ , ((modMask, xK_j ), raise GT)
+ , ((modMask, xK_k ), raise LT)
+
, ((modMask, xK_h ), changeHorz (negate defaultDelta))
, ((modMask, xK_l ), changeHorz defaultDelta)
, ((modMask .|. shiftMask, xK_j ), changeVert defaultDelta)
, ((modMask .|. shiftMask, xK_k ), changeVert (negate defaultDelta))
- , ((modMask, xK_Tab ), raise GT)
- , ((modMask, xK_j ), raise GT)
- , ((modMask, xK_k ), raise LT)
-
, ((modMask .|. shiftMask, xK_c ), kill)
- , ((modMask .|. shiftMask, xK_q ), io $ exitWith ExitSuccess)
- , ((modMask .|. shiftMask, xK_r ), io restart)
+ , ((modMask .|. shiftMask, xK_q ), io $ exitWith ExitSuccess)
+ , ((modMask .|. shiftMask .|. controlMask, xK_q ), io restart)
+
+ -- more focused window into master position in tiling mode.
, ((modMask, xK_Return), promote)
] ++
- -- Keybindings to each workspace:
+ -- Keybindings to get to each workspace:
[((m .|. modMask, xK_0 + fromIntegral i), f i)
| i <- [1 .. workspaces]
, (f, m) <- [(view, 0), (tag, shiftMask)]]
- -- Keybindings to each screen:
+
+ -- Keybindings to each screen :
+ -- mod-wer (underneath 123) swtiches to physical/Xinerama screens 1 2 and 3
++
[((m .|. modMask, key), screenWS sc >>= f)
- | (key, sc) <- zip [xK_e, xK_r, xK_t] [1..]
+ | (key, sc) <- zip [xK_w, xK_e, xK_r] [1..]
, (f, m) <- [(view, 0), (tag, shiftMask)]]
+