[XMonad] Add a slight fade to inactive window

This commit is contained in:
Ivan Malison 2016-09-27 17:25:36 -07:00
parent 3b6de279e7
commit 52c531cd75
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -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