add layout

This commit is contained in:
Maximilian Keßler 2022-07-17 08:47:11 +02:00
parent feb2633282
commit b7d544e638
2 changed files with 14 additions and 0 deletions

View file

@ -0,0 +1,13 @@
module XMonad.Custom.Layout (myLayout) where
import XMonad.Layout
import XMonad.Layout.ThreeColumns
myLayout :: Choose Tall (Choose (Mirror Tall) (Choose Full ThreeCol)) a
myLayout = tiled ||| Mirror tiled ||| Full ||| threeCol
where
threeCol = ThreeColMid nmaster delta ratio
tiled = Tall nmaster delta ratio
nmaster = 1 -- Default number of windows in the master pane
ratio = 1/2 -- Default proportion of screen occupied by master pane
delta = 3/100 -- Percent of screen to increment by when resizing panes

View file

@ -14,6 +14,7 @@ library
XMonad.Custom.SystemKeyBindings
XMonad.Custom.ProgramWorkSpaces
XMonad.Custom.UniversitySetup
XMonad.Custom.Layout
hs-source-dirs: src
ghc-options: -funbox-strict-fields -Wall -Wno-unused-do-bind
build-depends: base