From 738df74921f796f4cc396b6d58de7c6b426ae6f3 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 12 Oct 2019 15:36:36 +0100
Subject: xmobar-exwm with a toggled music monitor

---
 src/lib/Monitors.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/lib/Monitors.hs')

diff --git a/src/lib/Monitors.hs b/src/lib/Monitors.hs
index 0dbe8b1..42f0966 100644
--- a/src/lib/Monitors.hs
+++ b/src/lib/Monitors.hs
@@ -58,8 +58,8 @@ multiCPU p = MultiCpu (p <~> ["-t", "<autototal>"
                              , "-p", "3", "-a", "l"]) 10
 
 cpuBars p = MultiCpu (mkArgs p
-                             ["--template" , "  <autoipat> <total>%"
-                               , "-L", "50", "--H", "85"]
+                             ["--template" , "<autoipat> <total>%"
+                               , "-L", "50", "-H", "85", "-w", "2"]
                              ["--fallback-icon-pattern", "<icon=load_%%.xpm/>"
                              , "--contiguous-icons"])
             10
@@ -124,16 +124,16 @@ diskU p =
         (p <~> ["-L", "20", "-H", "70", "-m", "1", "-p", "3"])
         20
 
+diskArgs p = mkArgs p
+                ["-f", "░", "-b", " ", "-L", "200000", "-H" , "10000000"
+                , "-W", "5", "-w", "5", "-p", "3"]
+                ["--total-icon-pattern", "<icon=load_%%.xpm/>"]
+
 diskIO p =
   DiskIO [("nvme0n1p2"
 --          , "<fn=1>⎗</fn> <readb> <fn=1>⎘</fn> <writeb> <fn=1><totalbbar></fn>")
           , "<readb> <writeb> <fn=0><totalbipat></fn>")
-         ]
-        (mkArgs p
-                ["-f", "░", "-b", " ", "-L", "200000", "-H" , "10000000"
-                , "-W", "5", "-w", "5", "-p", "3"]
-                ["--total-icon-pattern", "<icon=load_%%.xpm/>"])
-         10
+         ] (diskArgs p) 10
 
 -- <fn=1>📨 🖅 🖃 📩 ✉ </fn>
 mbox = MBox [ ("L", "/var/mail/jao", "grey60")
@@ -176,7 +176,7 @@ kbd = Kbd [("us", ""), ("us(intl)", "   ⃣")]
 brightness = Brightness ["--", "-D", "intel_backlight"] 10
 brightness' = Brightness ["--", "-D", "amdgpu_bl0", "-C", "brightness"] 10
 
-memory = Memory ["-t","<available> M", "-p", "2", "w", "7"] 20
+memory = Memory ["-t","<available> M", "-p", "2", "-W", "7"] 20
 
 tun0 = Network "tun0" ["-t", "<dev>:", "-x", ""] 20
 
-- 
cgit v1.2.3