1 files changed, 21 insertions, 14 deletions
diff --git a/lib/Monitors.hs b/lib/Monitors.hs
index 1444305..7f1c772 100644
--- a/lib/Monitors.hs
+++ b/lib/Monitors.hs
@@ -73,37 +73,42 @@ weather' tmp st p =
            -- , ("ice crystals", "❄️")
            -- , ("light snow", "🌨️")
            -- , ("snow", "❄️")
-             ("", "\xf054")
-           , ("clear", "\xf00d")
-           , ("sunny", "\xf00d")
-           , ("fair", "\xf00d")
+           --  ("", "\xf054")
+           ("clear", "1 \xf00d")
+           , ("sunny", "2 \xf00d")
+           , ("fair", "3 \xf00d")
            , ("mostly clear", "\xf00c")
-           , ("mostly sunny", "\xf00c")
-           , ("partly sunny", "\xf00c")
+           , ("mostly sunny", "5 \xf00c")
+           , ("partly sunny", "6 \xf00c")
            , ("obscured", "\xf063")
-           , ("fog", "\xf014")
+           , ("haze", "\xf063")
+           , ("fog", "\xf04a")
            , ("foggy", "\xf014")
-           , ("cloudy", "\xf041")
+           , ("mist", "\xf014")
+           , ("fog in the vicinity", "\xf014")
+           , ("shallow fog", "\xf04a")
+           , ("cloudy", "10 \xf041")
            , ("overcast", "\xf041")
            , ("partly cloudy", "\xf083")
            , ("mostly cloudy", "\xf013")
-           , ("considerable cloudiness", "\xf002")
+           , ("considerable cloudiness", "14 \xf002")
            , ("light rain", "\xf01c")
            , ("rain", "\xf019")
-           , ("ice crystals", "\xf077")
-           , ("light snow", "\xf01b")
-           , ("snow", "\xf01b")
+           , ("ice crystals", "17 \xf077")
+           , ("light snow", "18 \xf01b")
+           , ("snow", "19 \xf01b")
            ]
            (mkArgs p ["-t", tmp , "-L", "10", "-H", "25" , "-T", "20"]
                      ["-w", ""])
            18000
 
-weather = weather' "<fn=2><skyConditionS></fn> <tempC>°  <windKmh> <weather>"
+weather = weather' $ fn 2 "<weatherS>" ++ " <tempC>° <windKmh>"
 
 -- "https://wttr.in?format=" ++ fnn 3 "%c" ++ "+%t+%C+%w++" ++ fnn 1 "%m"
 -- , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000)
 wttrURL l = "https://wttr.in/" ++ l ++ "?format=" ++ fmt
-  where fmt = fnn 2 "+%c+" ++ "+%t+%C+" ++ fn 5 "%w"
+  where -- fmt = fnn 2 "+%c+" ++ "+%t+%C+" ++ fn 5 "%w"
+        fmt = fnn 0 "%c%t+%w"
         fnn n x = urlEncode ("<fn=" ++ show n ++ ">") ++ x ++ urlEncode "</fn>"
         encode c
           | c == ' ' = "+"
@@ -111,6 +116,8 @@ wttrURL l = "https://wttr.in/" ++ l ++ "?format=" ++ fmt
           | otherwise = Printf.printf "%%%02X" c
         urlEncode = concatMap encode
 
+edinWeather = Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000)
+
 batt p =
   BatteryN ["BAT0"]
            ["-t", "<acstatus> <left>"