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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
import Xmobar
import Config
import Monitors
import Music (mpris, gpmd, mpdt)
topProcL p = TopProc (p <~> ["-t"
, "<both1> <both2> <both3> <mboth1> <mboth2> <mboth3>"
, "-w", "10", "-L" , "10", "-H", "80"]) 15
diskIOL p = DiskIO [("/", "<totalbipat>"), ("/home", "<totalbipat>")]
(diskArgs p) 10
mpd = MPD [ "-W", "12", "-b", "░", "-f", "▒", "-t", " <remaining>"] 10
autoMPD light = AutoMPD [ "-T", "110", "-E", "…", "-W", "10", "-t" ,
" <remaining> " ++ mpdt light]
pollMPD light =
MPD [ "-T", "120", "-W", "10", "-E", "…", "-t", tm, "--", "-p", "6600"] 20
where tm = " <remaining> " ++ mpdt light
-- mprisName = "MellowPlayer3"
mprisName = "spotifyd"
musicPipe = PipeReader "/tmp/music" "musicpipe"
musicMPRIS p = mpris p mprisName 180
-- music light = toggleMonitor "/tmp/mpris.st" musicPipe (pollMPD light)
music p = toggleMonitor "/tmp/mpris.st" (musicMPRIS p) (pollMPD (pIsLight p))
-- <fn=1> 💡 </fn>
config p = (baseConfig p) {
position = TopSize C 100 (defaultHeight - 1)
, textOffset = defaultHeight - 8
, textOffsets = [defaultHeight - 9, defaultHeight - 9,
defaultHeight - 6, defaultHeight - 8,
-1, defaultHeight - 8]
, border = FullB
, alpha = 255
, commands = [ Run (topProcL p)
, Run m
, Run (thinkTemp p)
-- , Run (mail p)
, Run (cpuBars p)
, Run memory
, Run (diskU p)
, Run (diskIOL p)
-- , Run brightness'
, Run kbd
, Run (miniBatt p)
, Run (wireless p "wlp1s0")
, Run (dynNetwork p)
, Run proton0
, Run w -- LEGE, LEBL, KCV0
, Run (masterVol p)
, Run captureVol
-- , Run laTime
, Run localTime
]
, template = " "
++ "|batt0| "
-- ++ "|bright| "
++ "<action=`toggle-app.sh nm-applet`>|proton0||wlp1s0wi|</action> "
++ "|dynnetwork| "
++ "<action=`toggle-app.sh pasystray`>|default:Master| \
\|default:Capture|</action> "
++ "<action=`toggle-pipe.sh /tmp/mpris.st`>" ++ ma ++ "</action>"
++ " |kbd|"
++ " {} "
-- ++ "|mail|"
++ "|multicpu| "
++ "|multicoretemp| "
++ " |top| "
++ "|memory| "
++ fc "grey60" "|diskio|" ++ " |disku| "
++ " |EGPH| "
++ fni "\xf017 " ++ "|datetime| "
} where m = music p
ma = fc "grey40" (fni "\xf001 ") ++ "|" ++ alias m ++ "|"
w = (weather' "<skyConditionS> <tempC>° <weather>" "EGPH" p)
main :: IO ()
main = palette >>= configFromArgs . config >>= xmobar
|
