import Xmobar
config :: Config
config =
defaultConfig
{ font = "Terminus 8",
textOffset = 0,
bgColor = "#121212",
fgColor = "#cccccc",
position = Top,
template = " %XMonadLog% }{ \57958 %cpu% | \61381 %memory% | %load% | %battery% | %date% ",
commands =
[ Run XMonadLog,
Run $ PipeReader "/tmp/pipe-volume" "volume",
Run $ Com "monitors" ["battery"] "battery" 3600,
Run $ Com "monitors" ["cpu"] "cpu" 50,
Run $ Com "monitors" ["memory"] "memory" 50,
Run $ Com "monitors" ["load"] "load" 100,
Run $ Date "%m/%d/%Y %H:%M:%S" "date" 10
]
}
main :: IO ()
main = xmobar config