diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-14 14:53:52 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-11-14 14:53:52 +0100 |
| commit | d971d05e43a5b4b869ffe561c37a08af53d5844d (patch) | |
| tree | c01b197252727f5569d2c16ba1e99d25bdeb02df /XMonad/Config/Arossato.hs | |
| parent | c48627651eb8ddbdc7a506708416090ef124e219 (diff) | |
| download | XMonadContrib-d971d05e43a5b4b869ffe561c37a08af53d5844d.tar.gz XMonadContrib-d971d05e43a5b4b869ffe561c37a08af53d5844d.tar.xz XMonadContrib-d971d05e43a5b4b869ffe561c37a08af53d5844d.zip | |
Arossato: just code formattings
darcs-hash:20071114135352-32816-2598d866711d0b8ab0e7e0e77b361993ece19a65.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Config/Arossato.hs | 35 |
1 files changed, 19 insertions, 16 deletions
diff --git a/XMonad/Config/Arossato.hs b/XMonad/Config/Arossato.hs index 3111e8e..6dac167 100644 --- a/XMonad/Config/Arossato.hs +++ b/XMonad/Config/Arossato.hs @@ -64,16 +64,19 @@ arossatoConfig = defaultConfig , defaultGaps = [(15,0,0,0)] } where + -- layouts mytab = tabbed shrinkText myTabConfig tiled = Tall 1 0.03 0.5 + + -- the logHook pretty-printer myPP = defaultPP { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]" , ppTitle = xmobarColor "green" "" . shorten 80 } -- key bindings stuff defKeys = keys defaultConfig - newKeys x = foldr (uncurry M.insert) (delKeys x) (toAdd x) delKeys x = foldr M.delete (defKeys x) (toRemove x) + newKeys x = foldr (uncurry M.insert) (delKeys x) (toAdd x) -- remove some of the default key bindings toRemove x = [ (modMask x , xK_j ) @@ -85,20 +88,20 @@ arossatoConfig = defaultConfig ] -- These are my personal key bindings toAdd x = - [ ((modMask x , xK_F12 ), xmonadPrompt defaultXPConfig ) - , ((modMask x , xK_F3 ), shellPrompt defaultXPConfig ) - , ((modMask x , xK_F4 ), sshPrompt defaultXPConfig ) - , ((modMask x , xK_F5 ), windowPromptGoto defaultXPConfig ) - , ((modMask x .|. shiftMask , xK_F5 ), windowPromptBring defaultXPConfig ) - , ((modMask x , xK_comma ), prevWS ) - , ((modMask x , xK_period), nextWS ) - , ((modMask x , xK_Right ), windows W.focusDown ) - , ((modMask x , xK_Left ), windows W.focusUp ) + [ ((modMask x , xK_F12 ), xmonadPrompt defaultXPConfig ) + , ((modMask x , xK_F3 ), shellPrompt defaultXPConfig ) + , ((modMask x , xK_F4 ), sshPrompt defaultXPConfig ) + , ((modMask x , xK_F5 ), windowPromptGoto defaultXPConfig ) + , ((modMask x .|. shiftMask, xK_F5 ), windowPromptBring defaultXPConfig ) + , ((modMask x , xK_comma ), prevWS ) + , ((modMask x , xK_period), nextWS ) + , ((modMask x , xK_Right ), windows W.focusDown ) + , ((modMask x , xK_Left ), windows W.focusUp ) -- other stuff: launch some useful utilities - , ((modMask x , xK_F2 ), spawn "urxvt -fg white -bg black +sb" ) - , ((modMask x .|. shiftMask , xK_F4 ), spawn "~/bin/dict.sh" ) - , ((modMask x .|. shiftMask , xK_F5 ), spawn "~/bin/urlOpen.sh" ) - , ((modMask x , xK_c ), kill ) - , ((modMask x .|. shiftMask , xK_comma ), sendMessage (IncMasterN 1 ) ) - , ((modMask x .|. shiftMask , xK_period), sendMessage (IncMasterN (-1)) ) + , ((modMask x , xK_F2 ), spawn "urxvt -fg white -bg black +sb") + , ((modMask x .|. shiftMask, xK_F4 ), spawn "~/bin/dict.sh" ) + , ((modMask x .|. shiftMask, xK_F5 ), spawn "~/bin/urlOpen.sh" ) + , ((modMask x , xK_c ), kill ) + , ((modMask x .|. shiftMask, xK_comma ), sendMessage (IncMasterN 1 ) ) + , ((modMask x .|. shiftMask, xK_period), sendMessage (IncMasterN (-1)) ) ] |