1
0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-28 02:31:51 -07:00

X.L.Fullscreen: fullscreenSupport advertises fs support in _NET_SUPPORTED

Makes X.L.Fullscreen behave similarly to ewmhFullscreen. See the
X.H.EwmhDesktops commit for details.
This commit is contained in:
Tomas Janousek
2016-10-30 00:56:25 +02:00
parent 7bf8544f1c
commit d07f0a9ee4
2 changed files with 6 additions and 1 deletions

@@ -11,6 +11,9 @@
support in `_NET_SUPPORTED` and fixes fullscreening of applications that support in `_NET_SUPPORTED` and fixes fullscreening of applications that
explicitly check it, e.g. mupdf-gl, sxiv, … explicitly check it, e.g. mupdf-gl, sxiv, …
`XMonad.Layout.Fullscreen.fullscreenSupport` now advertises it as well,
and no configuration changes are required in this case.
### New Modules ### New Modules
* `XMonad.Layout.TallMastersCombo` * `XMonad.Layout.TallMastersCombo`

@@ -32,6 +32,7 @@ module XMonad.Layout.Fullscreen
import XMonad import XMonad
import XMonad.Layout.LayoutModifier import XMonad.Layout.LayoutModifier
import XMonad.Hooks.EwmhDesktops (fullscreenStartup)
import XMonad.Hooks.ManageHelpers (isFullscreen) import XMonad.Hooks.ManageHelpers (isFullscreen)
import XMonad.Util.WindowProperties import XMonad.Util.WindowProperties
import qualified XMonad.Util.Rectangle as R import qualified XMonad.Util.Rectangle as R
@@ -77,7 +78,8 @@ fullscreenSupport :: LayoutClass l Window =>
fullscreenSupport c = c { fullscreenSupport c = c {
layoutHook = fullscreenFull $ layoutHook c, layoutHook = fullscreenFull $ layoutHook c,
handleEventHook = handleEventHook c <+> fullscreenEventHook, handleEventHook = handleEventHook c <+> fullscreenEventHook,
manageHook = manageHook c <+> fullscreenManageHook manageHook = manageHook c <+> fullscreenManageHook,
startupHook = startupHook c <+> fullscreenStartup
} }
-- | Messages that control the fullscreen state of the window. -- | Messages that control the fullscreen state of the window.