module Graphics.X11.Xlib.Extras.Extra where

import Data.Text (Text)
import Foreign.C.String.Extra (castCCharToWord8)
import qualified Data.ByteString as ByteString
import qualified Data.Text.Encoding.Extra as Text
import qualified Graphics.X11 as X11
import qualified Graphics.X11.Xlib.Extras as X11


getWindowPropertyText :: X11.Display -> X11.Atom -> X11.Window -> IO (Maybe Text)
getWindowPropertyText d a w =
  fmap (Text.decodeUtf8Lenient . ByteString.pack . map castCCharToWord8) <$>
    X11.getWindowProperty8 d a w