upstream patch to fix issues with some games in fullscreen mode

diff --git a/xmonad-border.patch b/xmonad-border.patch
new file mode 100644 (file)
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

diff --git a/xmonad.spec b/xmonad.spec
index 77282503e82943b31ddaf003a411925aa6167910..d3bfe12377db766db5917aef8e488e724f76a77d 100644 (file)
--- 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 \