diff options
| author | tv <tv@krebsco.de> | 2023-02-07 16:19:38 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2023-02-07 16:19:38 +0100 |
| commit | dfa3ff346d22d332ffbadd46963f1cc5cb2a4939 (patch) | |
| tree | 63ac211057c3a048a20d529ab78c5c275535e142 | |
| parent | ed526491aa05ee173095bcb519cf2d64fa40fb46 (diff) | |
Graphics.X11: create atoms that don't exist
| -rw-r--r-- | lib/Graphics/X11/EWMH/Atom.hs | 15 | ||||
| -rw-r--r-- | 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 |