summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/Graphics/X11/EWMH/Atom.hs15
-rw-r--r--lib/Graphics/X11/Xlib/Atom/Extra.hs8
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