vanadium/xmonad: magnifier default to off

This commit is contained in:
Primrose 2025-12-10 09:27:15 +08:00
parent a1177c3378
commit 95ed521889
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -69,24 +69,26 @@ main =
myLayout = myLayout =
avoidStruts avoidStruts
$ smartBorders $ smartBorders
$ onWorkspace researchWS (toggleLayouts (magnifier tallr) full) $ onWorkspace researchWS (toggleLayouts (mag tallr) full)
$ onWorkspace chatWS (toggleLayouts (magnifier tallr) full) $ onWorkspace chatWS (toggleLayouts (mag tallr) full)
$ onWorkspace multimediaWS (toggleLayouts (magnifier tallr) full) $ onWorkspace multimediaWS (toggleLayouts (mag tallr) full)
$ toggleLayouts (magnifier tallr) full $ toggleLayouts (mag tallr) full
where where
mag = magnifierOff
full = focusTracking Full full = focusTracking Full
tallrN n = mkTallrN n =
smartSpacingWithEdge 5 smartSpacingWithEdge 5
$ reflectMsg . reflectHoriz $ reflectMsg . reflectHoriz
$ ResizableTall n (1/10) (3/7) [] $ ResizableTall n (1/10) (3/7) []
tallr = tallr =
renamed [ Replace "Tall" ] renamed [ Replace "Tall" ]
$ ifMax 3 (tallrN 1) $ ifMax 3 (mkTallrN 1)
$ ifMax 5 (tallrN 2) $ ifMax 5 (mkTallrN 2)
$ ifMax 7 (tallrN 3) $ ifMax 7 (mkTallrN 3)
$ tallrN 4 $ mkTallrN 4
isSioyek :: Query Bool isSioyek :: Query Bool
isSioyek = className =? "sioyek" isSioyek = className =? "sioyek"