jasmine/xmonad-config
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

switch to resizable tall layout

Browse source
This commit is contained in:
♥ Minnie ♥ 2025-10-05 09:52:38 +08:00
parent 7568c2aa01
commit 57ce188b85
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/xmonad.hs
View file

@ -10,6 +10,7 @@ import XMonad.Hooks.Modal
import XMonad.Hooks.StatusBar import XMonad.Hooks.StatusBar
import XMonad.Layout.NoBorders import XMonad.Layout.NoBorders
import XMonad.Layout.Renamed import XMonad.Layout.Renamed
import XMonad.Layout.ResizableTile
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
import XMonad.StackSet qualified as W import XMonad.StackSet qualified as W
import XMonad.Util.EZConfig import XMonad.Util.EZConfig
@ -143,11 +144,14 @@ layoutMode = mode "layout" $ mkKeysEz
[ ("t", sendMessage (JumpToLayout "dynamic tiling") >> exitMode) [ ("t", sendMessage (JumpToLayout "dynamic tiling") >> exitMode)
, ("m", sendMessage (JumpToLayout "maximised" ) >> exitMode) , ("m", sendMessage (JumpToLayout "maximised" ) >> exitMode)
, ("f", sendMessage (JumpToLayout "fullscreen" ) >> exitMode) , ("f", sendMessage (JumpToLayout "fullscreen" ) >> exitMode)
-- resize tiles
, ("Page_Up" , sendMessage MirrorShrink)
, ("Page_Down", sendMessage MirrorExpand)
-- adjust master/slave split (stays in mode) -- adjust master/slave split (stays in mode)
, ("<Left>", sendMessage Shrink) , ("<Left>" , sendMessage Shrink)
, ("<Right>", sendMessage Expand) , ("<Right>" , sendMessage Expand)
, ("<Up>", sendMessage (IncMasterN 1)) , ("<Up>" , sendMessage (IncMasterN 1))
, ("<Down>", sendMessage (IncMasterN (-1))) , ("<Down>" , sendMessage (IncMasterN (-1)))
] ]
spawnMode :: Mode spawnMode :: Mode
@ -164,7 +168,7 @@ spawnMode = mode "launch" $ mkKeysEz
myLayouts = myTile ||| myMax ||| myFull myLayouts = myTile ||| myMax ||| myFull
where where
-- our layouts -- 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 myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps $ Full
myFull = renamed [Replace "fullscreen" ] . noBorders $ Full myFull = renamed [Replace "fullscreen" ] . noBorders $ Full
-- add a configurable amount of space around windows. -- add a configurable amount of space around windows.