taffybar-2.0.0: src/System/Taffybar/Information/DBusObjects.hs

{-# LANGUAGE OverloadedStrings #-}
module System.Taffybar.Information.DBusObjects where

import System.IO.Unsafe
import DBus.Generation
import DBus.Introspection
import Data.Maybe

{-# NOINLINE playerObject #-}
playerObject :: Object
playerObject = unsafePerformIO $
  head . maybeToList . parseXML "/" <$>
  readFile "dbus-xml/org.mpris.MediaPlayer2.Player.xml"

playerInterface :: Interface
playerInterface =
  head $ objectInterfaces playerObject

{-# NOINLINE mprisObject #-}
mprisObject :: Object
mprisObject = unsafePerformIO $
  head . maybeToList . parseXML "/" <$>
  readFile "dbus-xml/org.mpris.MediaPlayer2.xml"

mprisInterface :: Interface
mprisInterface =
  head $ objectInterfaces mprisObject

playerGenerationParams :: GenerationParams
playerGenerationParams =
  defaultGenerationParams
  { genTakeSignalErrorHandler = True
  , genObjectPath = Just "/org/mpris/MediaPlayer2"
  }