mpo
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update smartspacing

This commit is contained in:
EEva (JPotier) 2020-03-10 15:51:05 +02:00
parent c5b4569491
commit 77a9fd5c11
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
xmonad.hs
View File

@ -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.