diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-14 15:17:19 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-14 15:17:19 +0100 |
| commit | 07dd2620ce687e2ec717d612fe920bd6215a7cf1 (patch) | |
| tree | 971057b535cd499db5192e550e8783a607946874 | |
| parent | 97e8fd179c5b537ad6c1168a242480665da010d9 (diff) | |
| download | XMonadContrib-07dd2620ce687e2ec717d612fe920bd6215a7cf1.tar.gz XMonadContrib-07dd2620ce687e2ec717d612fe920bd6215a7cf1.tar.xz XMonadContrib-07dd2620ce687e2ec717d612fe920bd6215a7cf1.zip | |
Arossato: some keybindings tuning
darcs-hash:20071114141719-32816-a3203ca3c9a6c4b7efbc2124498e1adbb98ad6aa.gz
| -rw-r--r-- | XMonad/Config/Arossato.hs | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index 6dac167..2a3f457 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -83,9 +83,14 @@ arossatoConfig = defaultConfig , (modMask x , xK_k ) , (modMask x , xK_p ) , (modMask x .|. shiftMask, xK_p ) + , (modMask x .|. shiftMask, xK_q ) + , (modMask x , xK_q ) , (modMask x , xK_comma ) , (modMask x , xK_period) - ] + ] ++ + -- I want modMask .|. shiftMusk 1-9 to be free! + [(shiftMask .|. modMask x, k) | k <- [xK_1 .. xK_9]] + -- These are my personal key bindings toAdd x = [ ((modMask x , xK_F12 ), xmonadPrompt defaultXPConfig ) @@ -104,4 +109,10 @@ arossatoConfig = defaultConfig , ((modMask x , xK_c ), kill ) , ((modMask x .|. shiftMask, xK_comma ), sendMessage (IncMasterN 1 ) ) , ((modMask x .|. shiftMask, xK_period), sendMessage (IncMasterN (-1)) ) + ] ++ + -- Use modMask .|. shiftMusk .|. controlMask 1-9 instead + [( (m .|. modMask x, k), windows $ f i) + | (i, k) <- zip (workspaces x) [xK_1 .. xK_9] + , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask .|. controlMask)] ] + |