import Xmobar
import Config (palette)
import qualified Bottom (config)

mpris =
  Mpris2 "spotify" -- "clementine" --
         ["-t", " <tracknumber>\
                \ <title> <fc=sienna4><artist></fc>\
                \ <album> <length>"
         , "-T", "180", "-E", "...", "-M", "100", "-x", ""] 10

config p = (Bottom.config [Run mpris] p) {
  template =  "|kbd||default:Master| |default:Capture| \
              \|mpris2| {} |mbox| \
              \|EGPH| \
              \|diskio| |disku| · |bright| · |coretemp| \
              \|memory| · |uptime| |b0| "
  }
main :: IO ()
main = palette >>= xmobar . config