primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 14:49:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmobar: factor out color specification

Browse source
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
1 changed files with 17 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

31
nix/configurations/vanadium/home/xmobar/xmobar.hs
View file

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