xmonad-config/lib/DBus/Common.hs

{-# LANGUAGE OverloadedStrings #-}

module DBus.Common where

import DBus.IntelBacklight

import DBus.Client

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
  return client

stopXMonadService :: Client -> IO ()
stopXMonadService client = do
  reply <- releaseName client "org.xmonad"
  disconnect client
  print reply
  return ()