OffscreenCanvas.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.OffscreenCanvas
       (newOffscreenCanvas, convertToBlob, convertToBlob_, getContext, getContext_, getContextUnsafe, getContextUnchecked, transferToImageBitmap, transferToImageBitmap_, setWidth, getWidth, setHeight, getHeight, contextlost, contextrestored, webglcontextcreationerror, webglcontextlost, webglcontextrestored, OffscreenCanvas(..), gTypeOffscreenCanvas)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/OffscreenCanvas MDN OffscreenCanvas. documentation>
newOffscreenCanvas :: (MonadDOM m) => Word53 -> Word53 -> m OffscreenCanvas
newOffscreenCanvas width height = liftDOM (((new (jsg "OffscreenCanvas") [toJSVal width, toJSVal height]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/convertToBlob MDN OffscreenCanvas.convertToBlob documentation>
convertToBlob :: (MonadDOM m) => OffscreenCanvas -> Maybe ImageEncodeOptions -> m Blob
convertToBlob self options = liftDOM (((((self ^. jsf "convertToBlob" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/convertToBlob MDN OffscreenCanvas.convertToBlob documentation>
convertToBlob_ :: (MonadDOM m) => OffscreenCanvas -> Maybe ImageEncodeOptions -> m ()
convertToBlob_ self options = liftDOM (void (((self ^. jsf "convertToBlob" [P.maybe (P.return jsUndefined) toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/getContext MDN OffscreenCanvas.getContext documentation>
getContext :: (MonadDOM m) => OffscreenCanvas -> OffscreenRenderingContextId -> JSVal -> m (Maybe OffscreenRenderingContext)
getContext self contextId options = liftDOM (((self ^. jsf "getContext" [toJSVal contextId, toJSVal options]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/getContext MDN OffscreenCanvas.getContext documentation>
getContext_ :: (MonadDOM m) => OffscreenCanvas -> OffscreenRenderingContextId -> JSVal -> m ()
getContext_ self contextId options = liftDOM (void (self ^. jsf "getContext" [toJSVal contextId, toJSVal options]))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/getContext MDN OffscreenCanvas.getContext documentation>
getContextUnsafe :: (MonadDOM m, HasCallStack) => OffscreenCanvas -> OffscreenRenderingContextId -> JSVal -> m OffscreenRenderingContext
getContextUnsafe self contextId options = liftDOM ((((self ^. jsf "getContext" [toJSVal contextId, toJSVal options]) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/getContext MDN OffscreenCanvas.getContext documentation>
getContextUnchecked :: (MonadDOM m) => OffscreenCanvas -> OffscreenRenderingContextId -> JSVal -> m OffscreenRenderingContext
getContextUnchecked self contextId options = liftDOM (((self ^. jsf "getContext" [toJSVal contextId, toJSVal options]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/transferToImageBitmap MDN OffscreenCanvas.transferToImageBitmap documentation>
transferToImageBitmap :: (MonadDOM m) => OffscreenCanvas -> m ImageBitmap
transferToImageBitmap self = liftDOM (((self ^. jsf "transferToImageBitmap" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/transferToImageBitmap MDN OffscreenCanvas.transferToImageBitmap documentation>
transferToImageBitmap_ :: (MonadDOM m) => OffscreenCanvas -> m ()
transferToImageBitmap_ self = liftDOM (void (self ^. jsf "transferToImageBitmap" ()))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/width MDN OffscreenCanvas.width documentation>
setWidth :: (MonadDOM m) => OffscreenCanvas -> Word53 -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/width MDN OffscreenCanvas.width documentation>
getWidth :: (MonadDOM m) => OffscreenCanvas -> m Word53
getWidth self = liftDOM (((self ^. js "width") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/height MDN OffscreenCanvas.height documentation>
setHeight :: (MonadDOM m) => OffscreenCanvas -> Word53 -> m ()
setHeight self val = liftDOM (void (self ^. jss "height" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/OffscreenCanvas/height MDN OffscreenCanvas.height documentation>
getHeight :: (MonadDOM m) => OffscreenCanvas -> m Word53
getHeight self = liftDOM (((self ^. js "height") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#handler-offscreencanvas-oncontextlost contextlost event>
contextlost :: EventName OffscreenCanvas Event
contextlost = unsafeEventName (toJSString "contextlost")

-- | <https://html.spec.whatwg.org/multipage/canvas.html#handler-offscreencanvas-oncontextrestored contextrestored event>
contextrestored :: EventName OffscreenCanvas Event
contextrestored = unsafeEventName (toJSString "contextrestored")

webglcontextcreationerror :: EventName OffscreenCanvas WebGLContextEvent
webglcontextcreationerror = unsafeEventName (toJSString "webglcontextcreationerror")

webglcontextlost :: EventName OffscreenCanvas WebGLContextEvent
webglcontextlost = unsafeEventName (toJSString "webglcontextlost")

webglcontextrestored :: EventName OffscreenCanvas WebGLContextEvent
webglcontextrestored = unsafeEventName (toJSString "webglcontextrestored")