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/Music.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

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

diff --git a/src/lib/Music.hs b/src/lib/Music.hs
index 949f13d..fa6e278 100644
--- a/src/lib/Music.hs
+++ b/src/lib/Music.hs
@@ -15,21 +15,22 @@ mpris client =
 mprisConfig client p = Bottom.config [Run (mpris client)] "|mpris2|" p
 
 mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t"
-          , " <lapsed> <fc=honeydew3><fn=5><bar></fn></fc>"] 10
+          , " <lapsed> <fc=honeydew3><fn=5><bar></fn></fc>"] 10 -- fn=5
 
-autoMPD = AutoMPD [ "-T", "150", "-E", "...", "-W", "10", "-t"
-                  , "<length> <ppos>/<plength> \
-                    \<fn=0><fc=darkolivegreen><title></fc></fn> \
-                    \<fn=0><album></fn> \
-                    \<fn=0><fc=dodgerblue4><artist></fc> \
-                    \<fc=burlywood4><composer></fc> <date></fn>"]
 
-mpdConfig p = (Bottom.config [Run mpd, Run autoMPD] "|mpd| |autompd|" p)
+autoMPD l = AutoMPD [ "-T", l, "-E", "...", "-W", "10", "-t"
+                    , "<length> <ppos>/<plength> \
+                      \<fn=0><fc=darkolivegreen><title></fc></fn> \
+                      \<fn=0><album></fn> \
+                      \<fn=0><fc=dodgerblue4><artist></fc> \
+                      \<fc=burlywood4><composer></fc> <date></fn>"]
+
+mpdConfig p = (Bottom.config [Run mpd, Run (autoMPD "150")] "|mpd| |autompd|" p)
   {
   textOffsets = [defaultHeight - 7, defaultHeight - 6]
   }
 
-compMPD = concatMonitor " " mpd autoMPD
+compMPD = concatMonitor " " mpd (autoMPD "150")
 alt x = altMonitor (mpris x) compMPD
 
 config cl =
-- 
cgit v1.2.3