mirror of
https://codeberg.org/leana8959/.files.git
synced 2025-12-06 22:59:15 +00:00
xmonad: update
This commit is contained in:
parent
f201371522
commit
ca0d53c88b
2 changed files with 37 additions and 46 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue