From 0c9f43cbd97617be3d9f82391b2b58398b837b86 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 16 Apr 2022 01:32:48 +0100
Subject: wee tweaks

---
 src/lib/Config.hs   |  2 +-
 src/lib/Monitors.hs | 11 +++++++++--
 2 files changed, 10 insertions(+), 3 deletions(-)

(limited to 'src/lib')

diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 22b077e..1840755 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -80,7 +80,7 @@ darkPalette = Palette { pNormal = zenburnFg
 palette :: IO Palette
 palette = do
   light <- lightTheme
-  wm <- lookupEnv "WM"
+  wm <- lookupEnv "wm"
   let p = if light then lightPalette else darkPalette
   return $ p {pWm = wm}
 
diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index 32e9acb..82e2e48 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -106,7 +106,8 @@ weather' tmp st p =
            , ("light snow", fn 3 "🌨")
            , ("snow", fn 3 "❄")
            ]
-           (mkArgs p ["-t", tmp , "-L","10", "-H", "25"] ["-w", ""])
+           (mkArgs p ["-t", tmp , "-L","10", "-H", "25" , "-T", "25", "-E", ".."]
+                     ["-w", ""])
            18000
 
 weather = weather' "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
@@ -173,6 +174,10 @@ coreTemp p =
   MultiCoreTemp (p <~> ["-t", "<avg>° <max>°"
                        , "-L", "50", "-H", "75", "-d", "0"]) 50
 
+load p =
+  Load (p <~> ["-t" , "<load1> <load5> <load15>", "-L", "1", "-H", "3", "-d", "2"])
+       300
+
 diskU p =
   DiskU [("/", "<used>") , ("/media/sda", " s <used>")]
         (p <~> ["-L", "20", "-H", "70", "-m", "1", "-p", "3"])
@@ -226,7 +231,9 @@ kbd p = Kbd [("us", ""), ("us(intl)", kbi pHigh)] -- kbi pDim
 brightness = Brightness ["--", "-D", "intel_backlight"] 10
 brightness' = Brightness ["--", "-D", "amdgpu_bl0", "-C", "brightness"] 10
 
-memory = Memory ["-t","<available> M", "-p", "2", "-W", "7"] 20
+memory = Memory [ "-t" ,"<used>:<available>"
+                , "-p", "2", "-W", "4","-d", "1"
+                , "--", "--scale", "1024"] 20
 
 netdev name icon =
   Network name ["-t", "<up>", "-x", "", "--", "--up", icon] 20 -- fn 2 "🔐 "
-- 
cgit v1.2.3