当我使用 F11 键进入全屏模式，或单击 Youtube 或 Netflix 中的全屏按钮时，Chrome 似乎会缩放页面以适应屏幕大小，并且页面将被裁剪到其包含的窗口。但是，在使用 mod + space 切换布局后，它会缩放以正确适应包含窗口。
第一次进入全屏模式时，如何使 Chrome 的缩放适应其窗口而不是整个屏幕？
我尝试了XMonad.Hooks.EwmhDesktops 和XMonad.Layout.Fullscreen 中的函数，但仍然找不到方法。
我在 Arch 上使用 Google Chrome 57.0.2987.98 和 xmonad 0.13。谢谢！
【问题讨论】：
标签： google-chrome haskell archlinux xmonad
我的解决方案是使用来自EWMH 的fullscreenEventHook 的修改版本。
fullscreenEventHook :: Event -> Bool -> X All
fullscreenEventHook (ClientMessageEvent _ _ _ dpy win typ (action:dats)) isChrome = do
wmstate <- getAtom "_NET_WM_STATE"
fullsc <- getAtom "_NET_WM_STATE_FULLSCREEN"
wstate <- fromMaybe [] `fmap` getProp32 wmstate win
let isFull = fromIntegral fullsc `elem` wstate
-- Constants for the _NET_WM_STATE protocol:
remove = 0
add = 1
toggle = 2
ptype = 4 -- The atom property type for changeProperty
chWstate f = io $ changeProperty32 dpy win wmstate ptype propModeReplace (f wstate)
uglyChromeHack x = do
when (not isChrome) x
when isChrome $ windows W.swapUp >> windows W.swapDown
when (typ == wmstate && fi fullsc `elem` dats) $ do
when (action == add || (action == toggle && not isFull)) $ do
chWstate (fi fullsc:)
uglyChromeHack $ windows $ W.float win $ W.RationalRect 0 0 1 1
when (action == remove || (action == toggle && isFull)) $ do
chWstate $ delete (fi fullsc)
uglyChromeHack $ windows $ W.sink win
return $ All True
fullscreenEventHook _ _ = return $ All True
butNotChrome :: Event -> X All
butNotChrome e@(ClientMessageEvent _ _ _ _ win _ _) = do
isChrome <- runQuery (appName =? "google-chrome") win
fullscreenEventHook e isChrome
butNotChrome _ = return $ All True
windows W.swapUp >> windows W.swapDown 这个位似乎对 chrome 来说已经够用力了。
【讨论】：
这个问题也困扰了我一段时间。我在我的 xmonad 配置文件中尝试了各种组合，但没有运气。但我最近发现了“Vivaldi”，一个基于 Chromium 引擎的浏览器，由 Opera 浏览器的前 CEO 领导。它通过使用“切换 UI”选项（默认情况下为 Ctrl-F11）完全实现您想要的。
【讨论】：
您需要将以下内容添加到您的配置 (xmonad.hs)：
import XMonad.Hooks.EwmhDesktops
main = xmonad $ ewmh (yourExistingConfigValueGoesHereExample { handleEventHook =
handleEventHook def <+> fullscreenEventHook })
更多信息可以在这里找到：http://xmonad.org/xmonad-docs/xmonad-contrib/XMonad-Hooks-EwmhDesktops.html
这个功能也被绑定到 desktopConfig 中（xmonad 的一种合理的默认设置）。 https://hackage.haskell.org/package/xmonad-contrib-0.13/docs/XMonad-Config-Desktop.html
【讨论】：