summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/Mpris.hs
diff options
context:
space:
mode:
authorArtem Tarasov <lomereiter@gmail.com>2011-12-22 23:11:38 +0400
committerArtem Tarasov <lomereiter@gmail.com>2011-12-22 23:11:38 +0400
commitb0624e2f8b9dbc5f6614de1b5d937b279605bd39 (patch)
tree1fc1f75c2416db98deaf6e7e268cff08836d99db /src/Plugins/Monitors/Mpris.hs
parentcf218bd8a31b0344c4d082c9af03f155b70ab89d (diff)
downloadxmobar-b0624e2f8b9dbc5f6614de1b5d937b279605bd39.tar.gz
xmobar-b0624e2f8b9dbc5f6614de1b5d937b279605bd39.tar.bz2
switched to mtime
Diffstat (limited to 'src/Plugins/Monitors/Mpris.hs')
-rw-r--r--src/Plugins/Monitors/Mpris.hs4
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