New layout logic

This commit is contained in:
Martin Potier 2019-04-17 17:31:38 +03:00
parent 1ebb78cb8a
commit c1c83e186e

View file

@ -9,10 +9,14 @@ import XMonad.Actions.DynamicProjects
import XMonad.Config.Desktop
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders (noBorders, smartBorders)
import XMonad.Layout.PerScreen
import XMonad.Layout.Reflect
import XMonad.Layout.ResizableTile (ResizableTall(..))
import XMonad.Layout.Spacing
import XMonad.Layout.ToggleLayouts (toggleLayouts)
import XMonad.Util.EZConfig
import qualified Solarized as S
@ -26,7 +30,9 @@ import Scratchpad (modify)
layouts = toggleLayouts fullscreen tiled
where
fullscreen = (noBorders Full)
tiled = smarts $ resizableTall ||| (Mirror resizableTall)
tiled = smarts $ ifWider 1280 wideScreen tallScreen
wideScreen = reflectHoriz $ resizableTall
tallScreen = Mirror resizableTall
smarts = (smartSpacingWithEdge 5) . smartBorders
resizableTall = ResizableTall 1 (5/100) (1/2) []