2020-04-01 22:06:00 -04:00
|
|
|
--------------------------------------------------------------------------------
|
2022-12-30 14:58:23 -05:00
|
|
|
-- High-level interface for managing XMonad's DBus
|
2020-04-01 22:06:00 -04:00
|
|
|
|
2020-04-01 20:17:47 -04:00
|
|
|
module XMonad.Internal.DBus.Common
|
2023-10-25 20:40:15 -04:00
|
|
|
( xmonadSesBusName
|
|
|
|
|
, xmonadSysBusName
|
2022-07-07 19:20:21 -04:00
|
|
|
, btBus
|
2022-07-07 23:22:48 -04:00
|
|
|
, notifyBus
|
|
|
|
|
, notifyPath
|
2022-07-08 00:21:05 -04:00
|
|
|
, networkManagerBus
|
2022-12-30 14:58:23 -05:00
|
|
|
)
|
|
|
|
|
where
|
2020-03-20 20:10:15 -04:00
|
|
|
|
2022-12-30 14:58:23 -05:00
|
|
|
import DBus
|
2020-04-01 20:17:47 -04:00
|
|
|
|
2023-10-25 20:40:15 -04:00
|
|
|
xmonadSesBusName :: BusName
|
2023-10-27 23:12:22 -04:00
|
|
|
xmonadSesBusName = busName_ "org.xmonad.session"
|
2023-10-25 20:40:15 -04:00
|
|
|
|
|
|
|
|
xmonadSysBusName :: BusName
|
2023-10-27 23:12:22 -04:00
|
|
|
xmonadSysBusName = busName_ "org.xmonad.system"
|
2022-07-07 19:20:21 -04:00
|
|
|
|
|
|
|
|
btBus :: BusName
|
|
|
|
|
btBus = busName_ "org.bluez"
|
|
|
|
|
|
2022-07-07 23:22:48 -04:00
|
|
|
notifyBus :: BusName
|
|
|
|
|
notifyBus = busName_ "org.freedesktop.Notifications"
|
|
|
|
|
|
|
|
|
|
notifyPath :: ObjectPath
|
|
|
|
|
notifyPath = objectPath_ "/org/freedesktop/Notifications"
|
|
|
|
|
|
2022-07-08 00:21:05 -04:00
|
|
|
networkManagerBus :: BusName
|
|
|
|
|
networkManagerBus = busName_ "org.freedesktop.NetworkManager"
|
