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