twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-20 22:13:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

sanitize key bindings

Browse Source 
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)
This commit is contained in:
Don Stewart
2007-04-01 03:35:22 +00:00
parent 0bb46e09cb
commit bb1c1cf062
1 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
Config.hs
View File

@@ -67,31 +67,36 @@ keys :: M.Map (KeyMask, KeySym) (X ())
keys = M.fromList $ keys = M.fromList $
[ ((modMask .|. shiftMask, xK_Return), spawn "xterm") [ ((modMask .|. shiftMask, xK_Return), spawn "xterm")
, ((modMask, xK_p ), spawn "exe=`dmenu_path | dmenu` && exec $exe") , ((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_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_h ), changeHorz (negate defaultDelta))
, ((modMask, xK_l ), changeHorz defaultDelta) , ((modMask, xK_l ), changeHorz defaultDelta)
, ((modMask .|. shiftMask, xK_j ), changeVert defaultDelta) , ((modMask .|. shiftMask, xK_j ), changeVert defaultDelta)
, ((modMask .|. shiftMask, xK_k ), changeVert (negate 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_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) , ((modMask, xK_Return), promote)
] ++ ] ++
-- Keybindings to each workspace: -- Keybindings to get to each workspace:
[((m .|. modMask, xK_0 + fromIntegral i), f i) [((m .|. modMask, xK_0 + fromIntegral i), f i)
| i <- [1 .. workspaces] | i <- [1 .. workspaces]
, (f, m) <- [(view, 0), (tag, shiftMask)]] , (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) [((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)]] , (f, m) <- [(view, 0), (tag, shiftMask)]]