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
|
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 - 6, defaultHeight - 6,
defaultHeight - 4, defaultHeight - 8,
defaultHeight - 7]
, border = TopB
, template = "|tray| \
\<action=`toggle-app.sh nm-applet`>|proton0||wlp1s0wi|</action> \
\ |dynnetwork| \
\ <action=`toggle-app.sh pasystray`>|default:Master|\
\ |default:Capture|</action> <fn=2>🎵</fn>"
++ tpl
++ " {} |mail| |EGPH| \
\ <fn=2>🗓 </fn>|uptime| <fn=2>🕓 </fn>|datetime| |laTime| "
, commands = [ Run (uptime p)
, Run (wireless p "wlp1s0")
, Run (dynNetwork p)
, Run proton0
, Run (weather "EGPH" p) -- LEGE, LEBL, KCV0
, Run trayPadding
, Run (mail p)
, Run masterVol
, Run captureVol
, Run laTime
, Run localTime
] ++ cs
}
|
