[packages/xmonad] upstream patch to fix issues with some games in fullscreen mode

[atler]

commit b0c421b3793bd3a889b62de604bf1a7585fa794f
Author: Jan Palus <atler at pld-linux.org>
Date:   Fri Dec 11 10:18:39 2015 +0100

    upstream patch to fix issues with some games in fullscreen mode

 xmonad-border.patch | 13 +++++++++++++
 xmonad.spec         |  2 ++
 2 files changed, 15 insertions(+)
---
diff --git a/xmonad.spec b/xmonad.spec
index 7728250..d3bfe12 100644
--- a/xmonad.spec
+++ b/xmonad.spec
@@ -7,6 +7,7 @@ Group:		X11/Window Managers
 Source0:	http://hackage.haskell.org/package/%{name}-%{version}/%{name}-%{version}.tar.gz
 # Source0-md5:	20792f4e428db24e6c0dbecbd77f69e0
 Source1:	%{name}.desktop
+Patch0:		%{name}-border.patch
 URL:		http://www.xmonad.org
 BuildRequires:	ghc >= 6.12.3
 BuildRequires:	ghc-X11 >= 1.6
@@ -49,6 +50,7 @@ Dokumentacja w formacie HTML dla %{name}.
 
 %prep
 %setup -q
+%patch0 -p1
 
 %build
 runhaskell Setup.lhs configure -v2 \
diff --git a/xmonad-border.patch b/xmonad-border.patch
new file mode 100644
index 0000000..0d672c8
--- /dev/null
+++ b/xmonad-border.patch
@@ -0,0 +1,13 @@
+diff --git a/XMonad/Operations.hs b/XMonad/Operations.hs
+index 6bca311..bc69962 100644
+--- a/XMonad/Operations.hs
++++ b/XMonad/Operations.hs
+@@ -450,7 +450,7 @@ floatLocation :: Window -> X (ScreenId, W.RationalRect)
+ floatLocation w = withDisplay $ \d -> do
+     ws <- gets windowset
+     wa <- io $ getWindowAttributes d w
+-    bw <- fi <$> asks (borderWidth . config)
++    let bw = (fromIntegral . wa_border_width) wa
+     sc <- fromMaybe (W.current ws) <$> pointScreen (fi $ wa_x wa) (fi $ wa_y wa)
+ 
+     let sr = screenRect . W.screenDetail $ sc
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/xmonad.git/commitdiff/b0c421b3793bd3a889b62de604bf1a7585fa794f