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

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
nix/configurations/vanadium/home/xmonad/lib/XMonad/Layout/SetMasterNTall.hs
View file

@ -23,8 +23,10 @@ instance LayoutClass SetMasterNTall a where
let ws' = W.Workspace t (unSetMasterNTall l) s
in (fmap . fmap . fmap) SetMasterNTall . runLayout ws'
handleMessage (SetMasterNTall l@(ResizableTall _n0 d f s)) mess
| Just (SetMasterN n) <- fromMessage mess = pure $ Just $ SetMasterNTall $ ResizableTall n d f s
handleMessage (SetMasterNTall l@(ResizableTall n0 d f s)) mess
| Just (SetMasterN n) <- fromMessage mess = pure $
if n0 /= n then Just $ SetMasterNTall $ ResizableTall n d f s
else Nothing
| otherwise = (fmap . fmap) SetMasterNTall . handleMessage l $ mess
description (SetMasterNTall l) = description l