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

vanadium/xmonad: show nmaster count in description

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

27
nix/configurations/vanadium/home/xmonad/lib/Leanamonad/Layout/ResizableTile.hs Normal file
View file

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