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

xmonad: reflect IncMaster '<' '>' messages

Browse source
This commit is contained in:
Primrose 2025-03-02 00:04:40 +01:00
parent af6f93779b
commit d4910ded6b
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
2 changed files with 4 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
.config/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs
View file

@ -1,6 +1,9 @@
{-# LANGUAGE NegativeLiterals #-}
module Leanamonad.Layouts.ReflectMsg where
import XMonad (
IncMasterN (IncMasterN),
Resize (Expand, Shrink),
SomeMessage (SomeMessage),
fromMessage,
@ -20,6 +23,7 @@ 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