From 52c531cd7500a6cc09776c074ad7f8f0c0aca611 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Tue, 27 Sep 2016 17:25:36 -0700
Subject: [PATCH] [XMonad] Add a slight fade to inactive window

---
 dotfiles/xmonad/xmonad.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 6826d5ba..e3165b3d 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -5,6 +5,7 @@ import XMonad.Actions.WindowBringer
 import XMonad.Config ()
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Hooks.ManageDocks
+import XMonad.Hooks.FadeInactive
 import XMonad.Layout.LayoutCombinators
 import XMonad.Layout.MultiToggle
 import XMonad.Layout.MultiToggle.Instances
@@ -19,11 +20,15 @@ main = xmonad $ ewmh $ pagerHints def
        , terminal = "urxvt"
        , manageHook = manageDocks <+> manageHook def
        , layoutHook = myLayoutHook
+       , logHook = myLogHook
        , handleEventHook = docksEventHook <+> fullscreenEventHook
        , startupHook = myStartup
        , keys = customKeys delKeys addKeys
        }
 
+myLogHook :: X()
+myLogHook = fadeInactiveLogHook 0.9
+
 delKeys _ = []
 
 shiftThenView i = W.greedyView i . W.shift i