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 /lib/Graphics/X11/EWMH/Atom.hs | |
| parent | ed526491aa05ee173095bcb519cf2d64fa40fb46 (diff) | |
Graphics.X11: create atoms that don't exist
Diffstat (limited to 'lib/Graphics/X11/EWMH/Atom.hs')
| -rw-r--r-- | lib/Graphics/X11/EWMH/Atom.hs | 15 |
1 files changed, 9 insertions, 6 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 |