xmonad.hs

iconDir = "/home/plhk/.xmobar/"
getIcon s = "<icon=" ++ iconDir ++ s ++ ".xbm" ++ ">"

------------------------------------------------------------------------
-- Now run xmonad with all the defaults we set up.

-- Run xmonad with the settings you specify. No need to modify this.
--
main = do
        xmonad =<< statusBar "xmobar" myPP toggleStrutsKey defaults

myPP = defaultPP { ppCurrent = \d -> xmobarColor "#74D9EE" "#222222" . pad $ (getIcon d) ++ d,
                   ppHidden = \d -> (getIcon d) ++ d,
                   --ppTitle = xmobarColor "" "#222222",
                   ppSep = " ",
                   ppLayout = \l -> xmobarColor "#74d9ee" "#222222" . pad $ (getIcon l)
                }