part of xmonad.hs

px.hs

main :: IO ()
main = do
  initCapturing
  xmproc <- spawnPipe xmobar_run
  xmonad $ defaultConfig
    { borderWidth        = 7
    , focusFollowsMouse  = False
    , focusedBorderColor = orangeDarkestColor
    , keys               = liftM2 union myKeys (keys defaultConfig)
    , layoutHook         = myLayoutHook
    , logHook            = myLogHook xmproc
    , manageHook         = manageDocks <+> manageHook defaultConfig { startupHook = myStartupHook } <+> myManageHook
    , modMask            = mod4Mask
    , normalBorderColor  = blackDarkColor
    , terminal           = myTerminal
    , workspaces         = myWorkspaces
    }

myStartupHook :: X ()
myStartupHook = setWMName "LG3D"