From 2214ee8c6bd6330f621de9a65e1662fcdbcfddb1 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 30 Nov 2016 17:18:31 -0600 Subject: [PATCH] [XMonad] Refactor toggleFadeInactiveLogHook --- dotfiles/xmonad/xmonad.hs | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 4d1733c2..266dcfa2 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -368,9 +368,11 @@ getWorkspaceToScreen = M.fromList . mapP' (W.tag . W.workspace) W.screen <$> get getWindowScreen = M.lookup <$> getWindowWorkspace <*> liftX getWorkspaceToScreen getCurrentScreen = join (withFocusedD Nothing (runQuery getWindowScreen)) -toggleFadeInactiveLogHook = - fadeOutLogHook . - fadeIf (isUnfocused <&&> fadeEnabledForWindow <&&> fadeEnabledForWorkspace <&&> fadeEnabledForScreen) +fadeCondition = + isUnfocused <&&> fadeEnabledForWindow <&&> + fadeEnabledForWorkspace <&&> fadeEnabledForScreen + +toggleFadeInactiveLogHook = fadeOutLogHook . fadeIf fadeCondition toggleFadingForActiveWindow = withWindowSet $ maybe (return ()) toggleFading . W.peek