nix/configurations/vanadium/home/xmonad/xmonad.hs

@@ -25,6 +25,7 @@ import XMonad.Util.SpawnOnce
 import XMonad.Layout.Magnifier
 
 import Data.Map.Strict              qualified as M
+import Data.Monoid
 import System.Posix
 import Graphics.X11.ExtraTypes.XF86
 
@@ -64,7 +65,6 @@ main =
                       , "Signal"
                       , "steam"
                       , "discord"
-                      , "vlc"
                       ]
                     -?> opaque
 
@@ -101,6 +101,20 @@ main =
                 mag tallr ||| Full
 
       , manageHook =
+          let
+            hasEvenWindows :: X Bool
+            hasEvenWindows = g <$> get
+              where g = even . length . W.integrate'
+                        . W.stack . W.workspace . W.current . windowset
+
+            -- When having a lot of windows this will converge into the middle of the stack
+            insertInMiddle :: Query (Endo WindowSet)
+            insertInMiddle =
+              ifM
+                (liftX hasEvenWindows)
+                (insertPosition Below Newer) -- New window is odd
+                (insertPosition Above Newer) -- New window is even
+          in
             composeAll
               [ className ~? "NautilusPreviewer"  --> customFloating centeredFloat
               , className =? "feh"                --> customFloating buttomRightFloat
@@ -121,6 +135,7 @@ main =
                     , "Nautilus"
                     ]
                   -?> insertPosition End Older
+              , Just <$> insertInMiddle
               ]
       }