xmonad: update

This commit is contained in:
Primrose 2025-03-20 14:54:10 +01:00
parent f201371522
commit ca0d53c88b
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
2 changed files with 37 additions and 46 deletions

View file

@ -3,7 +3,6 @@
module Leanamonad.Layouts.ReflectMsg where
import XMonad (
IncMasterN (IncMasterN),
Resize (Expand, Shrink),
SomeMessage (SomeMessage),
fromMessage,
@ -23,7 +22,6 @@ instance LayoutModifier ReflectMsg a where
handleMessOrMaybeModifyIt m mess
| Just Shrink <- fromMessage mess = return . Just . Right $ SomeMessage Expand
| Just Expand <- fromMessage mess = return . Just . Right $ SomeMessage Shrink
| Just (IncMasterN n) <- fromMessage mess = return . Just . Right $ SomeMessage (IncMasterN (n * -1))
-- Handle the rest by passing it on
| otherwise = do
mm <- handleMess m mess