From bfad4fe11abfd33a86bdd3bfd1bac9f5f4f71404 Mon Sep 17 00:00:00 2001 From: jasmine Date: Mon, 1 Sep 2025 17:25:48 +0800 Subject: [PATCH] feat: add window decorations --- src/xmonad.hs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/src/xmonad.hs b/src/xmonad.hs index 21ae0ad..f902d54 100644 --- a/src/xmonad.hs +++ b/src/xmonad.hs @@ -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