vanadium/xmobar: factor out color specification

This commit is contained in:
Primrose 2025-08-26 09:18:36 +08:00
parent 628a3ec647
commit 570e0124f0
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -62,20 +62,23 @@ config =
(15 &minute) (15 &minute)
] ]
, template = , template =
" %XMonadLog% " let
<> alignSep config greyFg x = "<fc=#c9c9c9>" <> x <> "</fc>"
<> intercalate "|" in
[ unwords " %XMonadLog% "
[ "<fc=#c9c9c9>[AUA: %arubaClock%]</fc>" <> alignSep config
, "<fc=#c9c9c9>[DUB: %dublinClock%]</fc>" <> intercalate "|"
, "<fc=#c9c9c9>[CDG: %cetClock%]</fc>" [ (unwords . map greyFg)
, "<fc=#c9c9c9>[TPE: %tstClock%]</fc>" [ "[AUA: %arubaClock%]"
] , "[DUB: %dublinClock%]"
<> " " , "[CDG: %cetClock%]"
, " %RCSS% " , "[TPE: %tstClock%]"
, " %battery%, %powerprofilesctl%) " ]
, " %hereClock% (%tomorrow%) " <> " "
] , " %RCSS% "
, " %battery%, %powerprofilesctl%) "
, " %hereClock% (%tomorrow%) "
]
} }
second :: Int -> Int second :: Int -> Int