From 01e5b41bad2e39f4ce0a34eb8ea51711d571bed1 Mon Sep 17 00:00:00 2001
From: Hektor Misplon <hektor.misplon@pm.me>
Date: Tue, 25 Oct 2022 21:14:38 +0200
Subject: [PATCH] Update layouts

---
 .xmonad/xmonad.hs | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
index d29f233..b80656a 100644
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -64,11 +64,17 @@ myXmobarPP = def
 
 
 
--- Magnifier is off by default (can be controlled using arrow keys)
-myLayout = smartBorders $
+-- layoutHook
+myLayoutHook= smartBorders $
+             -- Column layouts
+             threeCol |||
              threeColMid |||
+             -- Tiled layouts
+             --   Note: magnifier is off by default
+             --   (controllable usingarrow keys)
              magnifiercz magnificationFactorH tiled |||
              magnifiercz magnificationFactorV (Mirror tiled) |||
+             -- Single window / monocle layout
              Full
   where
     magnificationFactorV = 1.384
@@ -148,11 +154,10 @@ myKeysP = [
   , ("M--", sendMessage MagnifyLess >> sendMessage Mag.ToggleOn)
   -- Reset magnification
   , ("M-S-=", sendMessage Mag.ToggleOff)
-
-  , ("M-t", sendMessage $ JumpToLayout "Tall")
+  -- Layouts
+  , ("M-t", sendMessage $ JumpToLayout "Magnifier Tall")
+  , ("M-c", sendMessage $ JumpToLayout "ThreeCol")
   , ("M-f", sendMessage $ JumpToLayout "Full")
-  , ("M-S-\\", sendMessage $ JumpToLayout "ThreeCol")
-
   ]
 
 -- Keybindings to be removed