blob: bfc4ecb40eedfc6f2fbca564e5fdbe56b76ed7fa (
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 head args
if mpris == "mpd"
then palette >>= xmobar . MPD.config
else palette >>= xmobar . (Mpris.config mpris)
|