gistfile1.hs

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig (additionalKeys)
import XMonad.Layout.NoBorders (smartBorders)
import System.IO
import DBus.Client.Simple
import System.Taffybar.XMonadLog (dbusLog)

main = do
    client <- connectSession
    let pp = defaultPP
    xmonad $ defaultConfig {
                 modMask = mod4Mask
               , terminal = "urxvt"
               , logHook = dbusLog client pp
               , manageHook = composeAll
                                [ className =? "taffybar-linux-i386" --> doIgnore
                                ]
               , layoutHook = smartBorders $ avoidStruts $ layoutHook defaultConfig
               }