From 8bd0b1cb10b8c75c5e1ff624c2214455727a88d5 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Sat, 21 Aug 2021 13:48:33 -0600
Subject: [PATCH] [XMonad] Use gotham tab theme

---
 dotfiles/config/xmonad/xmonad.hs | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/dotfiles/config/xmonad/xmonad.hs b/dotfiles/config/xmonad/xmonad.hs
index 8ce40170..198e3948 100644
--- a/dotfiles/config/xmonad/xmonad.hs
+++ b/dotfiles/config/xmonad/xmonad.hs
@@ -66,6 +66,7 @@ import           XMonad.Layout.Accordion
 import           XMonad.Layout.BoringWindows
 import           XMonad.Layout.ConditionalLayout
 import           XMonad.Layout.Cross
+import           XMonad.Layout.Decoration
 import           XMonad.Layout.Grid
 import           XMonad.Layout.LayoutCombinators
 import           XMonad.Layout.LayoutModifier
@@ -90,7 +91,6 @@ import           XMonad.Util.Minimize
 import           XMonad.Util.NamedScratchpad as NS
 import           XMonad.Util.NamedWindows (getName)
 import           XMonad.Util.Run
-import           XMonad.Util.Themes
 import           XMonad.Util.WorkspaceCompare
 
 myConfig = def
@@ -100,8 +100,6 @@ myConfig = def
     = namedScratchpadManageHook scratchpads
   , layoutHook = myLayoutHook
   , borderWidth = 0
-  , normalBorderColor = "#0096ff"
-  , focusedBorderColor = "#ffff00"
   , logHook
   = updatePointer (0.5, 0.5) (0, 0)
   <> toggleFadeInactiveLogHook 0.9
@@ -118,6 +116,18 @@ myConfig = def
   , keys = customKeys (const []) addKeys
   }
 
+gothamTheme =
+  def
+  { inactiveBorderColor = "#000"
+  , activeBorderColor = "#edb443"
+  , activeColor = "#edb443"
+  , inactiveColor = "#091f2e"
+  , inactiveTextColor = "#edb443"
+  , activeTextColor = "#091f2e"
+  , fontName = "xft:Source Code Pro:style=Semibold"
+  , decoHeight = 25
+  }
+
 restartEventHook e@ClientMessageEvent { ev_message_type = mt } = do
   a <- getAtom "XMONAD_RESTART"
   if mt == a
@@ -406,7 +416,7 @@ layoutInfo =
   rename "2 Columns" (Tall 1 (3 / 100) (1 / 2)) |||!
   Accordion |||! simpleCross |||! myTabbed
     where
-      myTabbed = rename "Tabbed" $ tabbed shrinkText (theme robertTheme)
+      myTabbed = rename "Tabbed" $ tabbed shrinkText gothamTheme
 
 layoutList = snd layoutInfo