vanadium/xmonad: I like ratio

This commit is contained in:
Primrose 2025-11-19 20:37:50 +08:00
parent 3e603eb1e0
commit e7c50da45f
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -29,6 +29,7 @@ import XMonad.Util.SpawnOnce
import XMonad.Layout.Magnifier
import Data.Char.Greek
import Data.Ratio
import Data.Semigroup
import qualified Data.Map.Strict as M
import System.Posix
@ -325,10 +326,10 @@ chatWS :: WorkspaceId
chatWS = myWorkspaces !! 3
centeredFloat, smallFloat, fullFloat, buttomRightFloat :: W.RationalRect
centeredFloat = W.RationalRect (1/9) (1/9) (7/9) (7/9)
smallFloat = W.RationalRect (3/5) (3/5) (2/7) (2/7)
centeredFloat = W.RationalRect (1%9) (1%9) (7%9) (7%9)
smallFloat = W.RationalRect (3%5) (3%5) (2%7) (2%7)
fullFloat = W.RationalRect 0 0 1 1
buttomRightFloat = W.RationalRect (1/2) (1/2) (1/2) (1/2)
buttomRightFloat = W.RationalRect (1%2) (1%2) (1%2) (1%2)
xmobarConfig :: StatusBarConfig
xmobarConfig = statusBarProp "xmobar -x 0" (pure myPrettyPrinter)