From 00defddeb7a48215bd57f5f5fc7174b4a4b07298 Mon Sep 17 00:00:00 2001
From: Hektor Misplon <hektor.misplon@pm.me>
Date: Fri, 2 Jun 2023 22:21:03 +0200
Subject: [PATCH] Update statusbars for multiple screens

---
 .xmonad/xmonad.hs | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index b7a19e0..3a8a0f0 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -33,9 +33,11 @@ import XMonad.Util.Ungrab
 
 -- Statusbar {{{
 
--- Statusbar
-myXmobarPP :: PP
-myXmobarPP =
+pp' :: ScreenId -> PP -> PP
+pp' s pp = (marshallPP s pp) { ppSort = ppSort pp }
+
+pp :: PP
+pp =
   def
     { ppSep = tertiaryColor "  ",
       ppCurrent = brackitify,
@@ -214,5 +216,13 @@ myRemoveKeysP =
     "M-S-5"
   ]
 
-main :: IO ()
-main = do xmonad $ docks $ ewmh $ withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey myConfig
+-- main :: IO ()
+main = do xmonad
+  $ ewmh
+  $ withEasySB
+    (sb1 <> sb2)
+    defToggleStrutsKey
+    myConfig
+  where
+    sb1 = statusBarProp "xmobar" $ pure (pp' (S 0) pp)
+    sb2 = statusBarProp "xmobar" $ pure (pp' (S 1) pp)