blob: 4ff726547fcef183d3cd8ead072e9d236225792d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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 last args
if mpris == "mpd"
then palette >>= configFromArgs . MPD.config >>= xmobar
else palette >>= configFromArgs . (Mpris.config mpris) >>= xmobar
|
