diff options
| -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 |