From 11594e20fa6e5bfe8f268325b3fe8f53583fd02f Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 20 Jun 2020 16:34:55 +0100
Subject: clean-ups

---
 src/TopC.hs | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

(limited to 'src')

diff --git a/src/TopC.hs b/src/TopC.hs
index 1adef23..12fb0de 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -14,18 +14,12 @@ mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t", " <remaining>"] 10
 autoMPD light = AutoMPD [ "-T", "110", "-E", "…", "-W", "10", "-t" ,
                           " <remaining> " ++ mpdt light]
 
-ompd light =
+pollMPD light =
   MPD [ "-T", "120", "-W", "10", "-E", "…", "-t", tm, "--", "-p", "6600"] 20
   where tm = " <remaining> " ++ mpdt light
 
-compMPD light = concatMonitor " " mpd (autoMPD light)
-mpn = "spotifyd"
--- music light = toggleMonitor "/tmp/mpris.st" (mpris mpn 120) (autoMPD light)
--- music = ompd
--- music l = toggleMonitor "/tmp/mpris.st" (ompd l) (mpris mpn 120)
--- musicPipe = MarqueePipeReader "/tmp/music" (20, 10, "..") "musicpipe"
 musicPipe = PipeReader "/tmp/music" "musicpipe"
-music l = toggleMonitor "/tmp/mpris.st" musicPipe (ompd l)
+music light = toggleMonitor "/tmp/mpris.st" musicPipe (autoMPD light)
 
 -- <fn=1> 💡 </fn>
 config p = (baseConfig p) {
@@ -72,10 +66,9 @@ config p = (baseConfig p) {
              ++ fc "grey60" "|diskio|" ++ " |disku| "
              ++ " |EGPH| "
              ++ fn 2 "🕓  " ++ "|datetime| |laTime| "
-  } where m = music (pIsLight p) -- ompd (pIsLight p) -- (mpris mpn 120) --
+  } where m = music (pIsLight p)
           ma = alias m
           w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p)
 
 main :: IO ()
-main =
-  palette >>= configFromArgs . config >>= xmobar
+main = palette >>= configFromArgs . config >>= xmobar
-- 
cgit v1.2.3