From e834e2d5c11866f985cb176acb5264d2c54ef897 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 17 Oct 2021 00:13:33 +0100
Subject: cpu bars look nice in dark mode

---
 src/TopC.hs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/TopC.hs b/src/TopC.hs
index c178250..0a6d88f 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -6,9 +6,13 @@ import Music (mpris, gpmd, mpdt)
 memoratio = Memory ["-t","<usedratio>%", "-p", "2", "-W", "3"] 20
 
 topProcL p = TopProc (p <~> ["-t"
-                            , "<both1> <both2> <both3> <both4>"
+                            , memTemp
                               ++ "  ·  <mboth1> <mboth2> <mboth3> <mboth4>"
                             , "-w", "12", "-L" , "10", "-H", "80"]) 15
+             where memTemp = if pIsLight p
+                             then "<both1> <both2> <both3> <both4>"
+                             else "<both1> <both2> <both3>"
+
 diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")]
                    (diskArgs p) 10
 diskIOS p = DiskIO [("/", "<total>"), ("/home", "<total>")]
@@ -32,7 +36,7 @@ config p = (baseConfig p) {
                , Run mopMon
                , Run (thinkTemp p)
                , Run (NamedXPropertyLog "_EMACS_LOG" "elog")
-               , Run (cpu p)
+               , if pIsLight p then Run (cpu p) else  Run (cpuBars p)
                , Run memoratio
                , Run (diskU p)
                , Run (diskIOS p)
-- 
cgit v1.2.3