naomi/dots
1
0
Fork 0
mirror of https://github.com/NaomiAmethyst/dots.git synced 2025-08-05 16:48:38 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

reindented xmonad.hs to be more idiomatic

Browse source
This commit is contained in:
David Alexander Majnemer 2009-01-15 22:03:02 -05:00
parent 53b950dfb8
commit 0558ea3878
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
xmonad.hs
View file

@ -32,16 +32,16 @@ myModMask = mod1Mask
main = do
xmproc <- spawnPipe "xmobar"
xmonad $ defaultConfig {
manageHook = manageDocks <+> manageHook defaultConfig,
layoutHook = avoidStruts $ smartBorders $ myLayoutHook,
logHook = dynamicLogWithPP $ xmobarPP {
ppOutput = hPutStrLn xmproc,
ppTitle = xmobarColor "green" ""
},
modMask = myModMask
} `additionalKeys`
[
((myModMask, xK_p), shellPrompt defaultXPConfig { position = Top }),
((myModMask, xK_b), sendMessage ToggleStruts)
xmonad $ defaultConfig
{ manageHook = manageDocks <+> manageHook defaultConfig
, layoutHook = avoidStruts $ smartBorders $ myLayoutHook
, logHook = dynamicLogWithPP $ xmobarPP
{ ppOutput = hPutStrLn xmproc
, ppTitle = xmobarColor "green" ""
}
, modMask = myModMask
}
`additionalKeys`
[ ((myModMask, xK_p), shellPrompt defaultXPConfig { position = Top })
, ((myModMask, xK_b), sendMessage ToggleStruts)
]