summaryrefslogtreecommitdiffhomepage
path: root/src/lib/Bottom.hs
blob: 5b2b6c91ad4ef6b61e6e451d8d9b580e4f159490 (plain)
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 p)
               , Run captureVol
               , Run laTime
               , Run localTime
               ] ++ cs
}