summaryrefslogtreecommitdiffhomepage
path: root/src/Mpris.hs
blob: 09c155d53f6d1d2f39dedcfe184ae2f3e7c920fb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
import Xmobar
import Config (palette)
import qualified Bottom (config)

mpris =
  Mpris2 "spotify" -- "clementine" --
         ["-t", " <tracknumber>\
                \ <title> <fc=sienna4><artist></fc>\
                \ <album> <length>"
         , "-T", "180", "-E", "...", "-M", "100", "-x", ""] 10

config p = (Bottom.config [Run mpris] p) {
  template =  "|kbd||default:Master| |default:Capture| \
              \|mpris2| {} |mbox| \
              \|EGPH| \
              \|diskio| |disku| · |bright| · |coretemp| \
              \|memory| · |uptime| |b0| "
  }
main :: IO ()
main = palette >>= xmobar . config