vanadium/xmonad: show nmaster count in description

This commit is contained in:
Primrose 2025-11-04 10:50:29 +08:00
parent b123f1650d
commit 073078a922
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA
4 changed files with 35 additions and 4 deletions

View file

@ -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 $