From f62d3d8c2bc488f26fa21a3f824879d614570aec Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 13 Aug 2022 17:15:15 +0100
Subject: lib: clean ups

---
 lib/Bottom.hs | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 lib/Bottom.hs

(limited to 'lib/Bottom.hs')

diff --git a/lib/Bottom.hs b/lib/Bottom.hs
new file mode 100644
index 0000000..5b2b6c9
--- /dev/null
+++ b/lib/Bottom.hs
@@ -0,0 +1,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
+}
-- 
cgit v1.2.3