1 files changed, 14 insertions, 0 deletions
diff --git a/src/Bottom.hs b/src/Bottom.hs
new file mode 100644
index 0000000..bfc4ecb
--- /dev/null
+++ b/src/Bottom.hs
@@ -0,0 +1,14 @@
+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 head args
+  if mpris == "mpd"
+    then palette >>= xmobar . MPD.config
+    else palette >>= xmobar . (Mpris.config mpris)