work now please

This commit is contained in:
Sakooooo 2023-07-23 15:54:05 +03:00
parent 4acb526076
commit 9f31a359a7
Signed by: sako
GPG key ID: 3FD715D87D7725E0

View file

@ -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