diff options
| author | jao <jao@gnu.org> | 2016-07-26 03:46:29 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2016-07-26 03:46:59 +0200 |
| commit | e9ce98d934861a96f76f673b88fda55f4ceeb900 (patch) | |
| tree | 3b31f776db35593580a1b5b07cd10e71aaaa1a71 /src/Plugins/Monitors | |
| parent | 17f900650fc022397e0679e2ee2a84aab07babb6 (diff) | |
| download | xmobar-e9ce98d934861a96f76f673b88fda55f4ceeb900.tar.gz xmobar-e9ce98d934861a96f76f673b88fda55f4ceeb900.tar.bz2 | |
MPris: honour field padding and width options
Diffstat (limited to 'src/Plugins/Monitors')
| -rw-r--r-- | src/Plugins/Monitors/Mpris.hs | 2 |
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 |