xmonad: don't zoom master

This commit is contained in:
Primrose 2024-11-10 11:27:55 +01:00
parent e644f0ef12
commit b416ff78d0
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -21,7 +21,7 @@ import XMonad.Layout.NoBorders (Ambiguity (OnlyScreenFloat),
lessBorders) lessBorders)
import XMonad.Layout.Reflect (reflectHoriz) import XMonad.Layout.Reflect (reflectHoriz)
import XMonad.Layout.Spacing (spacingWithEdge) import XMonad.Layout.Spacing (spacingWithEdge)
import XMonad.Layout.Magnifier (magnifierOff, MagnifyMsg (Toggle, MagnifyMore, MagnifyLess)) import XMonad.Layout.Magnifier (magnifierczOff', MagnifyMsg (Toggle, MagnifyMore, MagnifyLess))
import XMonad.Hooks.DynamicLog (PP (ppCurrent, ppHiddenNoWindows, ppSep), import XMonad.Hooks.DynamicLog (PP (ppCurrent, ppHiddenNoWindows, ppSep),
filterOutWsPP, wrap, xmobarColor) filterOutWsPP, wrap, xmobarColor)
@ -81,8 +81,8 @@ myLayoutHook =
full = Full full = Full
in lessBorders OnlyScreenFloat in lessBorders OnlyScreenFloat
. spacingWithEdge 5 . spacingWithEdge 1
$ magnifierOff tallr ||| full $ magnifierczOff' 1.5 tallr ||| full
centeredFloat = customFloating $ W.RationalRect (1/9) (1/9) (7/9) (7/9) centeredFloat = customFloating $ W.RationalRect (1/9) (1/9) (7/9) (7/9)
smallFloat = customFloating $ W.RationalRect (3/5) (3/5) (2/7) (2/7) smallFloat = customFloating $ W.RationalRect (3/5) (3/5) (2/7) (2/7)