src/lib/Mpris.hs


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

module Mpris where

import Xmobar
import Config (palette)
import qualified Bottom (config)

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

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