diff options
| author | Artem Tarasov <lomereiter@gmail.com> | 2011-12-22 23:11:38 +0400 |
|---|---|---|
| committer | Artem Tarasov <lomereiter@gmail.com> | 2011-12-22 23:11:38 +0400 |
| commit | b0624e2f8b9dbc5f6614de1b5d937b279605bd39 (patch) | |
| tree | 1fc1f75c2416db98deaf6e7e268cff08836d99db | |
| parent | cf218bd8a31b0344c4d082c9af03f155b70ab89d (diff) | |
| download | xmobar-b0624e2f8b9dbc5f6614de1b5d937b279605bd39.tar.gz xmobar-b0624e2f8b9dbc5f6614de1b5d937b279605bd39.tar.bz2 | |
switched to mtime
| -rw-r--r-- | src/Plugins/Monitors/Mpris.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Mpris.hs b/src/Plugins/Monitors/Mpris.hs index 32f72d4..1bac05b 100644 --- a/src/Plugins/Monitors/Mpris.hs +++ b/src/Plugins/Monitors/Mpris.hs @@ -44,7 +44,7 @@ instance MprisVersion MprisVersion1 where getMetadataReply MprisVersion1 c p = do player <- getProxy MprisVersion1 c p C.call player "org.freedesktop.MediaPlayer" "GetMetadata" [] - fieldsList MprisVersion1 = [ "album", "artist", "arturl", "time", "title", "tracknumber" ] + fieldsList MprisVersion1 = [ "album", "artist", "arturl", "mtime", "title", "tracknumber" ] data MprisVersion2 = MprisVersion2 instance MprisVersion MprisVersion2 where @@ -116,7 +116,7 @@ makeList version md = map getStr (fieldsList version) where TypeString -> fromVar v TypeInt32 -> let num = fromVar v in case str of - "time" -> formatTime num + "mtime" -> formatTime (num `div` 1000) "tracknumber" -> printf "%02d" num "mpris:length" -> formatTime (num `div` 1000000) "xesam:trackNumber" -> printf "%02d" num |