From 844b4d4cf5ea6d8208539c56a6370b840540615f Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Wed, 4 Jan 2017 16:35:51 -0800
Subject: [PATCH] [XMonad] Add tabbed layout

---
 dotfiles/xmonad/xmonad.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 8ce37004..69ba961a 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -47,6 +47,7 @@ import           XMonad.Layout.MultiToggle.Instances
 import           XMonad.Layout.NoBorders
 import qualified XMonad.Layout.Renamed as RN
 import           XMonad.Layout.Spacing
+import           XMonad.Layout.Tabbed
 import qualified XMonad.StackSet as W
 import           XMonad.Util.CustomKeys
 import qualified XMonad.Util.Dmenu as DM
@@ -255,6 +256,9 @@ goFullscreen = sendMessage $ Toggle NBFULL
 
 -- Layout setup
 
+myTabConfig =
+  def { activeBorderColor = "#66cccc" }
+
 rename newName = RN.renamed [RN.Replace newName]
 
 layoutsStart layout = (layout, [Layout layout])
@@ -265,7 +269,9 @@ layoutInfo =
   layoutsStart (rename "Columns" $ multiCol [1, 1] 2 0.01 (-0.5)) |||!
   rename "Large Main" (Tall 1 (3 / 100) (3 / 4)) |||!
   rename "2 Columns" (Tall 1 (3 / 100) (1 / 2)) |||!
-  Accordion |||! simpleCross
+  Accordion |||! simpleCross |||! myTabbed
+    where
+      myTabbed = tabbed shrinkText myTabConfig
 
 layoutList = snd layoutInfo