diff options
Diffstat (limited to 'src/Graphics/X11/Xlib/Atom')
-rw-r--r-- | src/Graphics/X11/Xlib/Atom/Extra.hs | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/src/Graphics/X11/Xlib/Atom/Extra.hs b/src/Graphics/X11/Xlib/Atom/Extra.hs deleted file mode 100644 index 8442c48..0000000 --- a/src/Graphics/X11/Xlib/Atom/Extra.hs +++ /dev/null @@ -1,39 +0,0 @@ -module Graphics.X11.Xlib.Atom.Extra where - -import Graphics.X11.Types (Atom) -import Graphics.X11.Xlib.Atom (internAtom) -import Graphics.X11.Xlib.Display.Extra (withDefaultDisplay) -import System.IO.Unsafe (unsafePerformIO) - - -unsafeInternAtom :: String -> Bool -> Atom -unsafeInternAtom atomName onlyIfExists = - unsafePerformIO $ withDefaultDisplay $ \display -> - internAtom display atomName onlyIfExists - -_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 - -_WIN_WORKSPACE :: Atom -_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" True - -_WIN_WORKSPACE_NAMES :: Atom -_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" True - -_WM_NAME :: Atom -_WM_NAME = unsafeInternAtom "WM_NAME" True |