1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module MPD where
import Xmobar
import Config (palette, defaultHeight)
import qualified Bottom (config)
mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t"
, " <lapsed> <fc=seashell3><fn=1><bar></fn></fc>"] 10
autoMPD = AutoMPD [ "-T", "150", "-E", "...", "-W", "10", "-t"
, "<length> <ppos>/<plength> \
\<fn=0><fc=darkolivegreen><title></fc></fn> \
\<fn=0><album></fn> \
\<fn=0><fc=dodgerblue4><artist></fc> \
\<fc=burlywood4><composer></fc> <date></fn>"]
config p = (Bottom.config [Run mpd, Run autoMPD] "|mpd| |autompd|" p)
{
textOffsets = [defaultHeight - 7, defaultHeight - 6]
}
|
