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
|
import Xmobar
import Config
import Monitors
-- <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]
, border = BottomB
, alpha = 255
, commands = [ Run (topProc' p)
, Run (multiCPU p)
, Run memory
, Run (diskU p)
, Run (diskIO p)
, Run (coreTemp p)
, Run brightness
, Run (batt p)
, Run (wireless p)
, Run (dynNetwork p)
, Run tun0
, Run (weather "EGPH") -- LEGE, LEBL, KCV0
, Run mail
, Run masterVol
, Run captureVol
, Run laTime
, Run localTime
]
, template = " |batt0| |bright|\
\ <action=`toggle-app.sh nm-applet`>|tun0||wlp2s0wi|</action> \
\ |dynnetwork| \
\ <action=`toggle-app.sh blueman-tray`><fn=1>🎧</fn></action>\
\<action=`toggle-app.sh pasystray`>|default:Master|\
\ |default:Capture|</action> |EGPH|\
\ |mail| {} \
\ |top| |multicpu| |multicoretemp|\
\ |diskio| |disku| |memory| \
\ <fn=2>🕓 </fn>|datetime| |laTime| "
}
main :: IO ()
main =
palette >>= configFromArgs . config >>= xmobar
|