max/xmonad-custom
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add layout

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/XMonad/Custom/Layout.hs Normal file
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

1
xmonad-custom.cabal
View file

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