From 0b8f1901f6e955fb1f0f42b0b6b598bbf8a2ae12 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 8 Dec 2018 02:39:19 +0000
Subject: Unifying MPD and Mpris in a single exec

---
 src/Bottom.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 src/Bottom.hs

(limited to 'src/Bottom.hs')

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)
-- 
cgit v1.2.3