xmonad: refactor config

.config/xmonad/lib/XMonad/Leana/Layouts/ReflectMsg.hs

@@ -0,0 +1,26 @@
+module XMonad.Leana.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)