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:
jasmine 2025-10-05 09:52:38 +08:00
parent 7568c2aa01
commit d9521ef2b0
Signed by: jasmine
GPG key ID: 8563E358D4E8040E
1 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

30
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
@ -86,17 +87,14 @@ myKeymap =
-- --
-- cycle windows -- cycle windows
, ("M-<Up>" , windows W.focusUp ) , ("M-<Up>" , windows W.focusUp )
, ("M-<Down>", windows W.focusDown) , ("M-<Down>" , windows W.focusDown)
-- cycle workspaces -- cycle workspaces
, ("M-<Left>" , moveTo Prev hiddenWS) , ("M-<Left>" , moveTo Prev hiddenWS)
, ("M-<Right>", moveTo Next hiddenWS) , ("M-<Right>" , moveTo Next hiddenWS)
-- window rotation -- window rotation
, ("M-<Page_Up>" , rotAllUp) , ("M-<Page_Up>" , rotAllUp)
, ("M-<Page_Down>", rotAllDown) , ("M-<Page_Down>", rotAllDown)
-- focus screens -- focus screens
, ("M-<Home>", prevScreen) , ("M-<Home>", prevScreen)
, ("M-<End>" , nextScreen) , ("M-<End>" , nextScreen)
@ -115,9 +113,17 @@ myKeymap =
, ("M-S-4", windows $ W.shift "games") , ("M-S-4", windows $ W.shift "games")
, ("M-S-5", windows $ W.shift "misc" ) , ("M-S-5", windows $ W.shift "misc" )
-- resize window proportions
, ("M-S-<Up>" , sendMessage MirrorExpand)
, ("M-S-<Down>" , sendMessage MirrorShrink)
, ("M-S-<Left>" , sendMessage Shrink)
, ("M-S-<Right>", sendMessage Expand)
-- master window operations -- master window operations
, ("M-<Delete>", windows W.focusMaster) , ("M-<Delete>" , windows W.focusMaster)
, ("M-S-<Delete>", windows W.swapMaster ) , ("M-S-<Delete>", windows W.swapMaster )
, ("M-S-<Home>" , sendMessage (IncMasterN 1))
, ("M-S-<End>" , sendMessage (IncMasterN (-1)))
-- --
@ -143,15 +149,11 @@ 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)
-- adjust master/slave split (stays in mode)
, ("<Left>", sendMessage Shrink)
, ("<Right>", sendMessage Expand)
, ("<Up>", sendMessage (IncMasterN 1))
, ("<Down>", sendMessage (IncMasterN (-1)))
] ]
spawnMode :: Mode spawnMode :: Mode
spawnMode = mode "launch" $ mkKeysEz spawnMode = mode "launch" $ mkKeysEz
-- spawn programs (exits immediately)
[ ("t", spawn myFileManager >> exitMode) [ ("t", spawn myFileManager >> exitMode)
, ("s", spawn myScrot >> exitMode) , ("s", spawn myScrot >> exitMode)
] ]
@ -164,7 +166,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.