aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Config
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@unibz.it>2007-11-14 15:17:19 +0100
committerAndrea Rossato <andrea.rossato@unibz.it>2007-11-14 15:17:19 +0100
commit07dd2620ce687e2ec717d612fe920bd6215a7cf1 (patch)
tree971057b535cd499db5192e550e8783a607946874 /XMonad/Config
parent97e8fd179c5b537ad6c1168a242480665da010d9 (diff)
downloadXMonadContrib-07dd2620ce687e2ec717d612fe920bd6215a7cf1.tar.gz
XMonadContrib-07dd2620ce687e2ec717d612fe920bd6215a7cf1.tar.xz
XMonadContrib-07dd2620ce687e2ec717d612fe920bd6215a7cf1.zip
Arossato: some keybindings tuning
darcs-hash:20071114141719-32816-a3203ca3c9a6c4b7efbc2124498e1adbb98ad6aa.gz
Diffstat (limited to 'XMonad/Config')
-rw-r--r--XMonad/Config/Arossato.hs13
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)]
]
+