new patch to advertise _NET_WM_STATE_FULLSCREEN if ewmh is enabled

diff --git a/ghc-xmonad-contrib.spec b/ghc-xmonad-contrib.spec
index f03e741cf8e2a17a75b9469c7599ed0eb1bc82af..5632f980c2ab392f166b3e591334045b38414a6d 100644 (file)
--- a/ghc-xmonad-contrib.spec
+++ b/ghc-xmonad-contrib.spec
@@ -7,6 +7,7 @@ License:        BSD
 Group:         Development/Languages
 Source0:       http://hackage.haskell.org/package/%{pkgname}-%{version}/%{pkgname}-%{version}.tar.gz
 # Source0-md5: 39345f462f069f2f0e4a488f7e435dbb
+Patch0:                net_wm_state_fullscreen.patch
 URL:           http://www.xmonad.org
 BuildRequires: ghc >= 6.12.3
 BuildRequires: ghc-X11 >= 1.6.1
@@ -44,6 +45,7 @@ Dokumentacja w formacie HTML dla %{pkgname}.
 
 %prep
 %setup -q -n %{pkgname}-%{version}
+%patch0 -p0
 
 %build
 runhaskell Setup.lhs configure -v2 \

diff --git a/net_wm_state_fullscreen.patch b/net_wm_state_fullscreen.patch
new file mode 100644 (file)
index 0000000..499c764
--- /dev/null
+++ b/net_wm_state_fullscreen.patch
@@ -0,0 +1,10 @@
+--- XMonad/Hooks/EwmhDesktops.hs.orig  2016-08-18 22:08:02.386854722 +0200
++++ XMonad/Hooks/EwmhDesktops.hs       2016-08-18 22:08:39.046646443 +0200
+@@ -243,6 +243,7 @@
+     c <- getAtom "ATOM"
+     supp <- mapM getAtom ["_NET_WM_STATE_HIDDEN"
+                          ,"_NET_NUMBER_OF_DESKTOPS"
++                         ,"_NET_WM_STATE_FULLSCREEN"
+                          ,"_NET_CLIENT_LIST"
+                          ,"_NET_CLIENT_LIST_STACKING"
+                          ,"_NET_CURRENT_DESKTOP"