racial conflict again

This commit is contained in:
Sakooooo 2023-07-25 01:27:55 +03:00
parent c9e872f687
commit 74e2677939
Signed by: sako
GPG key ID: 3FD715D87D7725E0

View file

@ -257,14 +257,14 @@ myLogHook h = dynamicLogWithPP $ def {
ppOrder = \(ws:_) -> [ws] ppOrder = \(ws:_) -> [ws]
} }
xmobarFormat = def { myXmobarFormat = def {
ppCurrent = xmobarColor "black" "white", ppCurrent = xmobarColor "black" "white",
ppOutput = hPutStrLn h, ppOutput = hPutStrLn h,
ppExtras = [], ppExtras = [],
ppOrder = \(ws:_) -> [ws] ppOrder = \(ws:_) -> [ws]
} }
statusBar = statusBarProp "xmobar" (pure xmobarFormat) myStatusBar= statusBarProp "xmobar" (pure myXmobarFormat)
------------------------------------------------------------------------ ------------------------------------------------------------------------
-- Startup hook -- Startup hook
@ -287,7 +287,7 @@ myStartupHook = do
-- --
main = do main = do
h <- spawnPipe "xmobar" h <- spawnPipe "xmobar"
xmonad $ withEasySB statusBar $ defaults { xmonad $ withEasySB myStatusBar $ defaults {
layoutHook = avoidStruts $ layoutHook def, layoutHook = avoidStruts $ layoutHook def,
logHook = myLogHook h, logHook = myLogHook h,