vanadium/xmonad: make IncMaster binding harder to spam

This commit is contained in:
Primrose 2025-11-03 20:51:17 +08:00
parent b123f1650d
commit 8b42644553
Signed by: primrose
GPG key ID: 4E887A4CA9714ADA

View file

@ -137,14 +137,22 @@ main =
-- Toggle fullscreen -- Toggle fullscreen
, ((superMask, xK_Escape), sendMessage NextLayout) , ((superMask, xK_Escape), sendMessage NextLayout)
-- Resize windows -- [I]nc of the main area
, ((superMask, xK_equal ), sendMessage $ IncMasterN 1) --
, ((superMask, xK_minus ), sendMessage $ IncMasterN -1) -- This shouldn't be too easy anyway otherwise if I accidentally spam it,
, ((superMask, xK_comma ), sendMessage Shrink ) -- I wouldn't know how big the main area is.
, ((superMask, xK_period ), sendMessage Expand ) , ( (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_comma ), sendMessage MirrorShrink )
, ((superMask .|. shiftMask, xK_period), sendMessage MirrorExpand ) , ((superMask .|. shiftMask, xK_period ), sendMessage MirrorExpand )
, ((superMask , xK_apostrophe), sendMessage Toggle ) , ((superMask , xK_apostrophe), sendMessage Toggle{-Magnifier-})
-- [D]o sink and lift -- [D]o sink and lift
, ( (superMask, xK_d) , ( (superMask, xK_d)