xmonad-config/lib/XMonad/Internal/DBus/Common.hs

33 lines
747 B
Haskell
Raw Normal View History

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
, btBus
, notifyBus
, notifyPath
2022-07-08 00:21:05 -04:00
, networkManagerBus
2022-12-30 14:58:23 -05:00
)
where
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"
btBus :: BusName
btBus = busName_ "org.bluez"
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"