input method indicator

im_status.hs

{-# LANGUAGE OverloadedStrings #-}

import DBus
import DBus.Client
import Control.Monad (forever)
import Control.Concurrent (threadDelay)
import System.IO

fakeSignal :: Signal
fakeSignal = undefined

callBack :: Client -> Signal -> IO ()
callBack client _ = do
    reply <- call_ client (methodCall "/inputmethod" "org.fcitx.Fcitx.InputMethod" "GetCurrentIM") {
            methodCallDestination = Just "org.fcitx.Fcitx"
          }
    let Just current_im = fromVariant $ methodReturnBody reply !! 0 :: Maybe String
    putStrLn current_im
    hFlush stdout

matchFromFcitx :: MatchRule
matchFromFcitx = matchAny { matchPath = Just "/inputmethod" }

main = do
    client <- connectSession
    callBack client fakeSignal 
    addMatch client matchFromFcitx (callBack client)
    forever $ threadDelay 10000