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

_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

uTF8_STRING :: Atom
uTF8_STRING = unsafeInternAtom "UTF8_STRING" True