XMonad 中的全屏适用于 Chrome，但不适用于 Firefox

Question

我搜索过处于类似情况的人，但主要发现的是那些无法让 Chrome 全屏显示，但 Firefox 可以全屏显示的人。

就我而言，我只能在 Chrome 中全屏工作，而不能在 Firefox 中工作。我的意思是，当我按 时F11，Chrome 会正确覆盖上面的 xmobar，但 Firefox 不会。 Firefox 进入全屏模式，隐藏选项卡菜单和标题栏，但它仍然平铺且不覆盖 xmobar，如下所示：

我的xmonad.hs内容很长，但我已尽可能缩小范围以使其更容易：

import XMonad.Hooks.ManageDocks
import XMonad.Hooks.ManageHelpers
import XMonad.Layout.NoBorders
import XMonad.Util.Run(spawnPipe)
import XMonad.Hooks.FloatNext (floatNextHook)
import XMonad.Actions.SpawnOn
import qualified XMonad.Hooks.EwmhDesktops as EWMH
import System.IO
import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Layout.ResizableTile

myManageHook = manageDocks <+>
               floatNextHook <+>
               (isFullscreen --> doFullFloat) <+>
               manageHook defaultConfig
myLayout = smartBorders . avoidStruts $ Full ||| tiled
  where tiled = ResizableTall 1 (3 / 100) (2 / 3) [ 2 / 3]


main = do
  xmproc <- spawnPipe "xmobar"
  xmonad $
    EWMH.ewmh defaultConfig {
        manageHook = myManageHook <+> manageSpawn
      , handleEventHook = handleEventHook defaultConfig <+> EWMH.fullscreenEventHook
      , logHook = dynamicLogWithPP $ xmobarPP { ppOutput = hPutStrLn xmproc }
      , layoutHook         = myLayout
  }

上面的截图是用这个拍摄的xmonad.hs。

我也可以获得扎图拉进入全屏，但不是 VLC 或 Spacemacs。