27 lines
740 B
Haskell
27 lines
740 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
|
||
|
|
module XMonad.Internal.DBus.Common
|
||
|
|
( callMethod
|
||
|
|
, addMatchCallback
|
||
|
|
) where
|
||
|
|
|
||
|
|
import DBus
|
||
|
|
import DBus.Client
|
||
|
|
|
||
|
|
-- TODO export the bus name (org.xmonad)
|
||
|
|
|
||
|
|
-- TODO not all methods warrent that we wait for a reply?
|
||
|
|
callMethod :: MethodCall -> IO (Maybe [Variant])
|
||
|
|
callMethod mc = do
|
||
|
|
client <- connectSession
|
||
|
|
-- TODO handle clienterrors here
|
||
|
|
reply <- call client mc { methodCallDestination = Just "org.xmonad" }
|
||
|
|
return $ case reply of
|
||
|
|
Left _ -> Nothing
|
||
|
|
Right ret -> Just $ methodReturnBody ret
|
||
|
|
|
||
|
|
addMatchCallback :: MatchRule -> ([Variant] -> IO ()) -> IO SignalHandler
|
||
|
|
addMatchCallback rule cb = do
|
||
|
|
client <- connectSession
|
||
|
|
addMatch client rule $ cb . signalBody
|