From 93f86940f52fde7a12073119fb9bf20edd4f3df9 Mon Sep 17 00:00:00 2001
From: tdback <tyler@tdback.net>
Date: Sun, 2 Feb 2025 21:18:10 -0500
Subject: here be dragons

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

(limited to 'lib/LogHook.hs')

diff --git a/lib/LogHook.hs b/lib/LogHook.hs
new file mode 100644
index 0000000..b10fba0
--- /dev/null
+++ b/lib/LogHook.hs
@@ -0,0 +1,30 @@
+module LogHook
+    ( myLogHook
+    , withStatusBars
+    ) where
+
+import Defaults
+import XMonad
+import XMonad.Hooks.DynamicLog
+import XMonad.Hooks.StatusBar
+import XMonad.Hooks.StatusBar.PP
+
+myLogHook :: X ()
+myLogHook = return ()
+
+withStatusBars :: (LayoutClass l Window) => XConfig l -> XConfig l
+withStatusBars = dynamicSBs barSpawner
+
+barSpawner :: ScreenId -> IO StatusBarConfig
+barSpawner = pure . xmobar
+  where
+    pp :: PP
+    pp =
+      def
+        { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]"
+        , ppVisible = xmobarColor "white" "" . wrap "[" "]"
+        , ppUrgent = xmobarColor "red" "" . wrap "[" "]"
+        , ppOrder = \(ws:_:t:_) -> [ws, t]
+        }
+    xmobar :: ScreenId -> StatusBarConfig
+    xmobar (S screenId) = statusBarProp ("xmobar -x" <> show screenId) $ pure pp
-- 
cgit v1.2.3