From 95ed521889f84d6257f1a50d8a49bdbf835eba14 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= Date: Wed, 10 Dec 2025 09:27:15 +0800 Subject: [PATCH] vanadium/xmonad: magnifier default to off --- .../vanadium/home/xmonad/xmonad.hs | 20 ++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/nix/configurations/vanadium/home/xmonad/xmonad.hs b/nix/configurations/vanadium/home/xmonad/xmonad.hs index a1b0ace7..f8779346 100644 --- a/nix/configurations/vanadium/home/xmonad/xmonad.hs +++ b/nix/configurations/vanadium/home/xmonad/xmonad.hs @@ -69,24 +69,26 @@ main = myLayout = avoidStruts $ smartBorders - $ onWorkspace researchWS (toggleLayouts (magnifier tallr) full) - $ onWorkspace chatWS (toggleLayouts (magnifier tallr) full) - $ onWorkspace multimediaWS (toggleLayouts (magnifier tallr) full) - $ toggleLayouts (magnifier tallr) full + $ onWorkspace researchWS (toggleLayouts (mag tallr) full) + $ onWorkspace chatWS (toggleLayouts (mag tallr) full) + $ onWorkspace multimediaWS (toggleLayouts (mag tallr) full) + $ toggleLayouts (mag tallr) full where + mag = magnifierOff + full = focusTracking Full - tallrN n = + mkTallrN n = smartSpacingWithEdge 5 $ reflectMsg . reflectHoriz $ ResizableTall n (1/10) (3/7) [] tallr = renamed [ Replace "Tall" ] - $ ifMax 3 (tallrN 1) - $ ifMax 5 (tallrN 2) - $ ifMax 7 (tallrN 3) - $ tallrN 4 + $ ifMax 3 (mkTallrN 1) + $ ifMax 5 (mkTallrN 2) + $ ifMax 7 (mkTallrN 3) + $ mkTallrN 4 isSioyek :: Query Bool isSioyek = className =? "sioyek"