diff --git a/nix/configurations/vanadium/home/xmobar/xmobar.hs b/nix/configurations/vanadium/home/xmobar/xmobar.hs index 171eb21c..8e5a1890 100644 --- a/nix/configurations/vanadium/home/xmobar/xmobar.hs +++ b/nix/configurations/vanadium/home/xmobar/xmobar.hs @@ -1,7 +1,9 @@ import Xmobar import Data.Function ((&)) +import Data.List (intercalate) +config :: Config config = defaultConfig { overrideRedirect = False @@ -10,7 +12,10 @@ config = , fgColor = "#FFFFFF" , position = BottomH 30 , commands = - [ Run $ Date "%a %d %H:%M:%S" "date" (1 &second) + [ Run $ Date "%a %d %H:%M:%S" "hereClock" (1 &second) + , Run $ DateZone "%H:%M" "" "America/Aruba" "arubaClock" (1 &second) + , Run $ DateZone "%H:%M" "" "Europe/Paris" "cetClock" (1 &second) + , Run $ DateZone "%H:%M" "" "Asia/Taipei" "tstClock" (1 &second) , Run $ Com "tomorrow" @@ -38,7 +43,7 @@ config = , Run $ Weather "LFRN" - [ "-t", ": C" + [ "-t", ": °C" , "-L","10", "-H", "25" , "--normal", "white" , "--high", "orange" @@ -48,7 +53,20 @@ config = ] , sepChar = "%" , alignSep = "}{" - , template = " %XMonadLog% }{ %LFRN% | %battery%, %powerprofilesctl%) | %date%, j%tomorrow% " + , template = + " %XMonadLog% " + <> alignSep config + <> intercalate "|" + [ unwords + [ "[Aruba: %arubaClock%]" + , "[CET: %cetClock%]" + , "[TST: %tstClock%]" + ] + <> " " + , " %LFRN% " + , " %battery%, %powerprofilesctl%) " + , " %hereClock% (j%tomorrow%) " + ] } second :: Int -> Int