import Xmobar
import Config
import Monitors

config p = (baseConfig p) {
  position = TopSize C 100 defaultHeight
  , textOffset = defaultHeight - 8
  , border = BottomB
  , commands = [ Run (topProc p)
               , Run (multiCPU p)
               , Run (cpuFreq p)
               , Run memory
               , Run (diskU p)
               , Run (diskIO p)
               , Run (coreTemp p)
               , Run kbd
               , Run XMonadLog
               , Run laTime
               , Run localTime
               ]
  , template = "|kbd| |memory| |top| {|XMonadLog|}\
               \ |cpufreq| |multicpu|\
               \ |coretemp| |diskio| |disku| \
               \ |datetime| |laTime| "
}

main :: IO ()
main =
  palette >>= configFromArgs . config >>= xmobar