{-# LANGUAGE OverloadedStrings #-}

module MusicScroll.DBusNames where

import DBus (BusName, InterfaceName, ObjectPath)

smplayerBus, vlcBus, dbusBus :: BusName
smplayerBus :: BusName
smplayerBus = BusName
"org.mpris.MediaPlayer2.smplayer"
vlcBus :: BusName
vlcBus = BusName
"org.mpris.MediaPlayer2.vlc"
dbusBus :: BusName
dbusBus = BusName
"org.freedesktop.DBus"

-- TODO: Add more!
allBuses :: [BusName]
allBuses :: [BusName]
allBuses = [BusName
smplayerBus, BusName
vlcBus]

mediaObject :: ObjectPath
mediaObject :: ObjectPath
mediaObject = ObjectPath
"/org/mpris/MediaPlayer2"

mediaInterface :: InterfaceName
mediaInterface :: InterfaceName
mediaInterface = InterfaceName
"org.mpris.MediaPlayer2.Player"