From 318ce5d54950aea41bb2f3bfce73658a03bc691a Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Thu, 5 Dec 2019 01:16:59 +0000
Subject: little tweaks for xmobar-exwm

---
 src/lib/Music.hs | 3 +++
 1 file changed, 3 insertions(+)

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

diff --git a/src/lib/Music.hs b/src/lib/Music.hs
index 304a1fc..0fdb87c 100644
--- a/src/lib/Music.hs
+++ b/src/lib/Music.hs
@@ -4,6 +4,7 @@ import Xmobar
 import Monitors
 import qualified Bottom
 import Config (defaultHeight)
+import GMPDP (GMPDP(..))
 
 mpris client width =
   Mpris2 client -- "clementine" --
@@ -33,6 +34,8 @@ mpdConfig p = (Bottom.config [Run mpd, Run (autoMPD "150")] "|mpd| |autompd|" p)
 compMPD = concatMonitor " " mpd (autoMPD "150")
 alt x = altMonitor (mpris x 165) compMPD
 
+gpmd = Run (GMPDP "gmpdp")
+
 config cl =
   if cl == "mpd"
   then mpdConfig
-- 
cgit v1.2.3