.xmonad/xmonad.hs

@@ -1,11 +1,9 @@
 -- {{{ Imports
 
 import Control.Monad (liftM2)
-import Data.Map qualified as M
 import XMonad
 import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
 import XMonad.Actions.FloatSnap
-import XMonad.Actions.Submap
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.ManageHelpers
@@ -15,23 +13,24 @@ import XMonad.Hooks.StatusBar.PP
 import XMonad.Hooks.WindowSwallowing (swallowEventHook)
 import XMonad.Layout.CenteredIfSingle
 import XMonad.Layout.IndependentScreens
-import XMonad.Layout.LayoutHints (hintsEventHook, layoutHints)
 import XMonad.Layout.PerScreen
 import XMonad.Layout.PerWorkspace
 import XMonad.Layout.Renamed
 import XMonad.Layout.Spacing
-import XMonad.Layout.Tabbed
 import XMonad.Layout.ThreeColumns
-import XMonad.StackSet qualified as W
 import XMonad.Util.EZConfig
-import XMonad.Util.Hacks qualified as Hacks
 import XMonad.Util.Loggers
 import XMonad.Util.Paste
+import qualified XMonad.StackSet as W
+import qualified XMonad.Util.Hacks as Hacks
 
 -- }}}
 
 -- Statusbar {{{
 
+pp' :: ScreenId -> PP -> PP
+pp' s pp = (marshallPP s pp) { ppSort = ppSort pp }
+
 pp :: PP
 pp =
   def
@@ -43,7 +42,7 @@ pp =
       ppLayout = id,
       ppTitle = shorten 80,
       ppTitleSanitize = xmobarStrip,
-      ppOrder = \[workspaces, layout, windows, _] -> [layout],
+      ppOrder = \[workspaces, layout, windows, _] -> [workspaces, layout, windows],
       ppExtras = [logTitles formatFocused formatUnfocused]
     }
   where
@@ -73,8 +72,7 @@ shiftAndView = doF . liftM2 (.) W.greedyView W.shift
 -- startupHook {{{
 myStartupHook =
   do
-    spawn "killall -q polybar; parallel ::: 'polybar -r top' 'polybar -r bottom'"
+    spawn "killall polybar && polybar -r"
-
 -- }}}
 
 -- manageHook {{{
@@ -299,11 +297,13 @@ resetTemp = spawn "screen-temperature 3000"
 
 main :: IO ()
 main =
-  do xmonad
+  do { xmonad } $
-    $ ewmh
+    ewmh $
-    $ withEasySB
+      withEasySB
-      (statusBarProp "polybar" $ pure pp)
+        (sb1 <> sb2)
-      defToggleStrutsKey
+        defToggleStrutsKey
-      myConfig
+        myConfig
+  where
+    [sb1, sb2] = [statusBarProp "polybar" $ pure (pp' (S i) pp) | i <- [0 .. 1]]
 
 -- }}}