From 2920615ab5d902b51d9ddc82cbd39ab5e6279814 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 23 Dec 2017 03:19:34 +0100
Subject: Honouring NAString in MPris (-x switch) monitor

Should fix issue #325
---
 src/Plugins/Monitors/Mpris.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Plugins/Monitors/Mpris.hs b/src/Plugins/Monitors/Mpris.hs
index 0228c8e..ed76dc9 100644
--- a/src/Plugins/Monitors/Mpris.hs
+++ b/src/Plugins/Monitors/Mpris.hs
@@ -85,7 +85,9 @@ dbusClient = unsafePerformIO DC.connectSession
 runMPRIS :: (MprisVersion a) => a -> String -> [String] -> Monitor String
 runMPRIS version playerName _ = do
     metadata <- io $ getMetadata version dbusClient playerName
-    mapM showWithPadding (makeList version metadata) >>= parseTemplate
+    if [] == metadata then
+      getConfigValue naString
+      else mapM showWithPadding (makeList version metadata) >>= parseTemplate
 
 runMPRIS1 :: String -> [String] -> Monitor String
 runMPRIS1 = runMPRIS MprisVersion1
-- 
cgit v1.2.3