vanadium/xmonad: show nmaster count in description

nix/configurations/vanadium/home/xmonad/leanamonad.cabal

@@ -24,7 +24,8 @@ library
   import: common
   hs-source-dirs: lib
   exposed-modules:
-    Leanamonad.Layouts.ReflectMsg
+    Leanamonad.Layout.ReflectMsg
+    Leanamonad.Layout.ResizableTile
     Leanamonad.GreekChar
 
 executable leanamonad

nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layout/ReflectMsg.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE FlexibleInstances #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 
-module Leanamonad.Layouts.ReflectMsg where
+module Leanamonad.Layout.ReflectMsg where
 
 import XMonad (
   Resize (Expand, Shrink),

nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layout/ResizableTile.hs

@@ -0,0 +1,27 @@
+{-# LANGUAGE NamedFieldPuns #-}
+{-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
+
+module Leanamonad.Layout.ResizableTile
+  ( module XMonad.Layout.ResizableTile
+  , RTFixDescription(..)
+  ) where
+
+import XMonad
+import qualified XMonad.StackSet as W
+import XMonad.Layout.ResizableTile
+
+newtype RTFixDescription a = RTFixDescription { unwrapRT :: ResizableTall a }
+    deriving (Read, Show)
+
+instance LayoutClass RTFixDescription a where
+  runLayout (W.Workspace t l s) =
+    let ws' = W.Workspace t (unwrapRT l) s
+    in fmap (fmap (fmap RTFixDescription))
+       . runLayout ws'
+
+  handleMessage (RTFixDescription l) m =
+    fmap (fmap RTFixDescription)
+    $ handleMessage l m
+
+  description (RTFixDescription l) =
+    description l <> " " <> show (_nmaster l)

nix/configurations/vanadium/home/xmonad/xmonad.hs

@@ -26,7 +26,9 @@ import qualified Data.Map.Strict as M
 import System.Posix
 import Graphics.X11.ExtraTypes.XF86
 
-import Leanamonad.Layouts.ReflectMsg
+import Leanamonad.Layout.ReflectMsg
+-- TODO: rename this module
+import Leanamonad.Layout.ResizableTile
 import Leanamonad.GreekChar
 
 main :: IO ()
@@ -65,9 +67,10 @@ main =
             putEnv "MOZ_USE_XINPUT2=1"    -- Force touchpad for firefox
 
       , layoutHook =
-          let tallr = named "Normal"
+          let tallr = renamed [ KeepWordsRight 2 ] {- keep "ResizableTall n" -}
                       $ smartSpacingWithEdge 5
                       $ reflectMsg . reflectHoriz
+                      $ RTFixDescription
                       $ ResizableTall 1 (1/10) (3/7) []
               mag = magnifyxy 1.05 1.3 (NoMaster 3) False
            in avoidStruts . smartBorders $