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,27 +101,42 @@ main =
                 mag tallr ||| Full
 
       , manageHook =
-          composeAll
+          let
-            [ className ~? "NautilusPreviewer"  --> customFloating centeredFloat
+            hasEvenWindows :: X Bool
-            , className =? "feh"                --> customFloating buttomRightFloat
+            hasEvenWindows = g <$> get
-            , className =? "Minder"
+              where g = even . length . W.integrate'
-                  <&&> not <$> title ~? "Pick a Color" -- ignore the color picker
+                        . W.stack . W.workspace . W.current . windowset
-                --> customFloating centeredFloat
-            , isFirefoxPIP                      --> doFloat
 
-            , namedScratchpadManageHook myScratchpads
+            -- 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
+              , className =? "Minder"
+                    <&&> not <$> title ~? "Pick a Color" -- ignore the color picker
+                  --> customFloating centeredFloat
+              , isFirefoxPIP                      --> doFloat
 
-          <>
+              , namedScratchpadManageHook myScratchpads
-          composeOne
+              ]
-            [ className =? "firefox" -?> insertPosition Master Newer
+
-            , className =? "kitty"   -?> insertPosition Below Newer
+            <>
-            , className `isOneOf`
+            composeOne
-                  [ "sioyek"
+              [ className =? "firefox" -?> insertPosition Master Newer
-                  , "Nautilus"
+              , className =? "kitty"   -?> insertPosition Below Newer
-                  ]
+              , className `isOneOf`
-                -?> insertPosition End Older
+                    [ "sioyek"
-            ]
+                    , "Nautilus"
+                    ]
+                  -?> insertPosition End Older
+              , Just <$> insertInMiddle
+              ]
       }
 
     -- Only remove mappings that needs pass through (it's a map).