src/lib/Music.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

module Music where

import Xmobar
import Mpris
import MPD
import Monitors
import qualified Bottom

compMPD = concatMonitor " " mpd autoMPD

alt x = altMonitor (Mpris.mpris x) compMPD

config cl =
  if cl == "mpd"
  then MPD.config
  else Bottom.config [Run (alt cl)] "|mpris2_mpd_autompd|"