start work on xmobar config

haskell/xmonad/xmonad.hs

@@ -24,6 +24,7 @@ import XMonad.Prompt
 import XMonad.Prompt.Layout
 import XMonad.StackSet qualified as W
 import XMonad.Actions.NoBorders
+import XMonad.Util.EZConfig
 
 myKeys conf@(XConfig {XMonad.modMask = modm}) =
   M.fromList $
@@ -94,17 +95,6 @@ myMouseBindings (XConfig {XMonad.modMask = modm}) =
       )
     ]
 
-------------------------------------------------------------------------
--- Layouts:
-
--- You can specify and transform your layouts by modifying these values.
--- If you change layout bindings be sure to use 'mod-shift-space' after
--- restarting (with 'mod-q') to reset your layout state to the new
--- defaults, as xmonad preserves your old layout settings by default.
---
--- The available layouts.  Note that each layout is separated by |||,
--- which denotes layout choice.
-
 tabCfg =
   def
     { activeColor = "#282828",
@@ -118,10 +108,12 @@ tabCfg =
       urgentTextColor = "#ebdbb2"
     }
 
-myLayout = avoidStruts $ autoChoose ||| threeCol ||| tiled ||| tabbed shrinkText tabCfg ||| Mirror tiled
+myLayout = setupSpacing $ avoidStruts $ autoChoose ||| tabbed shrinkText tabCfg
   where
     -- default tiling algorithm partitions the screen into two panes
-    autoChoose = IfMax 2 tiled $ IfMax 3 tiled_mag $ IfMax 4 Grid threeCol
+    autoChoose = IfMax 2 tiled $ IfMax 3 tiled_mag $ IfMax 4 grid_mag threeCol
+    setupSpacing = spacingRaw True (Border 0 0 0 0) True (Border 7 7 7 7) True 
+    grid_mag = magnifiercz 1.4 Grid
     tiled = Tall nmaster delta ratio
     tiled_mag = magnifiercz' 1.4 tiled
     threeCol = magnifiercz' 1.6 $ ThreeColMid nmaster delta ratio
@@ -144,61 +136,23 @@ myManageHook =
       resource =? "kdesktop" --> doIgnore
     ]
 
-------------------------------------------------------------------------
--- Event handling
-
--- * EwmhDesktops users should change this to ewmhDesktopsEventHook
-
---
--- Defines a custom handler function for X Events. The function should
--- return (All True) if the default handler is to be run afterwards. To
--- combine event hooks use mappend or mconcat from Data.Monoid.
---
-myEventHook = mempty
-
-focusChangeHook (FocusChangeEvent {ev_event_type = t, ev_window = window}) = do
-  when (t == focusIn) $ spawn "notify-send 'focusIn'"
-  when (t == focusOut) $ spawn "notify-send 'focusOut'"
-  return $ All True
-
-------------------------------------------------------------------------
--- Status bars and logging
-
--- Perform an arbitrary action on each internal state change or X event.
--- See the 'XMonad.Hooks.DynamicLog' extension for examples.
---
-myLogHook = return ()
-
-------------------------------------------------------------------------
--- Startup hook
-
--- Perform an arbitrary action each time xmonad starts or is restarted
--- with mod-q.  Used by, e.g., XMonad.Layout.PerWorkspace to initialize
--- per-workspace layout choices.
---
--- By default, do nothing.
 myStartupHook = do
   spawn "pgrep oneko || oneko -tofocus -tora -position +-1+5 -fg palevioletred3 -bg pink -name 'Rose the desktop kitty'"
   spawn "pgrep volumeicon || volumeicon"
   spawn "pgrep nm-applet || nm-applet"
   spawn "pgrep mullvad-gui || mullvad-vpn"
   spawn "feh --bg-fill ~/Pictures/wallpaper.jpg"
+  killStatusBar "xmobar"
+  spawnStatusBar "xmobar"
 
-------------------------------------------------------------------------
--- Now run xmonad with all the defaults we set up.
+xmeowbar = statusBarProp "xmobar" $ pure xmobarPP
+polybar = statusBarProp "polybar" $ pure xmobarPP
+barSpawner 0 = pure $ xmeowbar <> polybar 
+barSpawner _ = mempty
 
--- Run xmonad with the settings you specify. No need to modify this.
---
-mySB = statusBarProp "polybar" (pure xmobarPP)
+main :: IO()
+main = xmonad $ docks $ dynamicSBs barSpawner $ ewmh defaults
 
-main = xmonad $ docks $  withSB mySB (ewmh defaults)
-
--- A structure containing your configuration settings, overriding
--- fields in the default config. Any you don't override, will
--- use the defaults defined in xmonad/XMonad/Config.hs
---
--- No need to modify this.
---
 defaults =
   def
     { -- simple stuff
@@ -210,14 +164,9 @@ defaults =
       workspaces = ["comms", "browser"] ++ map show [3 .. 9],
       normalBorderColor = "#3c3836",
       focusedBorderColor = "#504945",
-      -- , clientMask = focusChangeMask .|. XMonad.clientMask
-      -- key bindings
       keys = myKeys,
       mouseBindings = myMouseBindings,
-      -- hooks, layouts
-      layoutHook = spacingRaw True (Border 0 0 0 0) True (Border 7 7 7 7) True myLayout,
+      layoutHook =myLayout,
       manageHook = myManageHook,
-      handleEventHook = myEventHook,
-      logHook = myLogHook,
       startupHook = myStartupHook
-    }
+    }