diff options
| author | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-01 05:35:22 +0200 |
|---|---|---|
| committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-04-01 05:35:22 +0200 |
| commit | 0f15ab8cd0f051e3a6ca3f71c4d4d2761afa3f48 (patch) | |
| tree | 33e4be13247adc9b885aa8afe46e83cacfac2dc8 /Config.hs | |
| parent | 0154feb21d2f3c9df1a72006b39ab4487d1ac50e (diff) | |
| download | metatile-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
Diffstat (limited to 'Config.hs')
| -rw-r--r-- | Config.hs | 25 |
1 files changed, 15 insertions, 10 deletions
@@ -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)]] + |