From b26477ec71d5a0630db407faeb7c38ca67dde169 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Mon, 11 Jul 2022 18:14:08 -0400
Subject: Update xmonad workspaces and layouts

---
 lib/xmonad.hs | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'lib/xmonad.hs')

diff --git a/lib/xmonad.hs b/lib/xmonad.hs
index 30c6afd..9972bf0 100644
--- a/lib/xmonad.hs
+++ b/lib/xmonad.hs
@@ -118,15 +118,15 @@ goldenSpiral :: SpiralWithDir a
 goldenSpiral = spiral (6 / 7)
 
 myWorkspaces :: [String]
-myWorkspaces = ["1[chat]", "2[emacs]", "3[work]", "4[dandel]", "5[sabten]", "6[study]"] ++ map show [7 .. 9]
+myWorkspaces = ["1[work]", "2[chat]", "3[lithium]", "4", "5[mon]", "6"] ++ map show [7 .. 9]
 
 addSpace :: l a -> ModifiedLayout Spacing l a
 addSpace =
   spacingRaw
+    False
+    (Border 10 10 10 10)
     True
-    (Border 5 5 5 5)
-    True
-    (Border 5 5 5 5)
+    (Border 10 10 10 10)
     True
 
 myTabCfg theme =
@@ -141,16 +141,16 @@ myTabCfg theme =
 myLayout theme =
   avoidStruts $
     noBorders (tabbed shrinkText $ myTabCfg theme)
-      ||| noBorders Full
+      ||| (addSpace $ noBorders Full)
       ||| twopane
       ||| Mirror twopane
-      ||| ThreeCol 1 (3 / 100) (1 / 2)
-      ||| ThreeColMid 1 (3 / 100) (1 / 2)
+--      ||| ThreeCol 1 (3 / 100) (1 / 2)
+--      ||| ThreeColMid 1 (3 / 100) (1 / 2)
       ||| tiled
       ||| Mirror tiled
       ||| emptyBSP
-      ||| goldenSpiral
-      ||| Spiral R Dwindle.CW (3 / 2) (11 / 10) -- L/R is where to put non-main windows
+--      ||| goldenSpiral
+--      ||| Spiral R Dwindle.CW (3 / 2) (11 / 10) -- L/R is where to put non-main windows
   where
     -- The last parameter is fraction to multiply the slave window heights
     -- with. Useless here.
-- 
cgit v1.2.3