From 74f2ff84d03a491046d27c10f6a46b284fac2d8a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 13 Nov 2020 02:55:07 +0000
Subject: nits

---
 src/TopC.hs         | 4 ++--
 src/lib/Config.hs   | 2 +-
 src/lib/Monitors.hs | 9 ++-------
 3 files changed, 5 insertions(+), 10 deletions(-)

(limited to 'src')

diff --git a/src/TopC.hs b/src/TopC.hs
index 5c9964e..e2f4891 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -66,8 +66,8 @@ config p = (baseConfig p) {
   , template = " "
              ++ "|batt0| "
              ++ dimi "\xf26c" ++ " |bright| "
-             ++ "<action=`toggle-app.sh nm-applet`> |proton0||wlp1s0wi|</action> "
-             ++ "|dynnetwork| "
+             ++ "<action=`toggle-app.sh nm-applet`> |proton0||wlp1s0wi|</action>"
+             ++ " |dynnetwork| "
              ++ "<action=`toggle-app.sh pasystray`>"
              ++ " |default:Master| " ++ dimi "\xf130" ++ " |default:Capture|"
              ++ "</action> "
diff --git a/src/lib/Config.hs b/src/lib/Config.hs
index 6f2ee37..a4e5b2d 100644
--- a/src/lib/Config.hs
+++ b/src/lib/Config.hs
@@ -65,7 +65,7 @@ darkPalette = Palette { pNormal = zenburnFg
                       , pBorder = "black" -- zenburnBackLight
                       , pForeground = zenburnFg
                       , pBackground = doomBack -- zenburnBack
-                      , pAlpha = 0
+                      , pAlpha = 255
                       , pIconRoot = icons "dark"
                       , pIsLight = False
                       }
diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index ddea7e5..1441cf9 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -166,17 +166,12 @@ mail p = MailX [ ("I", "jao/inbox", pHigh p)
                , ("B", "bigml/inbox", pHigh p)
                , ("b", "bigml/bugs", pHigh p)
                , ("S", "bigml/support", "")
+               , ("L", "bigml/lists", pDim p)
                , ("G", "jao/geiser", "")
                , ("X", "jao/xmobar", "")
-               , ("e", "feeds/emacs", pDim p)
-               , ("p", "feeds/papers", pDim p)
-               , ("l", "feeds/lobsters", pDim p)
-               , ("c", "feeds/computers", pDim p)
-               , ("n", "feeds/news", pDim p)
-               , ("L", "bigml/lists", pDim p)
                ]
                [ "-d", "~/var/mail"
-               , "-p", fc (pLow p) (fni "\xf01c" ++ " ")
+               , "-p", fc (pHigh p) $ fn 1 "⎘  " -- fc (pLow p) (fni "\xf01c" ++ " ")
                , "-s", " "
                ]
                "mail"
-- 
cgit v1.2.3