twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 22:21:54 -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
Download Patch File Download Diff File Expand all files Collapse all files

5
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 )