Update smartspacing
This commit is contained in:
parent
c5b4569491
commit
77a9fd5c11
1 changed files with 3 additions and 1 deletions
|
@ -15,6 +15,7 @@ import XMonad.Layout.Spacing
|
||||||
import XMonad.Layout.ToggleLayouts (toggleLayouts)
|
import XMonad.Layout.ToggleLayouts (toggleLayouts)
|
||||||
import XMonad.Util.EZConfig
|
import XMonad.Util.EZConfig
|
||||||
import qualified Nord as N
|
import qualified Nord as N
|
||||||
|
import qualified XMonad.Layout.Spacing as SS (Border(..))
|
||||||
|
|
||||||
-- Tidy modules
|
-- Tidy modules
|
||||||
import KeyBindings as Keys (modify)
|
import KeyBindings as Keys (modify)
|
||||||
|
@ -25,9 +26,10 @@ import Scratchpad (modify)
|
||||||
--------- toggle btw vvvvvvvvvv or vvvvv
|
--------- toggle btw vvvvvvvvvv or vvvvv
|
||||||
layouts = toggleLayouts fullscreen tiled
|
layouts = toggleLayouts fullscreen tiled
|
||||||
where
|
where
|
||||||
|
smallBorder = SS.Border 5 5 5 5
|
||||||
fullscreen = (noBorders Full)
|
fullscreen = (noBorders Full)
|
||||||
tiled = smarts $ resizableTall ||| (Mirror resizableTall)
|
tiled = smarts $ resizableTall ||| (Mirror resizableTall)
|
||||||
smarts = (smartSpacingWithEdge 5) . smartBorders
|
smarts = (spacingRaw True smallBorder True smallBorder True) . smartBorders
|
||||||
resizableTall = ResizableTall 1 (5/100) (1/2) []
|
resizableTall = ResizableTall 1 (5/100) (1/2) []
|
||||||
|
|
||||||
-- Use the `xprop' tool to get the info you need for these matches.
|
-- Use the `xprop' tool to get the info you need for these matches.
|
||||||
|
|
Loading…
Reference in a new issue