From 624150557ca8d426211671c6951bef646d99bd7c Mon Sep 17 00:00:00 2001
From: Craige McWhirter <craige@mcwhirter.io>
Date: Thu, 8 Dec 2022 21:08:24 +1000
Subject: [PATCH] xmonad: set ThreeColMid as default layout

---
 .xmonad/xmonad.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index b29c7f3..6b512d1 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -9,6 +9,7 @@ import XMonad.Hooks.StatusBar
 import XMonad.Layout.Decoration
 import XMonad.Layout.Hidden
 import XMonad.Layout.Spacing
+import XMonad.Layout.ThreeColumns
 import XMonad.Prompt
 import XMonad.Util.EZConfig
 import XMonad.Util.Loggers
@@ -30,7 +31,7 @@ main =
     . withEasySB (statusBarProp "xmobar" (pure myXmobarPP)) defToggleStrutsKey
     $ myConfig
 
-myConfig :: XConfig (Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full))
+-- myConfig :: XConfig (Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full))
 myConfig =
   def
     { borderWidth = 1,
@@ -220,8 +221,8 @@ myKeybinds =
 -- Layout --
 ------------
 
-myLayout :: Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full) a
-myLayout = tiled ||| Mirror tiled ||| Full
+-- myLayout :: Choose (ModifiedLayout Spacing Tall) (Choose (Mirror (ModifiedLayout Spacing Tall)) Full) a
+myLayout = ThreeColMid 1 (3/100) (1/2) ||| tiled ||| Mirror tiled ||| Full
   where
     tiled = spacingWithEdge 5 $ Tall nmaster delta ratio
     nmaster = 1