diff options
Diffstat (limited to 'src/Plugins/Monitors/Mpris.hs')
| -rw-r--r-- | src/Plugins/Monitors/Mpris.hs | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/Plugins/Monitors/Mpris.hs b/src/Plugins/Monitors/Mpris.hs index 1bac05b..0fa181c 100644 --- a/src/Plugins/Monitors/Mpris.hs +++ b/src/Plugins/Monitors/Mpris.hs @@ -29,7 +29,7 @@ import Data.Int ( Int32, Int64 ) import System.IO.Unsafe (unsafePerformIO) import qualified Data.Text as T -import Control.Exception (try, evaluate) +import Control.Exception (try) class MprisVersion a where getProxy :: a -> C.Client -> String -> IO C.Proxy @@ -53,9 +53,9 @@ instance MprisVersion MprisVersion2 where C.proxy c (C.busName_ playerBusName) "/org/mpris/MediaPlayer2" getMetadataReply MprisVersion2 c p = do player <- getProxy MprisVersion2 c p - C.call player "org.freedesktop.DBus.Properties" - "Get" - (map (toVariant::String -> Variant) + C.call player "org.freedesktop.DBus.Properties" + "Get" + (map (toVariant::String -> Variant) ["org.mpris.MediaPlayer2.Player", "Metadata"] ) fieldsList MprisVersion2 = [ "xesam:album", "xesam:artist", "mpris:artUrl" @@ -64,7 +64,7 @@ instance MprisVersion MprisVersion2 where mprisConfig :: IO MConfig mprisConfig = mkMConfig "<artist> - <title>" - [ "album", "artist", "arturl", "length" , "title", "tracknumber" + [ "album", "artist", "arturl", "length" , "title", "tracknumber" ] dbusClient :: C.Client @@ -88,7 +88,7 @@ fromVar = fromJust . fromVariant unpackMetadata :: [Variant] -> [(String, Variant)] unpackMetadata [] = [] -unpackMetadata xs = ((map (\(k, v) -> (fromVar k, fromVar v))) . unpack . head) xs where +unpackMetadata xs = ((map (\(k, v) -> (fromVar k, fromVar v))) . unpack . head) xs where unpack v = case variantType v of TypeDictionary _ _ -> dictionaryItems $ fromVar v TypeVariant -> unpack $ fromVar v @@ -99,12 +99,12 @@ getMetadata :: (MprisVersion a) => a -> C.Client -> String -> IO [(String, Varia getMetadata version client player = do reply <- try (getMetadataReply version client player) :: IO (Either ConnectionError [Variant]) - return $ case reply of - Right metadata -> unpackMetadata metadata; + return $ case reply of + Right metadata -> unpackMetadata metadata; Left _ -> [] makeList :: (MprisVersion a) => a -> [(String, Variant)] -> [String] -makeList version md = map getStr (fieldsList version) where +makeList version md = map getStr (fieldsList version) where formatTime n = (if hh == 0 then printf "%02d:%02d" else printf "%d:%02d:%02d" hh) mm ss where hh = (n `div` 60) `div` 60 |