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

vanadium: move xmonad config

Browse source
This commit is contained in:
Primrose 2025-05-19 18:07:02 +02:00
parent ef4aa7d5db
commit 0342f5e87c
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
6 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layouts/ReflectMsg.hs Normal file
View file

@ -0,0 +1,28 @@
{-# LANGUAGE NegativeLiterals #-}
module Leanamonad.Layouts.ReflectMsg where
import XMonad (
Resize (Expand, Shrink),
SomeMessage (SomeMessage),
fromMessage,
)
import XMonad.Layout.LayoutModifier (
LayoutModifier (handleMess, handleMessOrMaybeModifyIt),
ModifiedLayout (ModifiedLayout),
)
data ReflectMsg a = ReflectMsg deriving (Show, Read)
reflectMsg :: l a -> ModifiedLayout ReflectMsg l a
reflectMsg = ModifiedLayout ReflectMsg
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
-- Handle the rest by passing it on
| otherwise = do
mm <- handleMess m mess
return (Left <$> mm)