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