diff --git a/nix/configurations/vanadium/home/xmonad/xmonad.hs b/nix/configurations/vanadium/home/xmonad/xmonad.hs
index 301d0afc..bff7021b 100644
--- a/nix/configurations/vanadium/home/xmonad/xmonad.hs
+++ b/nix/configurations/vanadium/home/xmonad/xmonad.hs
@@ -137,14 +137,22 @@ main =
       -- Toggle fullscreen
       , ((superMask, xK_Escape), sendMessage NextLayout)
 
-      -- Resize windows
-      , ((superMask, xK_equal               ), sendMessage $ IncMasterN  1)
-      , ((superMask, xK_minus               ), sendMessage $ IncMasterN -1)
-      , ((superMask, xK_comma               ), sendMessage Shrink         )
-      , ((superMask, xK_period              ), sendMessage Expand         )
-      , ((superMask .|. shiftMask, xK_comma ), sendMessage MirrorShrink   )
-      , ((superMask .|. shiftMask, xK_period), sendMessage MirrorExpand   )
-      , ((superMask              , xK_apostrophe), sendMessage Toggle     )
+      -- [I]nc of the main area
+      --
+      -- This shouldn't be too easy anyway otherwise if I accidentally spam it,
+      -- I wouldn't know how big the main area is.
+      , ( (superMask, xK_i)
+        , submap $ M.fromList
+            [ ((0, xK_period), sendMessage $ IncMasterN  1)
+            , ((0, xK_comma ), sendMessage $ IncMasterN -1)
+            ]
+        )
+
+      , ((superMask              , xK_comma  ), sendMessage Shrink             )
+      , ((superMask              , xK_period ), sendMessage Expand             )
+      , ((superMask .|. shiftMask, xK_comma  ), sendMessage MirrorShrink       )
+      , ((superMask .|. shiftMask, xK_period ), sendMessage MirrorExpand       )
+      , ((superMask              , xK_apostrophe), sendMessage Toggle{-Magnifier-})
 
       -- [D]o sink and lift
       , ( (superMask, xK_d)