lib: clean ups

1 files changed, 35 insertions, 0 deletions

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
+}