使用Xmonad时Xmobar不可见

Question

今天我已经开始使用Xmonad并且无法在布局上看到Xmobar在我身上.xmobarrc我有这些代码:

...
   , position =     TopW L 100
   , lowerOnStart =     True
   , hideOnStart =      False
   , allDesktops =      True
   , overrideRedirect = True
   , pickBroadest =     False
   , persistent =       True

...

这是我的xmonad.hs:

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run(spawnPipe)
import System.IO

main = do
  xmproc <- spawnPipe "xmobar"
  xmonad $ defaultConfig
    { manageHook = manageDocks <+> manageHook defaultConfig
    , layoutHook = avoidStruts  $  layoutHook defaultConfig
    , logHook = dynamicLogWithPP xmobarPP
                    { ppOutput = hPutStrLn xmproc
                    , ppTitle = xmobarColor "green" "" . shorten 50
                    }
    , terminal = "urxvt"
    , modMask = mod4Mask
    }

Xmobar与Xmonad一起运行,但它不可见.我该如何解决？我需要Xmobar始终在监视器顶部可见.

Answer 1

解决方案成立于https://unix.stackexchange.com/questions/288037/

我添加了这个handleEventHook = handleEventHook defaultConfig <+> docksEventHook,现在Xmobar始终可见.