From 5a7df6bcd2d7f61274e291b2850e71aefbd0ead7 Mon Sep 17 00:00:00 2001
From: Hektor Misplon <hektor.misplon@pm.me>
Date: Sat, 18 Nov 2023 17:35:16 +0100
Subject: [PATCH] Use polybar

---
 .xmonad/xmonad.hs | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index 7564939..b9d13c2 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -68,7 +68,7 @@ shiftAndView id = doF (W.view id) <> doF (W.shift id)
 -- startupHook
 myStartupHook =
   do
-    spawn "albert"
+    spawn "killall polybar && polybar -r"
 
 -- manageHook
 myManageHook :: ManageHook
@@ -264,13 +264,14 @@ resetTemp = spawn "screen-temperature 3000"
 -- Main {{{
 
 main :: IO ()
-main = do xmonad
-  $ ewmh
-  $ withEasySB
-    (sb1 <> sb2)
-    defToggleStrutsKey
-    myConfig
+main =
+  do { xmonad } $
+    ewmh $
+      withEasySB
+        (sb1 <> sb2)
+        defToggleStrutsKey
+        myConfig
   where
-    [sb1, sb2] = [statusBarProp "xmobar" $ pure (pp' (S i) pp) | i <- [0..1]]
+    [sb1, sb2] = [statusBarProp "polybar" $ pure (pp' (S i) pp) | i <- [0 .. 1]]
 
 -- }}}