jasmine/dotfiles.nix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

update layout

Browse source
This commit is contained in:
♥ Minnie ♥ 2023-07-11 16:15:16 +08:00
parent 24893c706a
commit f94190af50
1 changed files with 6 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
home-manager/common/desktop/xmonad/src/xmonad.hs
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,13 +73,12 @@ 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
@ -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