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
                  }

（已根据评论进行了更正）