From fe48ecd3b1cc11f176c1080539b70abac956f0a0 Mon Sep 17 00:00:00 2001 From: tv Date: Tue, 7 Feb 2023 03:01:37 +0100 Subject: move EWMH-related stuff to Graphics.X11.EWMH --- lib/Graphics/X11/EWMH/Atom.hs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 lib/Graphics/X11/EWMH/Atom.hs (limited to 'lib/Graphics/X11/EWMH') diff --git a/lib/Graphics/X11/EWMH/Atom.hs b/lib/Graphics/X11/EWMH/Atom.hs new file mode 100644 index 0000000..71f9ff5 --- /dev/null +++ b/lib/Graphics/X11/EWMH/Atom.hs @@ -0,0 +1,23 @@ +module Graphics.X11.EWMH.Atom where + +import Graphics.X11.Types (Atom) +import Graphics.X11.Xlib.Atom.Extra (unsafeInternAtom) + + +_NET_ACTIVE_WINDOW :: Atom +_NET_ACTIVE_WINDOW = unsafeInternAtom "_NET_ACTIVE_WINDOW" True + +_NET_CLIENT_LIST :: Atom +_NET_CLIENT_LIST = unsafeInternAtom "_NET_CLIENT_LIST" True + +_NET_CURRENT_DESKTOP :: Atom +_NET_CURRENT_DESKTOP = unsafeInternAtom "_NET_CURRENT_DESKTOP" True + +_NET_DESKTOP_NAMES :: Atom +_NET_DESKTOP_NAMES = unsafeInternAtom "_NET_DESKTOP_NAMES" True + +_NET_WM_DESKTOP :: Atom +_NET_WM_DESKTOP = unsafeInternAtom "_NET_WM_DESKTOP" True + +_NET_WM_NAME :: Atom +_NET_WM_NAME = unsafeInternAtom "_NET_WM_NAME" True -- cgit v1.2.3