From 2ac800e6ca58a9d104ea3f5319729fe9bf9fc2a7 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 27 Feb 2022 02:18:08 +0000
Subject: mail monitor for simpler maildir structure

---
 src/TopC.hs | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/TopC.hs b/src/TopC.hs
index f9472da..01615f5 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -24,14 +24,22 @@ mpd a p i =
 mpdMon = mpd "mpd" "6600" "\xf001"
 mopMon = mpd "mopidy" "6669" "\xf1bc"
 
+mail' p = MailX [ ("J", "jao", pHigh p)
+                , ("B", "bigml", pHigh p)
+                , ("F", "feeds", pLow p)]
+          [ "-d", "~/var/mail" , "-s", " "] "mail"
+
+
 config p = (baseConfig p) {
   position = TopSize C 100 (defaultHeight - 1)
   , textOffset = defaultHeight - 8
   , textOffsets = [defaultHeight - 9, defaultHeight - 9,
                    defaultHeight - 6, defaultHeight - 8,
                    defaultHeight - 8, defaultHeight - 8]
+  , alpha = 192
   , border = FullB
   , commands = [ Run (topProcL p)
+               , Run (mail' p)
                , Run (iconBatt p)
                , Run mpdMon
                , Run (NamedXPropertyLog "_EMACS_LOG" "elog")
@@ -52,9 +60,10 @@ config p = (baseConfig p) {
                , Run laTime
                , Run localTime
                , Run w -- LEGE, LEBL, KCV0
+--               , Run (mpris p "playerctld" 20)
                ]
   , template = "|tray| "
-             ++ "|batt0| "
+             ++ " |batt0| "
              ++ dimi "\xf26c" ++ " |bright| "
              ++ "<action=`toggle-app.sh nm-applet`>"
              ++ " |wg-mullvad||tun0||wlp164s0wi|"
@@ -64,10 +73,12 @@ config p = (baseConfig p) {
              ++ "  |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|"
              ++ "</action>  "
              ++  "|mpd|"
+--             ++ " |mpris2| "
              ++ " |EGPH| "
              ++ fc (pHigh p) "|elog|"
              ++ " {} "
              ++ "|kbd| "
+             ++ "|mail| "
              ++ "|multicpu| "
              ++ "|multicoretemp| "
              ++ " |top| "
-- 
cgit v1.2.3