vanadium/xmonad: return Nothing if the layout is not changed

This commit is contained in:
Primrose 2026-01-07 13:32:48 +01:00
parent 24775459ed
commit 040afef280
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
2 changed files with 8 additions and 6 deletions

View file

@ -210,10 +210,10 @@ setMasterNEventHandleHook ev =
let adjustMasterCount :: X ()
adjustMasterCount = do
count <- gets $ length . W.integrate' . W.stack . W.workspace . W.current . windowset
if count <= 3 then sendMessage (SetMasterN 1)
else if count <= 5 then sendMessage (SetMasterN 2)
else if count <= 7 then sendMessage (SetMasterN 3)
else pure ()
if count >= 7 then sendMessage (SetMasterN 4)
else if count >= 5 then sendMessage (SetMasterN 3)
else if count >= 3 then sendMessage (SetMasterN 2)
else sendMessage (SetMasterN 1)
in do
case ev of
MapRequestEvent{} -> adjustMasterCount