Playing with colors

1 files changed, 34 insertions, 23 deletions

diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index c0a890c..daa59b7 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -48,7 +48,7 @@ topProc' p = TopProc (p <~> ["-t" , "<mboth1>  <mboth2>  <mboth3> \
                                    \· <both1>  <both2>  <both3>"
                            , "-w", "10", "-L" , "10", "-H", "80"]) 15
 
-wireless p n = Wireless n (p <~> ["-t" , "<essid> <quality>"
+wireless p n = Wireless n (p >~< ["-t" , "<essid> <quality>"
                                  , "-W", "5", "-M", "15" , "-m", "3"
                                  , "-L", "20", "-H", "80"]) 20
 
@@ -91,24 +91,25 @@ weather st p =
            , ("partly cloudy", "<fn=3>⛅</fn>")
            , ("mostly cloudy", "<fn=3>☁</fn>")
            , ("considerable cloudiness", "<fn=4>⛈</fn>")]
-           (p <~> ["-t", "<skyConditionS> <tempC>° <rh>%  <windKmh>"
+           (p <~> ["-t", "<skyConditionS> <tempC>° <rh>% <windKmh> (<hour>)"
                   , "-L","10", "-H", "25"])
            18000
 
 batt p =
   BatteryN ["BAT0"]
-           ["-t", "<acstatus> <left>%"
+           ["-t", "<acstatus> <left>"
            , "-S", "Off", "-d", "0", "-m", "3"
            , "-L", "10", "-H", "90", "-p", "3"
            , "--low", (pHigh p), "--normal", (pNormal p), "--high", (pLow p)
            , "--"
+           , "-P"
            , "-a", "notify-send -u critical 'Battery running out!!!!!!'"
            , "-A", "7"
            , "-i", "<fn=2>\9211</fn>"
            , "-O", " <fn=2>\9211</fn> <timeleft> <watts>"
            , "-o", " <fn=2>🔋</fn> <timeleft> <watts>"
-           , "-H", "16", "-L", "10"
-           , "-h", "sienna4", "-l", "gray20"] 50 "batt0"
+           , "-H", "10", "-L", "7"
+           , "-h", (pHigh p), "-l", (pLow p)] 50 "batt0"
 
 avgCoretemp p =
   MultiCoreTemp (p <~> ["-t", "<avg>°"
@@ -119,7 +120,7 @@ coreTemp p =
                        , "-L", "50", "-H", "75", "-d", "0"]) 50
 
 diskU p =
-  DiskU [("nvme0n1p2", "<used>") , ("/media/sdb", " s <used>")]
+  DiskU [("/home", "<used>") , ("/media/sdb", " s <used>")]
         (p <~> ["-L", "20", "-H", "70", "-m", "1", "-p", "3"])
         20
 
@@ -135,23 +136,33 @@ 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"
+-- 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/inbox", pHigh p)
+               , ("S", "bigml/support", "")
+               ]
+               ["-d", "~/var/maildir", "-p", " ", "-s", " "]
+               "mail"
 
 -- mail = Mail [ ("<fc=darkseagreen4><fn=2>🖃 </fn></fc>", "~/var/maildir/jao/inbox")
 --             , ("<fc=darkseagreen3><fn=2>🖃 </fn></fc>", "~/var/maildir/jao/geiser")