diff --git a/config/xmonad/xmonad.hs b/config/xmonad/xmonad.hs index 4732b3ff..43126529 100644 --- a/config/xmonad/xmonad.hs +++ b/config/xmonad/xmonad.hs @@ -235,7 +235,8 @@ myEventHook = mempty -- Perform an arbitrary action on each internal state change or X event. -- See the 'XMonad.Hooks.DynamicLog' extension for examples. -- -myLogHook = return () +myLogHook :: Handle -> X () +myLogHook h = dynamicLogWithPP $ def { ppOutput = hPutStrLn h } ------------------------------------------------------------------------ -- Startup hook @@ -254,8 +255,10 @@ myStartupHook = do -- Run xmonad with the settings you specify. No need to modify this. -- main = do - xmproc <- spawnPipe "xmobar" - xmonad defaults + h <- spawnPipe "xmobar" + xmonad defaults { + logHook = myLogHook h + } -- A structure containing your configuration settings, overriding -- fields in the default config. Any you don't override, will