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

5
XMonad/Config/Arossato.hs
View File

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