From 318ce5d54950aea41bb2f3bfce73658a03bc691a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 5 Dec 2019 01:16:59 +0000
Subject: little tweaks for xmobar-exwm

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

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

diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index daa59b7..d589ce1 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -76,7 +76,7 @@ uptime p = Uptime (p <~> [ "-t" , "<days> <hours>", "-m", "3", "-c", "0", "-S"
                          , "On" , "-L", "10", "-H", "100"]) 600
 
 -- 🌧
-weather st p =
+weather' tmp st p =
   WeatherX st
            [ ("", "<fc=gray60><fn=4>🌑</fn></fc>")
            , ("clear", "<fn=4>🌣</fn>")
@@ -91,10 +91,11 @@ weather st p =
            , ("partly cloudy", "<fn=3>⛅</fn>")
            , ("mostly cloudy", "<fn=3>☁</fn>")
            , ("considerable cloudiness", "<fn=4>⛈</fn>")]
-           (p <~> ["-t", "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
-                  , "-L","10", "-H", "25"])
+           (p <~> ["-t", tmp , "-L","10", "-H", "25"])
            18000
 
+weather = weather' "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
+
 batt p =
   BatteryN ["BAT0"]
            ["-t", "<acstatus> <left>"
@@ -125,7 +126,7 @@ diskU p =
         20
 
 diskArgs p = mkArgs p
-                ["-f", "░", "-b", " ", "-L", "200000", "-H" , "10000000"
+                ["-f", "░", "-b", " ", "-L", "10000000", "-H" , "100000000"
                 , "-W", "5", "-w", "5", "-p", "3"]
                 ["--total-icon-pattern", "<icon=load_%%.xpm/>"]
 
-- 
cgit v1.2.3