From 0a50efa68ece475674fd7d67beda63ed39885e68 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=E5=8D=83=E4=BD=8F=E6=9F=B1=E9=96=93?= <hashirama@cock.li>
Date: Sat, 16 Mar 2024 15:09:27 +0000
Subject: [PATCH] a better layout

do horizontal first, and if a third window is added, enable vertical mode
---
 xmonad/xmonad.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs
index e0c6b5a..b629762 100644
--- a/xmonad/xmonad.hs
+++ b/xmonad/xmonad.hs
@@ -34,6 +34,8 @@ import XMonad.Layout.SimplestFloat
 import XMonad.Layout.Spacing
 import XMonad.Actions.PerWindowKeys 
 import XMonad.Actions.FindEmptyWorkspace
+import XMonad.Layout.Grid
+import XMonad.Layout.PerScreen (ifWider)
 
 
 main :: IO ()
@@ -96,11 +98,12 @@ myTheme = def
     }
 
 
+
+
 myLayout = mouseResize $ spacingRaw True (Border 10 10 10 10) True (Border 10 10 10 10) True $
-           Tall 1 (3/100) (1/2) ||| Full
-
-
-
+           tallLayout ||| Full
+    where
+        tallLayout = Tall 2 (3/100) (1/2)
 
 myXmobarPP :: PP
 myXmobarPP = def