import Xmobar
import Config
import qualified MPD
import qualified Mpris

import System.Environment (getArgs)

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