diff options
author | jao <jao@gnu.org> | 2018-12-08 02:39:19 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2018-12-08 02:39:19 +0000 |
commit | 0b8f1901f6e955fb1f0f42b0b6b598bbf8a2ae12 (patch) | |
tree | 4e524a9179ac8d2d8be1f2a05b495ed60c3b5a02 /src/Bottom.hs | |
parent | 5d68d556eaa107fc01a67c661f600812a4a64e40 (diff) | |
download | xmobar-config-0b8f1901f6e955fb1f0f42b0b6b598bbf8a2ae12.tar.gz xmobar-config-0b8f1901f6e955fb1f0f42b0b6b598bbf8a2ae12.tar.bz2 |
Unifying MPD and Mpris in a single exec
Diffstat (limited to 'src/Bottom.hs')
-rw-r--r-- | src/Bottom.hs | 14 |
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) |