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

34 lines
859 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
module XMonad.Internal.DBus.Control
( Client
, startXMonadService
, stopXMonadService
) where
import DBus.Client
import XMonad.Internal.DBus.IntelBacklight
import XMonad.Internal.DBus.Screensaver
startXMonadService :: IO Client
startXMonadService = do
client <- connectSession
requestResult <- requestName client "org.xmonad" []
-- TODO if the client is not released on shutdown the owner will be
-- different
if requestResult /= NamePrimaryOwner then
putStrLn "Another service owns \"org.xmonad\""
else do
putStrLn "Started xmonad dbus client"
exportIntelBacklight client
exportScreensaver client
return client
stopXMonadService :: Client -> IO ()
stopXMonadService client = do
_ <- releaseName client "org.xmonad"
disconnect client
return ()