ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/VideoConfiguration.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from media-capabilities (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.VideoConfiguration
       (js_newVideoConfiguration, js_setContentType, js_getContentType, js_setWidth, js_getWidth, js_setHeight, js_getHeight, js_setBitrate, js_getBitrate, js_setFramerate, js_getFramerate, js_setHasAlphaChannel, js_getHasAlphaChannel, js_setHdrMetadataType, js_getHdrMetadataType, js_setColorGamut, js_getColorGamut, js_setTransferFunction, js_getTransferFunction, js_setScalabilityMode, js_getScalabilityMode, js_setSpatialScalability, js_getSpatialScalability, newVideoConfiguration, setContentType, getContentType, setWidth, getWidth, setHeight, getHeight, setBitrate, getBitrate, setFramerate, getFramerate, setHasAlphaChannel, getHasAlphaChannel, getHasAlphaChannelUnsafe, getHasAlphaChannelUnchecked, setHdrMetadataType, getHdrMetadataType, getHdrMetadataTypeUnsafe, getHdrMetadataTypeUnchecked, setColorGamut, getColorGamut, getColorGamutUnsafe, getColorGamutUnchecked, setTransferFunction, getTransferFunction, getTransferFunctionUnsafe, getTransferFunctionUnchecked, setScalabilityMode, getScalabilityMode, getScalabilityModeUnsafe, getScalabilityModeUnchecked, setSpatialScalability, getSpatialScalability, getSpatialScalabilityUnsafe, getSpatialScalabilityUnchecked, VideoConfiguration(..), gTypeVideoConfiguration)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2, $3, $4, $5) => { return ({\"contentType\": $1, \"width\": $2, \"height\": $3, \"bitrate\": $4, \"framerate\": $5}); })"
        js_newVideoConfiguration :: JSString -> Word -> Word -> JSVal -> Double -> IO VideoConfiguration
-- | <https://w3c.github.io/media-capabilities/#dictdef-videoconfiguration VideoConfiguration specification>
newVideoConfiguration :: (MonadDOM m, ToJSString contentType) => contentType -> Word -> Word -> Word53 -> Double -> m VideoConfiguration
newVideoConfiguration contentType width height bitrate framerate = liftDOM (((toJSVal bitrate) >>= \a4' -> js_newVideoConfiguration (toJSString contentType) (width) (height) a4' (framerate)))

foreign import javascript safe "(($1, $2) => { $1[\"contentType\"] = $2; })"
        js_setContentType :: VideoConfiguration -> JSString -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-contenttype VideoConfiguration.contentType specification>
setContentType :: (MonadDOM m, ToJSString val) => VideoConfiguration -> val -> m ()
setContentType self val = liftDOM (void ((js_setContentType (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"contentType\"]; })"
        js_getContentType :: VideoConfiguration -> IO JSString
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-contenttype VideoConfiguration.contentType specification>
getContentType :: (MonadDOM m, FromJSString result) => VideoConfiguration -> m result
getContentType self = liftDOM ((fromJSString <$> (js_getContentType (self))))

foreign import javascript safe "(($1, $2) => { $1[\"width\"] = $2; })"
        js_setWidth :: VideoConfiguration -> Word -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-width VideoConfiguration.width specification>
setWidth :: (MonadDOM m) => VideoConfiguration -> Word -> m ()
setWidth self val = liftDOM (void ((js_setWidth (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"width\"]; })"
        js_getWidth :: VideoConfiguration -> IO Word
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-width VideoConfiguration.width specification>
getWidth :: (MonadDOM m) => VideoConfiguration -> m Word
getWidth self = liftDOM ((js_getWidth (self)))

foreign import javascript safe "(($1, $2) => { $1[\"height\"] = $2; })"
        js_setHeight :: VideoConfiguration -> Word -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-height VideoConfiguration.height specification>
setHeight :: (MonadDOM m) => VideoConfiguration -> Word -> m ()
setHeight self val = liftDOM (void ((js_setHeight (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"height\"]; })"
        js_getHeight :: VideoConfiguration -> IO Word
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-height VideoConfiguration.height specification>
getHeight :: (MonadDOM m) => VideoConfiguration -> m Word
getHeight self = liftDOM ((js_getHeight (self)))

foreign import javascript safe "(($1, $2) => { $1[\"bitrate\"] = $2; })"
        js_setBitrate :: VideoConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-bitrate VideoConfiguration.bitrate specification>
setBitrate :: (MonadDOM m) => VideoConfiguration -> Word53 -> m ()
setBitrate self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setBitrate (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"bitrate\"]; })"
        js_getBitrate :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-bitrate VideoConfiguration.bitrate specification>
getBitrate :: (MonadDOM m) => VideoConfiguration -> m Word53
getBitrate self = liftDOM (((js_getBitrate (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"framerate\"] = $2; })"
        js_setFramerate :: VideoConfiguration -> Double -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-framerate VideoConfiguration.framerate specification>
setFramerate :: (MonadDOM m) => VideoConfiguration -> Double -> m ()
setFramerate self val = liftDOM (void ((js_setFramerate (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"framerate\"]; })"
        js_getFramerate :: VideoConfiguration -> IO Double
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-framerate VideoConfiguration.framerate specification>
getFramerate :: (MonadDOM m) => VideoConfiguration -> m Double
getFramerate self = liftDOM ((js_getFramerate (self)))

foreign import javascript safe "(($1, $2) => { $1[\"hasAlphaChannel\"] = $2; })"
        js_setHasAlphaChannel :: VideoConfiguration -> Bool -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hasalphachannel VideoConfiguration.hasAlphaChannel specification>
setHasAlphaChannel :: (MonadDOM m) => VideoConfiguration -> Bool -> m ()
setHasAlphaChannel self val = liftDOM (void ((js_setHasAlphaChannel (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"hasAlphaChannel\"]; })"
        js_getHasAlphaChannel :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hasalphachannel VideoConfiguration.hasAlphaChannel specification>
getHasAlphaChannel :: (MonadDOM m) => VideoConfiguration -> m (Maybe Bool)
getHasAlphaChannel self = liftDOM (((js_getHasAlphaChannel (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hasalphachannel VideoConfiguration.hasAlphaChannel specification>
getHasAlphaChannelUnsafe :: (MonadDOM m, HasCallStack) => VideoConfiguration -> m Bool
getHasAlphaChannelUnsafe self = liftDOM ((((js_getHasAlphaChannel (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hasalphachannel VideoConfiguration.hasAlphaChannel specification>
getHasAlphaChannelUnchecked :: (MonadDOM m) => VideoConfiguration -> m Bool
getHasAlphaChannelUnchecked self = liftDOM ((pFromJSVal <$> (js_getHasAlphaChannel (self))))

foreign import javascript safe "(($1, $2) => { $1[\"hdrMetadataType\"] = $2; })"
        js_setHdrMetadataType :: VideoConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hdrmetadatatype VideoConfiguration.hdrMetadataType specification>
setHdrMetadataType :: (MonadDOM m) => VideoConfiguration -> HdrMetadataType -> m ()
setHdrMetadataType self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setHdrMetadataType (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"hdrMetadataType\"]; })"
        js_getHdrMetadataType :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hdrmetadatatype VideoConfiguration.hdrMetadataType specification>
getHdrMetadataType :: (MonadDOM m) => VideoConfiguration -> m (Maybe HdrMetadataType)
getHdrMetadataType self = liftDOM (((js_getHdrMetadataType (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hdrmetadatatype VideoConfiguration.hdrMetadataType specification>
getHdrMetadataTypeUnsafe :: (MonadDOM m, HasCallStack) => VideoConfiguration -> m HdrMetadataType
getHdrMetadataTypeUnsafe self = liftDOM ((((js_getHdrMetadataType (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-hdrmetadatatype VideoConfiguration.hdrMetadataType specification>
getHdrMetadataTypeUnchecked :: (MonadDOM m) => VideoConfiguration -> m HdrMetadataType
getHdrMetadataTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getHdrMetadataType (self))))

foreign import javascript safe "(($1, $2) => { $1[\"colorGamut\"] = $2; })"
        js_setColorGamut :: VideoConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-colorgamut VideoConfiguration.colorGamut specification>
setColorGamut :: (MonadDOM m) => VideoConfiguration -> ColorGamut -> m ()
setColorGamut self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setColorGamut (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"colorGamut\"]; })"
        js_getColorGamut :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-colorgamut VideoConfiguration.colorGamut specification>
getColorGamut :: (MonadDOM m) => VideoConfiguration -> m (Maybe ColorGamut)
getColorGamut self = liftDOM (((js_getColorGamut (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-colorgamut VideoConfiguration.colorGamut specification>
getColorGamutUnsafe :: (MonadDOM m, HasCallStack) => VideoConfiguration -> m ColorGamut
getColorGamutUnsafe self = liftDOM ((((js_getColorGamut (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-colorgamut VideoConfiguration.colorGamut specification>
getColorGamutUnchecked :: (MonadDOM m) => VideoConfiguration -> m ColorGamut
getColorGamutUnchecked self = liftDOM ((pFromJSVal <$> (js_getColorGamut (self))))

foreign import javascript safe "(($1, $2) => { $1[\"transferFunction\"] = $2; })"
        js_setTransferFunction :: VideoConfiguration -> JSVal -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-transferfunction VideoConfiguration.transferFunction specification>
setTransferFunction :: (MonadDOM m) => VideoConfiguration -> TransferFunction -> m ()
setTransferFunction self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTransferFunction (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"transferFunction\"]; })"
        js_getTransferFunction :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-transferfunction VideoConfiguration.transferFunction specification>
getTransferFunction :: (MonadDOM m) => VideoConfiguration -> m (Maybe TransferFunction)
getTransferFunction self = liftDOM (((js_getTransferFunction (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-transferfunction VideoConfiguration.transferFunction specification>
getTransferFunctionUnsafe :: (MonadDOM m, HasCallStack) => VideoConfiguration -> m TransferFunction
getTransferFunctionUnsafe self = liftDOM ((((js_getTransferFunction (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-transferfunction VideoConfiguration.transferFunction specification>
getTransferFunctionUnchecked :: (MonadDOM m) => VideoConfiguration -> m TransferFunction
getTransferFunctionUnchecked self = liftDOM ((pFromJSVal <$> (js_getTransferFunction (self))))

foreign import javascript safe "(($1, $2) => { $1[\"scalabilityMode\"] = $2; })"
        js_setScalabilityMode :: VideoConfiguration -> JSString -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-scalabilitymode VideoConfiguration.scalabilityMode specification>
setScalabilityMode :: (MonadDOM m, ToJSString val) => VideoConfiguration -> val -> m ()
setScalabilityMode self val = liftDOM (void ((js_setScalabilityMode (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"scalabilityMode\"]; })"
        js_getScalabilityMode :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-scalabilitymode VideoConfiguration.scalabilityMode specification>
getScalabilityMode :: (MonadDOM m, FromJSString result) => VideoConfiguration -> m (Maybe result)
getScalabilityMode self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getScalabilityMode (self))))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-scalabilitymode VideoConfiguration.scalabilityMode specification>
getScalabilityModeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => VideoConfiguration -> m result
getScalabilityModeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getScalabilityMode (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-scalabilitymode VideoConfiguration.scalabilityMode specification>
getScalabilityModeUnchecked :: (MonadDOM m, FromJSString result) => VideoConfiguration -> m result
getScalabilityModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getScalabilityMode (self))))

foreign import javascript safe "(($1, $2) => { $1[\"spatialScalability\"] = $2; })"
        js_setSpatialScalability :: VideoConfiguration -> Bool -> IO ()
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-spatialscalability VideoConfiguration.spatialScalability specification>
setSpatialScalability :: (MonadDOM m) => VideoConfiguration -> Bool -> m ()
setSpatialScalability self val = liftDOM (void ((js_setSpatialScalability (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"spatialScalability\"]; })"
        js_getSpatialScalability :: VideoConfiguration -> IO JSVal
-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-spatialscalability VideoConfiguration.spatialScalability specification>
getSpatialScalability :: (MonadDOM m) => VideoConfiguration -> m (Maybe Bool)
getSpatialScalability self = liftDOM (((js_getSpatialScalability (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-spatialscalability VideoConfiguration.spatialScalability specification>
getSpatialScalabilityUnsafe :: (MonadDOM m, HasCallStack) => VideoConfiguration -> m Bool
getSpatialScalabilityUnsafe self = liftDOM ((((js_getSpatialScalability (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/media-capabilities/#dom-videoconfiguration-spatialscalability VideoConfiguration.spatialScalability specification>
getSpatialScalabilityUnchecked :: (MonadDOM m) => VideoConfiguration -> m Bool
getSpatialScalabilityUnchecked self = liftDOM ((pFromJSVal <$> (js_getSpatialScalability (self))))