twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

Arossato: just code formattings

Browse Source
This commit is contained in:
Andrea Rossato 2007-11-14 13:53:52 +00:00
parent 4323d659d3
commit 85952e9e53
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
XMonad/Config/Arossato.hs
View File

@ -64,16 +64,19 @@ arossatoConfig = defaultConfig
, defaultGaps = [(15,0,0,0)] , defaultGaps = [(15,0,0,0)]
} }
where where
-- layouts
mytab = tabbed shrinkText myTabConfig mytab = tabbed shrinkText myTabConfig
tiled = Tall 1 0.03 0.5 tiled = Tall 1 0.03 0.5
-- the logHook pretty-printer
myPP = defaultPP { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]" myPP = defaultPP { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]"
, ppTitle = xmobarColor "green" "" . shorten 80 , ppTitle = xmobarColor "green" "" . shorten 80
} }
-- key bindings stuff -- key bindings stuff
defKeys = keys defaultConfig defKeys = keys defaultConfig
newKeys x = foldr (uncurry M.insert) (delKeys x) (toAdd x)
delKeys x = foldr M.delete (defKeys x) (toRemove 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 -- remove some of the default key bindings
toRemove x = toRemove x =
[ (modMask x , xK_j ) [ (modMask x , xK_j )
@ -85,20 +88,20 @@ arossatoConfig = defaultConfig
] ]
-- These are my personal key bindings -- These are my personal key bindings
toAdd x = toAdd x =
[ ((modMask x , xK_F12 ), xmonadPrompt defaultXPConfig ) [ ((modMask x , xK_F12 ), xmonadPrompt defaultXPConfig )
, ((modMask x , xK_F3 ), shellPrompt defaultXPConfig ) , ((modMask x , xK_F3 ), shellPrompt defaultXPConfig )
, ((modMask x , xK_F4 ), sshPrompt defaultXPConfig ) , ((modMask x , xK_F4 ), sshPrompt defaultXPConfig )
, ((modMask x , xK_F5 ), windowPromptGoto defaultXPConfig ) , ((modMask x , xK_F5 ), windowPromptGoto defaultXPConfig )
, ((modMask x .|. shiftMask , xK_F5 ), windowPromptBring defaultXPConfig ) , ((modMask x .|. shiftMask, xK_F5 ), windowPromptBring defaultXPConfig )
, ((modMask x , xK_comma ), prevWS ) , ((modMask x , xK_comma ), prevWS )
, ((modMask x , xK_period), nextWS ) , ((modMask x , xK_period), nextWS )
, ((modMask x , xK_Right ), windows W.focusDown ) , ((modMask x , xK_Right ), windows W.focusDown )
, ((modMask x , xK_Left ), windows W.focusUp ) , ((modMask x , xK_Left ), windows W.focusUp )
-- other stuff: launch some useful utilities -- other stuff: launch some useful utilities
, ((modMask x , xK_F2 ), spawn "urxvt -fg white -bg black +sb" ) , ((modMask x , xK_F2 ), spawn "urxvt -fg white -bg black +sb")
, ((modMask x .|. shiftMask , xK_F4 ), spawn "~/bin/dict.sh" ) , ((modMask x .|. shiftMask, xK_F4 ), spawn "~/bin/dict.sh" )
, ((modMask x .|. shiftMask , xK_F5 ), spawn "~/bin/urlOpen.sh" ) , ((modMask x .|. shiftMask, xK_F5 ), spawn "~/bin/urlOpen.sh" )
, ((modMask x , xK_c ), kill ) , ((modMask x , xK_c ), kill )
, ((modMask x .|. shiftMask , xK_comma ), sendMessage (IncMasterN 1 ) ) , ((modMask x .|. shiftMask, xK_comma ), sendMessage (IncMasterN 1 ) )
, ((modMask x .|. shiftMask , xK_period), sendMessage (IncMasterN (-1)) ) , ((modMask x .|. shiftMask, xK_period), sendMessage (IncMasterN (-1)) )
] ]