racial conflict again
This commit is contained in:
parent
c9e872f687
commit
74e2677939
1 changed files with 3 additions and 3 deletions
|
@ -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,
|
||||||
|
|
Loading…
Reference in a new issue