From e8f3969bd44ef71bf479693e32f07f356278c47c Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 25 Feb 2021 22:08:48 +0000
Subject: weather and transparency

---
 src/lib/Monitors.hs | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'src/lib/Monitors.hs')

diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index adc0ae9..c96666c 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -76,7 +76,6 @@ dynNetwork p = DynNetwork (p <~> ["-t", fn 1 "↑ " ++ "<tx>  " ++ fn 1 "↓" ++
 uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S"
                          , "On" , "-L", "10", "-H", "100"]) 600
 
--- 🌧
 weather' tmp st p =
   WeatherX st
            [ ("", fc (pDim p) $ fni "\xf185")
@@ -91,7 +90,13 @@ weather' tmp st p =
            , ("overcast", fn 3 "☁")
            , ("partly cloudy", fn 3 "⛅")
            , ("mostly cloudy", fn 3 "☁")
-           , ("considerable cloudiness", fn 4 "⛈")]
+           , ("considerable cloudiness", fn 4 "⛈")
+           , ("light rain", fn 4 "🌧")
+           , ("rain", fn 4 "⛆")
+           , ("ice crystals", fn 3 "❄")
+           , ("light snow", fn 3 "🌨")
+           , ("snow", fn 3 "❄")
+           ]
            (mkArgs p ["-t", tmp , "-L","10", "-H", "25"] ["-w", ""])
            18000
 
-- 
cgit v1.2.3