Xmonad在logHook中添加淡入淡出

Question

我是haskell的初學者，我的問題可能很明顯。我想在xmonad de中添加淡入淡出。代碼：

xmonad $ defaultConfig             
     { manageHook = manageDocks <+> manageHook defaultConfig 
     , layoutHook = smartSpacing 7 $ avoidStruts $ layoutHook defaultConfig 
     , borderWidth = 1 
     , logHook = dynamicLogWithPP $ xmobarPP 
         { ppOutput = hPutStrLn xmproc 
         , ppTitle = xmobarColor "green" "" . shorten 50 
         } 
     , modMask = mod4Mask 
     ... 

我需要追加fadeInactive到logHook。

fadeInactiveLogHook fadeAmount 
    where fadeAmount = 0.8 

我想：

logHook = fadeInactiveLogHook 0.8 $ dynamicLogWithPP $ xmobarPP 
          { ppOutput = hPutStrLn xmproc 
          , ppTitle = xmobarColor "green" "" . shorten 
          } 

但它錯了。

Answer 1

Haskell初學者並不那麼明顯。您必須使用

logHook = fadeInactiveLogHook 0.8 
      <+> dynamicLogWithPP xmobarPP 
        { ppOutput = hPutStrLn xmproc 
        , ppTitle = xmobarColor "green" "" . shorten 50 
        } 

（已得到糾正，根據評論）