import Xmobar
import Config
import qualified Music

import System.Environment (getArgs)


main :: IO ()
main = do
  args <- getArgs
  let mpris = if null args then "spotify" else last args
  palette >>= configFromArgs . Music.config mpris >>= xmobar