update layout

This commit is contained in:
♥ Minnie ♥ 2023-07-11 16:15:16 +08:00
parent 24893c706a
commit f94190af50

View file

@ -8,9 +8,7 @@ import XMonad.Actions.CycleWS
-- Hooks -- Hooks
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks
-- Layouts
import XMonad.Layout.ThreeColumns
-- Layout modifiers -- Layout modifiers
import XMonad.Layout.Spacing import XMonad.Layout.Spacing
@ -75,14 +73,13 @@ myKeys =
] ]
-- | Layouts -- | Layouts
myLayout = tiled ||| threeCol ||| full myLayout = tiled ||| full
where where
-- Add a configurable amount of space around windows. -- 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 -- Our layouts
tiled = renamed [Replace "Spacing Tiled"] . gaps $ Tall nmaster delta ratio tiled = renamed [Replace "Spacing Tiled"] . avoidStruts . gaps $ Tall nmaster delta ratio
threeCol = renamed [Replace "Spacing Three Column"] . gaps $ ThreeColMid nmaster delta ratio full = renamed [Replace "Fullscreen"] $ noBorders Full
full = renamed [Replace "Fullscreen"] $ noBorders Full
-- Layout settings -- Layout settings
nmaster = 1 -- Default number of windows in the master pane nmaster = 1 -- Default number of windows in the master pane
ratio = 1/2 -- Default proportion of screen occupied by master pane ratio = 1/2 -- Default proportion of screen occupied by master pane
@ -138,7 +135,7 @@ main :: IO ()
main = xmonad main = xmonad
. ewmhFullscreen . ewmhFullscreen
. ewmh . ewmh
. withEasySB (xmobarTop) defToggleStrutsKey . withSB (xmobarTop)
$ myConfig $ myConfig
myConfig = def myConfig = def