This commit is contained in:
Sakooooo 2023-08-03 14:53:55 +03:00
parent 7f6a820af2
commit 4647245fc2
Signed by: sako
GPG key ID: 3FD715D87D7725E0

View file

@ -252,7 +252,7 @@ myLogHook :: Handle -> X ()
myLogHook h = dynamicLogWithPP $ def { myLogHook h = dynamicLogWithPP $ def {
ppOutput = hPutStrLn h, ppOutput = hPutStrLn h,
ppExtras = [], ppExtras = [],
ppOrder = \(ws:_) -> [ws] ppOrder = \[ws, l, _] -> [ws, l],
} }
myXmobarFormat = def { myXmobarFormat = def {
@ -263,7 +263,7 @@ myXmobarFormat = def {
ppHiddenNoWindows = lowWhite . wrap " " "", ppHiddenNoWindows = lowWhite . wrap " " "",
ppUrgent = red . wrap (yellow "!") (yellow "!"), ppUrgent = red . wrap (yellow "!") (yellow "!"),
-- ppOrder = \(ws:_) -> [ws], -- ppOrder = \(ws:_) -> [ws],
ppOrder = \[ws, l, _] -> [ws, l], ppOrder = \[ws, l, _, wins] -> [ws, l, wins]
ppExtras = [logTitles formatFocused formatUnfocused] ppExtras = [logTitles formatFocused formatUnfocused]
} }
where where