work now please
This commit is contained in:
parent
4acb526076
commit
9f31a359a7
1 changed files with 6 additions and 3 deletions
|
@ -235,7 +235,8 @@ myEventHook = mempty
|
||||||
-- Perform an arbitrary action on each internal state change or X event.
|
-- Perform an arbitrary action on each internal state change or X event.
|
||||||
-- See the 'XMonad.Hooks.DynamicLog' extension for examples.
|
-- See the 'XMonad.Hooks.DynamicLog' extension for examples.
|
||||||
--
|
--
|
||||||
myLogHook = return ()
|
myLogHook :: Handle -> X ()
|
||||||
|
myLogHook h = dynamicLogWithPP $ def { ppOutput = hPutStrLn h }
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- Startup hook
|
-- Startup hook
|
||||||
|
@ -254,8 +255,10 @@ myStartupHook = do
|
||||||
-- Run xmonad with the settings you specify. No need to modify this.
|
-- Run xmonad with the settings you specify. No need to modify this.
|
||||||
--
|
--
|
||||||
main = do
|
main = do
|
||||||
xmproc <- spawnPipe "xmobar"
|
h <- spawnPipe "xmobar"
|
||||||
xmonad defaults
|
xmonad defaults {
|
||||||
|
logHook = myLogHook h
|
||||||
|
}
|
||||||
|
|
||||||
-- A structure containing your configuration settings, overriding
|
-- A structure containing your configuration settings, overriding
|
||||||
-- fields in the default config. Any you don't override, will
|
-- fields in the default config. Any you don't override, will
|
||||||
|
|
Loading…
Reference in a new issue