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
|
import Xmobar
import Config (palette)
import qualified Bottom (config)
mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t"
, " <lapsed> <fc=seashell3><fn=1><bar></fn></fc>"] 10
autoMPD = AutoMPD [ "-T", "160", "-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)] p) {
template = "|kbd||default:Master| |default:Capture| \
\|mpd| |autompd| {} |mbox| \
\|EGPH| \
\|diskio| |disku| · |bright| · |coretemp| \
\|memory| · |uptime| |b0| "
, additionalFonts = ["xft:Hack-7"]
, textOffsets = [17]
}
main :: IO ()
main = palette >>= xmobar . config
|
