From dfa3ff346d22d332ffbadd46963f1cc5cb2a4939 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 7 Feb 2023 16:19:38 +0100
Subject: Graphics.X11: create atoms that don't exist

---
 lib/Graphics/X11/EWMH/Atom.hs       | 15 +++++++++------
 lib/Graphics/X11/Xlib/Atom/Extra.hs |  8 ++++----
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/lib/Graphics/X11/EWMH/Atom.hs b/lib/Graphics/X11/EWMH/Atom.hs
index 71f9ff5..8a69ec7 100644
--- a/lib/Graphics/X11/EWMH/Atom.hs
+++ b/lib/Graphics/X11/EWMH/Atom.hs
@@ -5,19 +5,22 @@ import Graphics.X11.Xlib.Atom.Extra (unsafeInternAtom)
 
 
 _NET_ACTIVE_WINDOW :: Atom
-_NET_ACTIVE_WINDOW = unsafeInternAtom "_NET_ACTIVE_WINDOW" True
+_NET_ACTIVE_WINDOW = unsafeInternAtom "_NET_ACTIVE_WINDOW" False
 
 _NET_CLIENT_LIST :: Atom
-_NET_CLIENT_LIST = unsafeInternAtom "_NET_CLIENT_LIST" True
+_NET_CLIENT_LIST = unsafeInternAtom "_NET_CLIENT_LIST" False
 
 _NET_CURRENT_DESKTOP :: Atom
-_NET_CURRENT_DESKTOP = unsafeInternAtom "_NET_CURRENT_DESKTOP" True
+_NET_CURRENT_DESKTOP = unsafeInternAtom "_NET_CURRENT_DESKTOP" False
 
 _NET_DESKTOP_NAMES :: Atom
-_NET_DESKTOP_NAMES = unsafeInternAtom "_NET_DESKTOP_NAMES" True
+_NET_DESKTOP_NAMES = unsafeInternAtom "_NET_DESKTOP_NAMES" False
+
+_NET_NUMBER_OF_DESKTOPS :: Atom
+_NET_NUMBER_OF_DESKTOPS = unsafeInternAtom "_NET_NUMBER_OF_DESKTOPS" False
 
 _NET_WM_DESKTOP :: Atom
-_NET_WM_DESKTOP = unsafeInternAtom "_NET_WM_DESKTOP" True
+_NET_WM_DESKTOP = unsafeInternAtom "_NET_WM_DESKTOP" False
 
 _NET_WM_NAME :: Atom
-_NET_WM_NAME = unsafeInternAtom "_NET_WM_NAME" True
+_NET_WM_NAME = unsafeInternAtom "_NET_WM_NAME" False
diff --git a/lib/Graphics/X11/Xlib/Atom/Extra.hs b/lib/Graphics/X11/Xlib/Atom/Extra.hs
index 444519e..d7ba0da 100644
--- a/lib/Graphics/X11/Xlib/Atom/Extra.hs
+++ b/lib/Graphics/X11/Xlib/Atom/Extra.hs
@@ -12,13 +12,13 @@ unsafeInternAtom atomName onlyIfExists =
     internAtom display atomName onlyIfExists
 
 _WIN_WORKSPACE :: Atom
-_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" True
+_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" False
 
 _WIN_WORKSPACE_NAMES :: Atom
-_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" True
+_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" False
 
 _WM_NAME :: Atom
-_WM_NAME = unsafeInternAtom "WM_NAME" True
+_WM_NAME = unsafeInternAtom "WM_NAME" False
 
 uTF8_STRING :: Atom
-uTF8_STRING = unsafeInternAtom "UTF8_STRING" True
+uTF8_STRING = unsafeInternAtom "UTF8_STRING" False
-- 
cgit v1.2.3