xmonad-log
xmonad-log is a DBus monitoring solution that can easily be used to display xmonad in a statusbar like polybar, lemonbar and similar.
Installation
xmonad-log is written in Go with one dependency: dbus. Binary packages are available.
Building from source
This package has been tested with Go 1.7 and above.
To build from source:
- Clone this repository into
$GOPATH/src/github.com/xintron/xmonad-log. - Build it within the directory with
go build.
This should leave a xmonad-log binary in the directory. Move this to an
appropriate directory in your $PATH.
Configure xmonad
To configure xmonad to send log events over DBus the haskell
dbus package is required. Once
installed the following can be added to your .xmonad/xmonad.hs configuration
to add DBus support.
import XMonad
import XMonad.Hooks.DynamicLog
import qualified DBus as D
import qualified DBus.Client as D
import qualified Codec.Binary.UTF8.String as UTF8
main :: IO ()
main = do
dbus <- D.connectSession
-- Request access to the DBus name
D.requestName dbus (D.busName_ "org.xmonad.Log")
[D.nameAllowReplacement, D.nameReplaceExisting, D.nameDoNotQueue]
xmonad $ def { logHook = dynamicLogWithPP (myLogHook dbus) }
-- Override the PP values as you would otherwise, adding colors etc depending
-- on the statusbar used
myLogHook :: D.Client -> PP
myLogHook dbus = def { ppOutput = dbusOutput dbus }
-- Emit a DBus signal on log updates
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"View this xmonad-config for a fully working polybar example using statusbar coloring.