From 974409e73556984ceeb1c5cb2e9a1b4bf944dc7a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Tue, 20 Aug 2024 15:09:59 +0100
Subject: weather icons

---
 lib/Monitors.hs | 64 ++++++++++++++++++++++++++++++++++++++-------------------
 1 file changed, 43 insertions(+), 21 deletions(-)

(limited to 'lib/Monitors.hs')

diff --git a/lib/Monitors.hs b/lib/Monitors.hs
index 0b65af0..1444305 100644
--- a/lib/Monitors.hs
+++ b/lib/Monitors.hs
@@ -50,34 +50,55 @@ cpuFreq p = CpuFreq (p <~> ["-t" , "<avg> <max> <min> <cpu0> <cpu1> <cpu2> <cpu3
 uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S"
                          , "On" , "-L", "10", "-H", "100"]) 600
 
+-- https://erikflowers.github.io/weather-icons/
 weather' tmp st p =
   WeatherX st
-           [ ("", "\129695")
-           , ("clear", "🔆")
-           , ("sunny", "🔆")
-           , ("fair", "🔆")
-           , ("mostly clear", "🌤️")
-           , ("mostly sunny", "🌤️")
-           , ("partly sunny", "⛅")
-           , ("obscured", "🌁")
-           , ("fog", "🌫️")
-           , ("foggy", "🌫️")
-           , ("cloudy", "☁️")
-           , ("overcast", "☁️")
-           , ("partly cloudy", "⛅")
-           , ("mostly cloudy", "☁️")
-           , ("considerable cloudiness", "🌂")
-           , ("light rain", "🌦️")
-           , ("rain", "🌨️")
-           , ("ice crystals", "❄️")
-           , ("light snow", "🌨️")
-           , ("snow", "❄️")
+           [ -- ("", "\129695")
+           -- , ("clear", "🔆")
+           -- , ("sunny", "🔆")
+           -- , ("fair", "🔆")
+           -- , ("mostly clear", "🌤️")
+           -- , ("mostly sunny", "🌤️")
+           -- , ("partly sunny", "⛅")
+           -- , ("obscured", "🌁")
+           -- , ("fog", "🌫️")
+           -- , ("foggy", "🌫️")
+           -- , ("cloudy", "☁️")
+           -- , ("overcast", "☁️")
+           -- , ("partly cloudy", "⛅")
+           -- , ("mostly cloudy", "☁️")
+           -- , ("considerable cloudiness", "🌂")
+           -- , ("light rain", "🌦️")
+           -- , ("rain", "🌨️")
+           -- , ("ice crystals", "❄️")
+           -- , ("light snow", "🌨️")
+           -- , ("snow", "❄️")
+             ("", "\xf054")
+           , ("clear", "\xf00d")
+           , ("sunny", "\xf00d")
+           , ("fair", "\xf00d")
+           , ("mostly clear", "\xf00c")
+           , ("mostly sunny", "\xf00c")
+           , ("partly sunny", "\xf00c")
+           , ("obscured", "\xf063")
+           , ("fog", "\xf014")
+           , ("foggy", "\xf014")
+           , ("cloudy", "\xf041")
+           , ("overcast", "\xf041")
+           , ("partly cloudy", "\xf083")
+           , ("mostly cloudy", "\xf013")
+           , ("considerable cloudiness", "\xf002")
+           , ("light rain", "\xf01c")
+           , ("rain", "\xf019")
+           , ("ice crystals", "\xf077")
+           , ("light snow", "\xf01b")
+           , ("snow", "\xf01b")
            ]
            (mkArgs p ["-t", tmp , "-L", "10", "-H", "25" , "-T", "20"]
                      ["-w", ""])
            18000
 
-weather = weather' "<skyConditionS> <tempC>°  <windKmh> <weather>"
+weather = weather' "<fn=2><skyConditionS></fn> <tempC>°  <windKmh> <weather>"
 
 -- "https://wttr.in?format=" ++ fnn 3 "%c" ++ "+%t+%C+%w++" ++ fnn 1 "%m"
 -- , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000)
@@ -198,6 +219,7 @@ masterAlsa p =
 
 captureAlsa = Alsa "default" "Capture" ["-t", "<volume>"]
 
+-- kbd p = Kbd [("us", "us"), ("us(intl)", "es")] -- kbi pDim
 kbd p = Kbd [("us", ""), ("us(intl)", kbi pHigh)] -- kbi pDim
   where kbi a = fc (a p) (fn 1 " \xf11c")
 
-- 
cgit v1.2.3