primrose/.files
1
0
Fork 0
mirror of https://codeberg.org/leana8959/.files.git synced 2025-12-06 06:39:14 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

vanadium/xmonad: remove fancy insertion rules

Browse source
This commit is contained in:
Primrose 2025-10-31 20:49:32 +08:00
parent 726a416e32
commit 16a1666570
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
1 changed files with 19 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

54
nix/configurations/vanadium/home/xmonad/xmonad.hs
View file

@ -25,7 +25,6 @@ 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
@ -102,42 +101,27 @@ 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
composeAll
[ className ~? "NautilusPreviewer" --> customFloating centeredFloat
, className =? "feh" --> customFloating buttomRightFloat
, className =? "Minder"
<&&> not <$> title ~? "Pick a Color" -- ignore the color picker
--> customFloating centeredFloat
, isFirefoxPIP --> doFloat
-- 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
]
, namedScratchpadManageHook myScratchpads
]
<>
composeOne
[ className =? "firefox" -?> insertPosition Master Newer
, className =? "kitty" -?> insertPosition Below Newer
, className `isOneOf`
[ "sioyek"
, "Nautilus"
]
-?> insertPosition End Older
, Just <$> insertInMiddle
]
<>
composeOne
[ className =? "firefox" -?> insertPosition Master Newer
, className =? "kitty" -?> insertPosition Below Newer
, className `isOneOf`
[ "sioyek"
, "Nautilus"
]
-?> insertPosition End Older
]
}
-- Only remove mappings that needs pass through (it's a map).