--------------------------------------------------------------------------------
-- High-level interface for managing XMonad's DBus

module XMonad.Internal.DBus.Common
  ( xmonadSesBusName
  , xmonadSysBusName
  , btBus
  , notifyBus
  , notifyPath
  , networkManagerBus
  )
where

import DBus

xmonadSesBusName :: BusName
xmonadSesBusName = busName_ "org.xmonad.Session"

xmonadSysBusName :: BusName
xmonadSysBusName = busName_ "org.xmonad.System"

btBus :: BusName
btBus = busName_ "org.bluez"

notifyBus :: BusName
notifyBus = busName_ "org.freedesktop.Notifications"

notifyPath :: ObjectPath
notifyPath = objectPath_ "/org/freedesktop/Notifications"

networkManagerBus :: BusName
networkManagerBus = busName_ "org.freedesktop.NetworkManager"