diff options
| author | jao <jao@gnu.org> | 2019-01-27 23:12:27 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2019-01-27 23:12:27 +0000 |
| commit | 09141b9a589404fbfa1fabb34c458c7d03edd3f9 (patch) | |
| tree | 04b3879beaf501304e7c9c07ebe34dfa3a60b194 /src/Bottom.hs | |
| parent | 78bcb8c73ffb1b09b379ea0bbd7e68f2d84e187e (diff) | |
| download | xmobar-config-09141b9a589404fbfa1fabb34c458c7d03edd3f9.tar.gz xmobar-config-09141b9a589404fbfa1fabb34c458c7d03edd3f9.tar.bz2 | |
Using monitor combiners to auto-switch mpd/mpris
Diffstat (limited to 'src/Bottom.hs')
| -rw-r--r-- | src/Bottom.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/Bottom.hs b/src/Bottom.hs index 4ff7265..a13662b 100644 --- a/src/Bottom.hs +++ b/src/Bottom.hs @@ -1,14 +1,12 @@ import Xmobar import Config -import qualified MPD -import qualified Mpris +import qualified Music 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 + palette >>= configFromArgs . Music.config mpris >>= xmobar |