summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors/Mpris.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Plugins/Monitors/Mpris.hs')
-rw-r--r--src/Plugins/Monitors/Mpris.hs18
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