1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
module Music where
import Xmobar
import Monitors
import qualified Bottom
import Config (defaultHeight, pIsLight, pHigh, fc, fni)
mpris p client width =
Mpris2 client
["-t", fni "\xf1bc" ++ " <tracknumber> <title> " ++ fc (pHigh p) "<artist>"
++ " <album> <length> <composer>"
, "-T", show width, "-E", "…", "-M", "100", "-x", ""] 40
mprisConfig client p = Bottom.config [Run (mpris p client 165)] "|mpris2|" p
mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t"
, " <lapsed> <fc=honeydew3><fn=5><bar></fn></fc>"] 10 -- fn=5
mpdt' c0 c1 c2 = "<ppos>/<plength> "
++ fc c0 "<title> " ++ fc c1 "<artist> " ++ fc c2 "<album>"
++ " <composer> <date>"
mpdt light =
if light
then mpdt' "darkolivegreen" "dodgerblue4" "burlywood4"
else mpdt' "darkseagreen4" "darkslategray4" "burlywood4"
autoMPD l lgt =
AutoMPD [ "-T", l, "-E", "…", "-W", "10", "-t", "<length> " ++ mpdt lgt]
mpdx a p i =
MPDX [ "-W", "12", "-b", "░", "-f", "▒", "-t", "<statei> <remaining>"
, "--", "-p", p, "-P", fni "\xf144", "-Z", fni i, "-S", fni i] 20 a
mpdMon = mpdx "mpd" "6600" "\xf001"
mopMon = mpdx "mopidy" "6669" "\xf1bc"
mpdConfig p =
(Bottom.config [Run mpd, Run (autoMPD "150" (pIsLight p))] "|mpd| |autompd|" p)
{
textOffsets = [defaultHeight - 7, defaultHeight - 6]
}
|