CanvasRenderingContext2DSettings.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.CanvasRenderingContext2DSettings
       (newCanvasRenderingContext2DSettings, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setDesynchronized, getDesynchronized, getDesynchronizedUnsafe, getDesynchronizedUnchecked, setColorSpace, getColorSpace, getColorSpaceUnsafe, getColorSpaceUnchecked, setColorType, getColorType, getColorTypeUnsafe, getColorTypeUnchecked, setWillReadFrequently, getWillReadFrequently, getWillReadFrequentlyUnsafe, getWillReadFrequentlyUnchecked, CanvasRenderingContext2DSettings(..), gTypeCanvasRenderingContext2DSettings)
       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://html.spec.whatwg.org/multipage/canvas.html#canvasrenderingcontext2dsettings CanvasRenderingContext2DSettings specification>
newCanvasRenderingContext2DSettings :: (MonadDOM m) => m CanvasRenderingContext2DSettings
newCanvasRenderingContext2DSettings = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>
setAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m ()
setAlpha self val = liftDOM (void (self ^. jss "alpha" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>
getAlpha :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)
getAlpha self = liftDOM (((self ^. js "alpha") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>
getAlphaUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool
getAlphaUnsafe self = liftDOM ((((self ^. js "alpha") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-alpha CanvasRenderingContext2DSettings.alpha specification>
getAlphaUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool
getAlphaUnchecked self = liftDOM (((self ^. js "alpha") >>= valToBool))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>
setDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m ()
setDesynchronized self val = liftDOM (void (self ^. jss "desynchronized" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>
getDesynchronized :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)
getDesynchronized self = liftDOM (((self ^. js "desynchronized") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>
getDesynchronizedUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool
getDesynchronizedUnsafe self = liftDOM ((((self ^. js "desynchronized") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-desynchronized CanvasRenderingContext2DSettings.desynchronized specification>
getDesynchronizedUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool
getDesynchronizedUnchecked self = liftDOM (((self ^. js "desynchronized") >>= valToBool))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>
setColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> PredefinedColorSpace -> m ()
setColorSpace self val = liftDOM (void (self ^. jss "colorSpace" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>
getColorSpace :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe PredefinedColorSpace)
getColorSpace self = liftDOM (((self ^. js "colorSpace") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>
getColorSpaceUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace
getColorSpaceUnsafe self = liftDOM ((((self ^. js "colorSpace") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colorspace CanvasRenderingContext2DSettings.colorSpace specification>
getColorSpaceUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m PredefinedColorSpace
getColorSpaceUnchecked self = liftDOM (((self ^. js "colorSpace") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>
setColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> CanvasColorType -> m ()
setColorType self val = liftDOM (void (self ^. jss "colorType" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>
getColorType :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe CanvasColorType)
getColorType self = liftDOM (((self ^. js "colorType") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>
getColorTypeUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m CanvasColorType
getColorTypeUnsafe self = liftDOM ((((self ^. js "colorType") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-colortype CanvasRenderingContext2DSettings.colorType specification>
getColorTypeUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m CanvasColorType
getColorTypeUnchecked self = liftDOM (((self ^. js "colorType") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>
setWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> Bool -> m ()
setWillReadFrequently self val = liftDOM (void (self ^. jss "willReadFrequently" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>
getWillReadFrequently :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m (Maybe Bool)
getWillReadFrequently self = liftDOM (((self ^. js "willReadFrequently") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>
getWillReadFrequentlyUnsafe :: (MonadDOM m, HasCallStack) => CanvasRenderingContext2DSettings -> m Bool
getWillReadFrequentlyUnsafe self = liftDOM ((((self ^. js "willReadFrequently") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/canvas.html#dom-canvasrenderingcontext2dsettings-willreadfrequently CanvasRenderingContext2DSettings.willReadFrequently specification>
getWillReadFrequentlyUnchecked :: (MonadDOM m) => CanvasRenderingContext2DSettings -> m Bool
getWillReadFrequentlyUnchecked self = liftDOM (((self ^. js "willReadFrequently") >>= valToBool))