xonadlog_part2_output.hs

-- xmonadに紐づけたdbusに出力するためのアクションのための関数定義
-- from https://github.com/xintron/xmonad-log

dbusOutput :: D.Client -> String -> IO ()
dbusOutput dbus str = do
    let signal = (D.signal objectPath interfaceName memberName) {
            D.signalBody = [D.toVariant $ UTF8.decodeString str]
        }
    D.emit dbus signal
  where
    objectPath = D.objectPath_ "/org/xmonad/Log"
    interfaceName = D.interfaceName_ "org.xmonad.Log"
    memberName = D.memberName_ "Update"


-- デフォルトのlogHookの出力先等を上書き設定するためのPP
myPolybarPP :: D.Client -> PP
myPolybarPP dbus =
  def { ppOutput  = dbusOutput dbus
      , ppCurrent = wrap "[" "]"
      }