diff --git a/src/XMonad/Custom/Layout.hs b/src/XMonad/Custom/Layout.hs new file mode 100644 index 0000000..ed83508 --- /dev/null +++ b/src/XMonad/Custom/Layout.hs @@ -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 diff --git a/xmonad-custom.cabal b/xmonad-custom.cabal index 485417b..bc7a324 100644 --- a/xmonad-custom.cabal +++ b/xmonad-custom.cabal @@ -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