add layout
This commit is contained in:
parent
feb2633282
commit
b7d544e638
2 changed files with 14 additions and 0 deletions
13
src/XMonad/Custom/Layout.hs
Normal file
13
src/XMonad/Custom/Layout.hs
Normal 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
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue