summaryrefslogtreecommitdiffhomepage
path: root/src/lib/Monitors.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/lib/Monitors.hs')
-rw-r--r--src/lib/Monitors.hs28
1 files changed, 7 insertions, 21 deletions
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", "")
]