From f94190af500892c56bd77ad298e6bd71328e3d94 Mon Sep 17 00:00:00 2001 From: sajenim Date: Tue, 11 Jul 2023 16:15:16 +0800 Subject: [PATCH] update layout --- home-manager/common/desktop/xmonad/src/xmonad.hs | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/home-manager/common/desktop/xmonad/src/xmonad.hs b/home-manager/common/desktop/xmonad/src/xmonad.hs index 0fad621..8c019ae 100644 --- a/home-manager/common/desktop/xmonad/src/xmonad.hs +++ b/home-manager/common/desktop/xmonad/src/xmonad.hs @@ -8,9 +8,7 @@ import XMonad.Actions.CycleWS -- Hooks import XMonad.Hooks.EwmhDesktops - --- Layouts -import XMonad.Layout.ThreeColumns +import XMonad.Hooks.ManageDocks -- Layout modifiers import XMonad.Layout.Spacing @@ -75,14 +73,13 @@ myKeys = ] -- | Layouts -myLayout = tiled ||| threeCol ||| full +myLayout = tiled ||| full where -- Add a configurable amount of space around windows. - gaps = spacingRaw False (Border 50 50 50 50) True (Border 10 10 10 10) True + gaps = spacingRaw False (Border 10 10 10 10) True (Border 10 10 10 10) True -- Our layouts - tiled = renamed [Replace "Spacing Tiled"] . gaps $ Tall nmaster delta ratio - threeCol = renamed [Replace "Spacing Three Column"] . gaps $ ThreeColMid nmaster delta ratio - full = renamed [Replace "Fullscreen"] $ noBorders Full + tiled = renamed [Replace "Spacing Tiled"] . avoidStruts . gaps $ Tall nmaster delta ratio + full = renamed [Replace "Fullscreen"] $ noBorders Full -- Layout settings nmaster = 1 -- Default number of windows in the master pane ratio = 1/2 -- Default proportion of screen occupied by master pane @@ -138,7 +135,7 @@ main :: IO () main = xmonad . ewmhFullscreen . ewmh - . withEasySB (xmobarTop) defToggleStrutsKey + . withSB (xmobarTop) $ myConfig myConfig = def