we add only worik space
This commit is contained in:
parent
b5a70e5dcf
commit
5a16af5fbc
|
@ -245,7 +245,11 @@ myEventHook = mempty
|
||||||
-- See the 'XMonad.Hooks.DynamicLog' extension for examples.
|
-- See the 'XMonad.Hooks.DynamicLog' extension for examples.
|
||||||
--
|
--
|
||||||
myLogHook :: Handle -> X ()
|
myLogHook :: Handle -> X ()
|
||||||
myLogHook h = dynamicLogWithPP $ def { ppOutput = hPutStrLn h }
|
myLogHook h = dynamicLogWithPP $ def {
|
||||||
|
ppOutput = hPutStrLn h,
|
||||||
|
ppExtras = [],
|
||||||
|
ppOrder = \(ws:_) -> [ws]
|
||||||
|
}
|
||||||
|
|
||||||
------------------------------------------------------------------------
|
------------------------------------------------------------------------
|
||||||
-- Startup hook
|
-- Startup hook
|
||||||
|
|
Loading…
Reference in a new issue