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/TopC.hs         | 12 ++++++------
 src/lib/Monitors.hs |  9 +++++++--
 2 files changed, 13 insertions(+), 8 deletions(-)

(limited to 'src')

diff --git a/src/TopC.hs b/src/TopC.hs
index 894fd98..4a190e0 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -61,7 +61,7 @@ config p = (baseConfig p) {
                    defaultHeight - 6, defaultHeight - 8,
                    defaultHeight - 8, defaultHeight - 8]
   , border = FullB
-  , alpha = 255
+  , alpha = 229
   , commands = [ Run (topProcL p)
                , Run m
                , Run (thinkTemp p)
@@ -80,8 +80,8 @@ config p = (baseConfig p) {
                , Run captureVol
                , Run laTime
                , Run localTime
-               -- , Run w -- LEGE, LEBL, KCV0
-               , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000)
+               , Run w -- LEGE, LEBL, KCV0
+               -- , Run (ComX "curl" [wttrURL "Edinburgh"] "" "wttr" 18000)
                ]
   , template = " "
              ++ "|batt0| "
@@ -92,8 +92,8 @@ config p = (baseConfig p) {
              ++ "  |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|"
              ++ "</action>  "
              ++  ma
-             -- ++ " |EGPH| "
-             ++ " |wttr|"
+             ++ " |EGPH| "
+             -- ++ " |wttr|"
              ++ " {} "
              ++ fc (pHigh p) "|elog|"
              ++ "|kbd| "
@@ -108,7 +108,7 @@ config p = (baseConfig p) {
   } where dimi = fc (pDim p) . fni
           m = music
           ma = " |" ++ alias m ++ "| "
---          w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p)
+          w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p)
 
 main :: IO ()
 main = palette >>= configFromArgs . config >>= xmobar
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