From c3c81cf5e642b0ad80b56458b8c1cd4eea10ddd8 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 20 Jun 2020 15:55:25 +0100
Subject: misc

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

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

diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index ff27dd8..26183c5 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -91,8 +91,7 @@ weather' tmp st p =
            , ("partly cloudy", fn 3 "⛅")
            , ("mostly cloudy", fn 3 "☁")
            , ("considerable cloudiness", fn 4 "⛈")]
-           (mkArgs p ["-t", tmp , "-L","10", "-H", "25"]
-                     ["-w", "", "-m", "False"])
+           (mkArgs p ["-t", tmp , "-L","10", "-H", "25"] ["-w", ""])
            18000
 
 weather = weather' "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
@@ -113,6 +112,11 @@ batt p =
            , "-H", "10", "-L", "7"
            , "-h", pHigh p, "-l", pLow p] 50 "batt0"
 
+thinkTemp p =
+  MultiCoreTemp (mkArgs p
+                        ["-t", "<core1>°C", "-L", "40", "-H", "70", "-d", "0"]
+                        []) 50
+
 avgCoretemp p =
   MultiCoreTemp (p <~> ["-t", "<avg>°"
                        , "-L", "50", "-H", "75", "-d", "0"]) 50
@@ -138,28 +142,10 @@ diskIO p =
          ] (diskArgs p) 10
 
 -- <fn=1>📨 🖅 🖃 📩 ✉ </fn>
--- mbox = MBox [ ("L", "/var/mail/jao", "grey60")
---             -- , ("B", "bigml.spool", "sienna4")
---             -- , ("S", "bigsup.spool", "sienna4")
---             -- , ("G", "geiser.spool", "darkseagreen4")
---             -- , ("X", "xmobar.spool", "darkseagreen4")
---             -- , ("g", "gnu.spool", "")
---             -- , ("k", "books.spool", "")
---             ] [] -- ["-p", "<fn=2>📩 </fn>", "-s", ""]
---            "mbox"
-
--- mail = Mail [ ("I", "~/var/maildir/jao/inbox")
---             , ("G", "~/var/maildir/jao/geiser")
---             , ("X", "~/var/maildir/jao/xmobar")
---             , ("B", "~/var/maildir/bigml/inbox")
---             , ("S", "~/var/maildir/bigml/support")
---             ]
---             "mail"
-
 mail p = MailX [ ("I", "jao/inbox", pHigh p)
                , ("G", "jao/geiser", "")
                , ("X", "jao/xmobar", "")
-               , ("g", "jao/gnu", pLow p)
+               , ("b", "bigml/bugs", pHigh p)
                , ("B", "bigml/inbox", pHigh p)
                , ("S", "bigml/support", "")
                ]
-- 
cgit v1.2.3