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
|
module Bottom (config) where
import Xmobar
import Config
import Monitors
config cs tpl p = (baseConfig p) {
position = BottomSize C 100 defaultHeight
, textOffset = defaultHeight - 6
, textOffsets = [defaultHeight - 5, defaultHeight - 6]
, border = TopB
, template = "|tray| \
\<action=`toggle-nm-applet.sh `>|tun0||wlp2s0wi|</action> \
\ |dynnetwork| \
\|default:Master| |default:Capture| "
++ tpl
++ " {} |mbox| |EGPH| \
\|uptime| |batt0| "
, commands = [ Run (uptime p)
, Run (wireless p)
, Run (dynNetwork p)
, Run tun0
, Run (weather "EGPH") -- LEGE, LEBL, KCV0
, Run trayPadding
, Run (batt p)
, Run mbox
, Run masterVol
, Run captureVol
] ++ cs
}
|
