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

New layout logic

Browse source
This commit is contained in:
Martin Potier 2019-04-17 17:31:38 +03:00
parent 1ebb78cb8a
commit c1c83e186e
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
xmonad.hs
View file

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