summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/Mpris.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2016-07-26 03:46:29 +0200
committerjao <jao@gnu.org>2016-07-26 03:46:59 +0200
commite9ce98d934861a96f76f673b88fda55f4ceeb900 (patch)
tree3b31f776db35593580a1b5b07cd10e71aaaa1a71 /src/Plugins/Monitors/Mpris.hs
parent17f900650fc022397e0679e2ee2a84aab07babb6 (diff)
downloadxmobar-e9ce98d934861a96f76f673b88fda55f4ceeb900.tar.gz
xmobar-e9ce98d934861a96f76f673b88fda55f4ceeb900.tar.bz2
MPris: honour field padding and width options
Diffstat (limited to 'src/Plugins/Monitors/Mpris.hs')
-rw-r--r--src/Plugins/Monitors/Mpris.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/Mpris.hs b/src/Plugins/Monitors/Mpris.hs
index 05718cf..200e9f7 100644
--- a/src/Plugins/Monitors/Mpris.hs
+++ b/src/Plugins/Monitors/Mpris.hs
@@ -84,7 +84,7 @@ dbusClient = unsafePerformIO DC.connectSession
runMPRIS :: (MprisVersion a) => a -> String -> [String] -> Monitor String
runMPRIS version playerName _ = do
metadata <- io $ getMetadata version dbusClient playerName
- parseTemplate $ makeList version metadata
+ mapM showWithPadding (makeList version metadata) >>= parseTemplate
runMPRIS1 :: String -> [String] -> Monitor String
runMPRIS1 = runMPRIS MprisVersion1