Play with compositing

1 files changed, 9 insertions, 1 deletions

diff --git a/desktop/xmonad/xmonad.hs b/desktop/xmonad/xmonad.hs
index feef6cb..edf5cdc 100644
--- a/desktop/xmonad/xmonad.hs
+++ b/desktop/xmonad/xmonad.hs
@@ -19,6 +19,8 @@ import XMonad.Layout.MultiToggle
 import XMonad.Layout.MultiToggle.Instances
 import XMonad.Actions.WindowGo
 import Control.Monad (liftM2)
+import XMonad.Hooks.FadeInactive
+
 
 launchInSpeshulTerminal :: String -> String -> X ()
 launchInSpeshulTerminal roleTitle cmd = do
@@ -47,13 +49,19 @@ myManageHook =
   where 
     viewShift = doF . liftM2 (.) W.greedyView W.shift
 
+
+myLogHook client pp =
+  (logHook gnomeConfig) >> dbusLogWithPP client pp >> fadeInactiveLogHook fadeAmount
+  where fadeAmount = 0.8
+
+
 main :: IO ()
 main = do
   client <- connectSession
   let pp = taffybarDefaultPP { ppSort = DO.getSortByOrder }
   xmonad $ gnomeConfig
               { modMask = mod4Mask
-              , logHook = (logHook gnomeConfig) >> dbusLogWithPP client pp
+              , logHook = myLogHook client pp
               , manageHook = myManageHook <+> manageHook gnomeConfig
               , workspaces = defaultWorkSpaces
               , handleEventHook = fullscreenEventHook