summaryrefslogtreecommitdiffhomepage
path: root/src/TopC.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/TopC.hs')
-rw-r--r--src/TopC.hs27
1 files changed, 6 insertions, 21 deletions
diff --git a/src/TopC.hs b/src/TopC.hs
index 9aea28e..f2fa458 100644
--- a/src/TopC.hs
+++ b/src/TopC.hs
@@ -1,7 +1,7 @@
import Xmobar
import Config
import Monitors
-import Music (mpris, gpmd)
+import Music (mpris, gpmd, mpdt)
topProcL p = TopProc (p <~> ["-t"
, "<both1> <both2> <both3> <mboth1> <mboth2> "
@@ -11,32 +11,17 @@ diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")]
mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t", " <remaining>"] 10
-mpdt light =
- if light
- then "<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>"
- else "<ppos>/<plength> \
- \<fn=0><title></fn> \
- \<fn=0><fc=darkseagreen><album></fc></fn> \
- \<fn=0><fc=darkseagreen4><artist></fc> \
- \<fc=burlywood4><composer></fc> <date></fn>"
-
-autoMPD light = AutoMPD [ "-T", "110", "-E", "…", "-W", "10", "-t" , mpdt light]
+autoMPD light = AutoMPD [ "-T", "110", "-E", "…", "-W", "10", "-t" ,
+ " <remaining> " ++ mpdt light]
ompd light =
- MPD [ "-T", "120", "-W", "10", "-E", "…", "-t", tm, "--", "-p", "6669"] 20
+ MPD [ "-T", "120", "-W", "10", "-E", "…", "-t", tm, "--", "-p", "6600"] 20
where tm = " <remaining> " ++ mpdt light
compMPD light = concatMonitor " " mpd (autoMPD light)
mpn = "spotify"
--- music light = toggleMonitor "/tmp/mpris.st" (mpris mpn 120) (compMPD light)
--- music light = toggleMonitor "/tmp/mpris.st" gpmd (compMPD light)
--- music light = toggleMonitor "/tmp/mpris.st" (compMPD light) (ompd light)
-music light = toggleMonitor "/tmp/mpris.st" (mpris mpn 120) (ompd light)
--- music light = ompd light
+-- music light = toggleMonitor "/tmp/mpris.st" (mpris mpn 120) (autoMPD light)
+music = ompd
-- <fn=1> 💡 </fn>
config p = (baseConfig p) {