From 1067bbb0b658fd14c399b7a79eeef833f2308d74 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 10 Nov 2016 13:41:26 -0800
Subject: [PATCH] [XMonad] Disable boringWindows

---
 dotfiles/xmonad/xmonad.hs | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 6d92c22a..3e3987a8 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -88,8 +88,10 @@ layouts = multiCol [1, 1] 2 0.01 (-0.5) ||| Full |||
           Tall 1 (3/100) (1/2) ||| magicFocus (Tall 1 (3/100) (3/4)) |||
           limitWindows 2 (Tall 1 (3/100) (1/2))
 
-myLayoutHook = avoidStruts . smartSpacing 10 . minimize . boringAuto .
-               boringWindows . mkToggle (MIRROR ?? EOT) . workspaceNamesHook .
+myLayoutHook = avoidStruts . smartSpacing 10 . minimize .
+               -- TODO: boring windows does not seem to work
+               -- boringAuto . boringWindows .
+               mkToggle (MIRROR ?? EOT) . workspaceNamesHook .
                smartBorders . noBorders $ layouts
 
 -- WindowBringer
@@ -253,6 +255,12 @@ addKeys conf@XConfig {modMask = modm} =
     , ((modm .|. shiftMask, xK_m), restoreAllMinimized)
     , ((modm, xK_backslash), toggleWS)
 
+    -- TODO: there seems to be a bug with these bindings
+    -- -- Rebind these for boringWindows
+    -- , ((modm, xK_j), focusUp)
+    -- , ((modm, xK_k), focusDown)
+    -- , ((modm, xK_m), focusMaster)
+
     -- Hyper bindings
     , ((mod3Mask, xK_1), toggleFadingForActiveWindow)
     , ((mod3Mask, xK_e), moveTo Next EmptyWS)