feat: add window decorations

This commit is contained in:
♥ Minnie ♥ 2025-09-01 17:25:48 +08:00
parent 55a116d47b
commit bfad4fe11a
Signed by: jasmine
GPG key ID: 8563E358D4E8040E

View file

@ -11,6 +11,7 @@ import XMonad.Hooks.Modal
import XMonad.Hooks.StatusBar
import XMonad.Layout.BinarySpacePartition
import XMonad.Layout.NoBorders
import XMonad.Layout.NoFrillsDecoration
import XMonad.Layout.Renamed
import XMonad.Layout.Spacing
import XMonad.StackSet qualified as W
@ -208,12 +209,13 @@ editMode = mode "edit" $ mkKeysEz
myLayouts = myTile ||| myBsp ||| myMax ||| myFull
where
-- our layouts
myTile = renamed [Replace "dynamic tiling" ] . avoidStruts . myGaps $ Tall nmaster delta ratio
myBsp = renamed [Replace "binary space partition"] . avoidStruts . myGaps $ emptyBSP
myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps $ Full
myFull = renamed [Replace "fullscreen" ] . noBorders $ Full
myTile = renamed [Replace "dynamic tiling" ] . avoidStruts . myGaps $ Tall nmaster delta ratio
myBsp = renamed [Replace "binary space partition"] . avoidStruts . myGaps $ emptyBSP
myMax = renamed [Replace "maximised" ] . avoidStruts . myGaps . myDeco $ Full
myFull = renamed [Replace "fullscreen" ] . noBorders $ Full
-- add a configurable amount of space around windows.
myGaps = spacingRaw False (Border 10 10 10 10) True (Border 10 10 10 10) True
myDeco = noFrillsDeco shrinkText def
-- layout configuration
nmaster = 1 -- Default number of windows in the master pane
ratio = 2/3 -- Default proportion of screen occupied by master pane