Xmonad 为 logHook 添加淡入淡出

Xmonad add fading to logHook

我是 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 
                            }

但这是错误的。

对于 Haskell 初学者来说不是那么明显。您必须使用

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

(已根据评论更正)