summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-05-20 06:35:37 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-05-20 06:35:37 +0200
commit240dec9ee22e7b9270ee163d2742120a7bc3027b (patch)
treebbcb1e048d9e2735ed32fbc38de47f37a8dd65f6 /src
parent39dfe915e71dbd67d98b2b5f24e0d571cf7a4a95 (diff)
downloadxmobar-240dec9ee22e7b9270ee163d2742120a7bc3027b.tar.gz
xmobar-240dec9ee22e7b9270ee163d2742120a7bc3027b.tar.bz2
Whitespace
Diffstat (limited to 'src')
-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