fix logMode

This commit is contained in:
♥ Minnie ♥ 2025-05-11 23:33:22 +08:00
parent 10c23160e0
commit b4d5c1bcd2
Signed by: jasmine
GPG key ID: 8563E358D4E8040E

View file

@ -218,14 +218,17 @@ myXmobarPP :: PP
myXmobarPP = def
{ ppSep = grey0 " "
, ppCurrent = blue . wrap " " ""
, ppTitle = grey2 . wrap " " "" . shorten 32
, ppVisible = purple . wrap " " ""
, ppHidden = grey0 . wrap " " ""
, ppHiddenNoWindows = grey0 . wrap " " ""
, ppUrgent = red . wrap " " ""
, ppLayout = aqua . wrap (grey0 " <fn=1>[</fn> ") (grey0 " <fn=1>]</fn> ")
, ppOrder = \[ws, l, _, mode] -> [ws, l, mode]
, ppExtras = [logMode]
, ppOrder = \case { [ws, l, title, mode] -> [ws, l, mode, title]; xs -> xs }
, ppExtras = [lMode]
}
where
lMode = xmobarColorL "#a89984" "#282828" . wrapL "[" "]" $ logMode
--