From 0a8e68b4589539e093c1dc9168fdd2197418fd00 Mon Sep 17 00:00:00 2001
From: Peter Jones <pjones@devalot.com>
Date: Tue, 7 Feb 2017 15:42:35 -0700
Subject: [PATCH] Delete _NET_WORKAREA instead of setting it

References:

  * https://github.com/awesomeWM/awesome/commit/9c020877dd1357d7d42a29526d3567586f3db330

  * https://github.com/qtile/qtile/issues/847

  * https://github.com/i3/i3/commit/eec80838ab39377f18e3f68dc8a27923ae19e57e

  * https://github.com/xmonad/xmonad-contrib/pull/79
---
 XMonad/Hooks/ManageDocks.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/XMonad/Hooks/ManageDocks.hs b/XMonad/Hooks/ManageDocks.hs
index d11d8110..0e0e9d6c 100644
--- a/XMonad/Hooks/ManageDocks.hs
+++ b/XMonad/Hooks/ManageDocks.hs
@@ -246,7 +246,9 @@ instance Message SetStruts
 instance LayoutModifier AvoidStruts a where
     modifyLayout (AvoidStruts ss) w r = do
         srect <- fmap ($ r) (calcGap ss)
-        setWorkarea srect
+        -- Ensure _NET_WORKAREA is not set.
+        -- See: https://github.com/xmonad/xmonad-contrib/pull/79
+        rmWorkarea
         runLayout w srect
 
     pureMess as@(AvoidStruts ss) m
@@ -262,13 +264,11 @@ instance LayoutModifier AvoidStruts a where
             toggleOne x xs | x `S.member` xs = S.delete x xs
                            | otherwise   = x `S.insert` xs
 
-setWorkarea :: Rectangle -> X ()
-setWorkarea (Rectangle x y w h) = withDisplay $ \dpy -> do
+rmWorkarea :: X ()
+rmWorkarea = withDisplay $ \dpy -> do
     a <- getAtom "_NET_WORKAREA"
-    c <- getAtom "CARDINAL"
     r <- asks theRoot
-    io $ changeProperty32 dpy r a c propModeReplace [fi x, fi y, fi w, fi h]
-
+    io (deleteProperty dpy r a)
 
 -- | (Direction, height\/width, initial pixel, final pixel).