haskell - 如何为每个屏幕生成 XMobar 实例？

Question

这个问题有一个适当的答案，但它隐藏了我在“spawn xmobar”评论中发现的所有困难。
- 如何为不同的屏幕生成一个 xmobar 实例？
- 如果这不是一个选项，如何在多个屏幕上生成多个实例？
- 如何使用多个 xmobar 实例设置 logHook？

Answer 1

例如这样的：

import XMonad
import XMonad.Util.Run
import XMonad.Layout.IndependentScreens

main = do
    n <- countScreens
    xmprocs <- mapM (\i -> spawnPipe $ "xmobar /home/biskulopty/.xmobarrc-" ++ show i ++ " -x " ++ show i) [0..n-1]
    xmonad def {
        logHook = {- use xmprocs, which is a list of pipes of type [Handle] -}
    }