From 57ce188b859d29c441e8a857f3515607d17c2b92 Mon Sep 17 00:00:00 2001 From: jasmine Date: Sun, 5 Oct 2025 09:52:38 +0800 Subject: [PATCH] switch to resizable tall layout --- src/xmonad.hs | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/src/xmonad.hs b/src/xmonad.hs index 55e5520..537010c 100644 --- a/src/xmonad.hs +++ b/src/xmonad.hs @@ -10,6 +10,7 @@ import XMonad.Hooks.Modal import XMonad.Hooks.StatusBar import XMonad.Layout.NoBorders import XMonad.Layout.Renamed +import XMonad.Layout.ResizableTile import XMonad.Layout.Spacing import XMonad.StackSet qualified as W import XMonad.Util.EZConfig @@ -143,11 +144,14 @@ layoutMode = mode "layout" $ mkKeysEz [ ("t", sendMessage (JumpToLayout "dynamic tiling") >> exitMode) , ("m", sendMessage (JumpToLayout "maximised" ) >> exitMode) , ("f", sendMessage (JumpToLayout "fullscreen" ) >> exitMode) + -- resize tiles + , ("Page_Up" , sendMessage MirrorShrink) + , ("Page_Down", sendMessage MirrorExpand) -- adjust master/slave split (stays in mode) - , ("", sendMessage Shrink) - , ("", sendMessage Expand) - , ("", sendMessage (IncMasterN 1)) - , ("", sendMessage (IncMasterN (-1))) + , ("" , sendMessage Shrink) + , ("" , sendMessage Expand) + , ("" , sendMessage (IncMasterN 1)) + , ("" , sendMessage (IncMasterN (-1))) ] spawnMode :: Mode @@ -164,7 +168,7 @@ spawnMode = mode "launch" $ mkKeysEz myLayouts = myTile ||| myMax ||| myFull where -- our layouts - myTile = renamed [Replace "dynamic tiling"] . avoidStruts . myGaps $ Tall nmaster delta ratio + myTile = renamed [Replace "dynamic tiling"] . avoidStruts . myGaps $ ResizableTall nmaster delta ratio [] myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps $ Full myFull = renamed [Replace "fullscreen" ] . noBorders $ Full -- add a configurable amount of space around windows.