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"