From 90efe1bc83715e0a410d8e5bfd266bc68eeb83c2 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Mon, 14 Nov 2016 05:50:26 -0600
Subject: [PATCH] [XMonad] Add accordion layout

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

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 3d08bb87..c184503d 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -25,6 +25,7 @@ import XMonad.Config ()
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.FadeInactive
+import XMonad.Layout.Accordion
 import XMonad.Layout.BoringWindows
 import XMonad.Layout.LayoutCombinators
 import XMonad.Layout.LayoutModifier
@@ -113,7 +114,7 @@ selectToggle = do
 
 -- TODO: Figure out how to disable focus follows mouse for magicFocus
 layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full ||| Tall 1 (3/100) (1/2) |||
-          Tall 1 (3/100) (3/4)
+          Tall 1 (3/100) (3/4) ||| Accordion
 
 myLayoutHook = avoidStruts . minimize . boringAuto . mkToggle (MIRROR ?? EOT) .
                mkToggle (LIMIT ?? EOT) . mkToggle (GAPS ?? EOT) .