From e3c13e5350291f43c94a1ad3dd323cd50b9438f9 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 5 Mar 2022 01:04:21 +0000
Subject: alternatives for exwm/xmonad

---
 src/TopC.hs | 30 +++++++++++++++++++++++-------
 1 file changed, 23 insertions(+), 7 deletions(-)

diff --git a/src/TopC.hs b/src/TopC.hs
index 01615f5..9eb838e 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -15,8 +15,9 @@ topProcL p = TopProc (p <~> ["-t"
 
 diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")]
                    (diskArgs p) 10
-diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")]
-                   (diskArgs p) 10
+
+diskIOS p = DiskIO [("/", "<read> <write>")] (diskArgs p) 10
+
 mpd a p i =
   MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", "<statei> <remaining>"
        , "--", "-p", p, "-P", fni "\xf144", "-Z", fni i, "-S", fni i] 20 a
@@ -24,11 +25,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)]
+mail' p = MailX [ ("J", "jao.inbox", pHigh p)
+                , ("H", "jao.hacking", "")
+                , ("b", "bigml.bugs", pHigh p)
+                , ("B", "bigml.inbox", "")
+                , ("S", "bigml.support", "")
+                -- , ("W", "bigml.drivel", pLow p)
+                -- , ("l", "bigml.lists", pLow p)
+                -- , ("D", "jao.drivel", pLow p)
+                -- , ("F", "feeds", pLow p)
+                -- , ("E", "feeds.emacs", pLow p)
+                -- , ("P", "feeds.prog", pLow p)
+                -- , ("w", "feeds.words", pLow p)
+                ]
           [ "-d", "~/var/mail" , "-s", " "] "mail"
 
+mail'' p = MailX [] [ "-d", "~/var/mail" , "-s", " "] "mail"
 
 config p = (baseConfig p) {
   position = TopSize C 100 (defaultHeight - 1)
@@ -39,11 +51,11 @@ config p = (baseConfig p) {
   , alpha = 192
   , border = FullB
   , commands = [ Run (topProcL p)
-               , Run (mail' p)
+               , Run ((if isXmonad then mail' else mail'') p)
                , Run (iconBatt p)
                , Run mpdMon
                , Run (NamedXPropertyLog "_EMACS_LOG" "elog")
-               , Run (NamedXPropertyLog "_XMONAD_TRAYPAD" "tray")
+               , tray
                , if pIsLight p then Run (cpu p) else  Run (cpuBars p)
                , Run memoratio
                , Run (diskU p)
@@ -88,6 +100,10 @@ config p = (baseConfig p) {
              ++ "|laTime| "
   } where dimi = fc (pDim p) . fni
           w = weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p
+          isXmonad = pWm p == Just "xmonad"
+          tray = if isXmonad
+                 then Run (NamedXPropertyLog "_XMONAD_TRAYPAD" "tray")
+                 else Run trayPadding
 
 main :: IO ()
 main = palette >>= configFromArgs . config >>= xmobar
-- 
cgit v1.2.3