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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from mediastream-recording (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.MediaRecorderOptions
       (js_newMediaRecorderOptions, js_setMimeType, js_getMimeType, js_setAudioBitsPerSecond, js_getAudioBitsPerSecond, js_setVideoBitsPerSecond, js_getVideoBitsPerSecond, js_setBitsPerSecond, js_getBitsPerSecond, js_setAudioBitrateMode, js_getAudioBitrateMode, js_setVideoKeyFrameIntervalDuration, js_getVideoKeyFrameIntervalDuration, js_setVideoKeyFrameIntervalCount, js_getVideoKeyFrameIntervalCount, newMediaRecorderOptions, setMimeType, getMimeType, getMimeTypeUnsafe, getMimeTypeUnchecked, setAudioBitsPerSecond, getAudioBitsPerSecond, getAudioBitsPerSecondUnsafe, getAudioBitsPerSecondUnchecked, setVideoBitsPerSecond, getVideoBitsPerSecond, getVideoBitsPerSecondUnsafe, getVideoBitsPerSecondUnchecked, setBitsPerSecond, getBitsPerSecond, getBitsPerSecondUnsafe, getBitsPerSecondUnchecked, setAudioBitrateMode, getAudioBitrateMode, getAudioBitrateModeUnsafe, getAudioBitrateModeUnchecked, setVideoKeyFrameIntervalDuration, getVideoKeyFrameIntervalDuration, getVideoKeyFrameIntervalDurationUnsafe, getVideoKeyFrameIntervalDurationUnchecked, setVideoKeyFrameIntervalCount, getVideoKeyFrameIntervalCount, getVideoKeyFrameIntervalCountUnsafe, getVideoKeyFrameIntervalCountUnchecked, MediaRecorderOptions(..), gTypeMediaRecorderOptions)
       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 "(() => { return ({}); })"
        js_newMediaRecorderOptions :: IO MediaRecorderOptions
-- | <https://w3c.github.io/mediacapture-record/#dictdef-mediarecorderoptions MediaRecorderOptions specification>
newMediaRecorderOptions :: (MonadDOM m) => m MediaRecorderOptions
newMediaRecorderOptions = liftDOM ((js_newMediaRecorderOptions))

foreign import javascript safe "(($1, $2) => { $1[\"mimeType\"] = $2; })"
        js_setMimeType :: MediaRecorderOptions -> JSString -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-mimetype MediaRecorderOptions.mimeType specification>
setMimeType :: (MonadDOM m, ToJSString val) => MediaRecorderOptions -> val -> m ()
setMimeType self val = liftDOM (void ((js_setMimeType (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"mimeType\"]; })"
        js_getMimeType :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-mimetype MediaRecorderOptions.mimeType specification>
getMimeType :: (MonadDOM m, FromJSString result) => MediaRecorderOptions -> m (Maybe result)
getMimeType self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getMimeType (self))))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-mimetype MediaRecorderOptions.mimeType specification>
getMimeTypeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => MediaRecorderOptions -> m result
getMimeTypeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getMimeType (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-mimetype MediaRecorderOptions.mimeType specification>
getMimeTypeUnchecked :: (MonadDOM m, FromJSString result) => MediaRecorderOptions -> m result
getMimeTypeUnchecked self = liftDOM ((pFromJSVal <$> (js_getMimeType (self))))

foreign import javascript safe "(($1, $2) => { $1[\"audioBitsPerSecond\"] = $2; })"
        js_setAudioBitsPerSecond :: MediaRecorderOptions -> Word -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitspersecond MediaRecorderOptions.audioBitsPerSecond specification>
setAudioBitsPerSecond :: (MonadDOM m) => MediaRecorderOptions -> Word -> m ()
setAudioBitsPerSecond self val = liftDOM (void ((js_setAudioBitsPerSecond (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"audioBitsPerSecond\"]; })"
        js_getAudioBitsPerSecond :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitspersecond MediaRecorderOptions.audioBitsPerSecond specification>
getAudioBitsPerSecond :: (MonadDOM m) => MediaRecorderOptions -> m (Maybe Word)
getAudioBitsPerSecond self = liftDOM (((js_getAudioBitsPerSecond (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitspersecond MediaRecorderOptions.audioBitsPerSecond specification>
getAudioBitsPerSecondUnsafe :: (MonadDOM m, HasCallStack) => MediaRecorderOptions -> m Word
getAudioBitsPerSecondUnsafe self = liftDOM ((((js_getAudioBitsPerSecond (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitspersecond MediaRecorderOptions.audioBitsPerSecond specification>
getAudioBitsPerSecondUnchecked :: (MonadDOM m) => MediaRecorderOptions -> m Word
getAudioBitsPerSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudioBitsPerSecond (self))))

foreign import javascript safe "(($1, $2) => { $1[\"videoBitsPerSecond\"] = $2; })"
        js_setVideoBitsPerSecond :: MediaRecorderOptions -> Word -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videobitspersecond MediaRecorderOptions.videoBitsPerSecond specification>
setVideoBitsPerSecond :: (MonadDOM m) => MediaRecorderOptions -> Word -> m ()
setVideoBitsPerSecond self val = liftDOM (void ((js_setVideoBitsPerSecond (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"videoBitsPerSecond\"]; })"
        js_getVideoBitsPerSecond :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videobitspersecond MediaRecorderOptions.videoBitsPerSecond specification>
getVideoBitsPerSecond :: (MonadDOM m) => MediaRecorderOptions -> m (Maybe Word)
getVideoBitsPerSecond self = liftDOM (((js_getVideoBitsPerSecond (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videobitspersecond MediaRecorderOptions.videoBitsPerSecond specification>
getVideoBitsPerSecondUnsafe :: (MonadDOM m, HasCallStack) => MediaRecorderOptions -> m Word
getVideoBitsPerSecondUnsafe self = liftDOM ((((js_getVideoBitsPerSecond (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videobitspersecond MediaRecorderOptions.videoBitsPerSecond specification>
getVideoBitsPerSecondUnchecked :: (MonadDOM m) => MediaRecorderOptions -> m Word
getVideoBitsPerSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getVideoBitsPerSecond (self))))

foreign import javascript safe "(($1, $2) => { $1[\"bitsPerSecond\"] = $2; })"
        js_setBitsPerSecond :: MediaRecorderOptions -> Word -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-bitspersecond MediaRecorderOptions.bitsPerSecond specification>
setBitsPerSecond :: (MonadDOM m) => MediaRecorderOptions -> Word -> m ()
setBitsPerSecond self val = liftDOM (void ((js_setBitsPerSecond (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"bitsPerSecond\"]; })"
        js_getBitsPerSecond :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-bitspersecond MediaRecorderOptions.bitsPerSecond specification>
getBitsPerSecond :: (MonadDOM m) => MediaRecorderOptions -> m (Maybe Word)
getBitsPerSecond self = liftDOM (((js_getBitsPerSecond (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-bitspersecond MediaRecorderOptions.bitsPerSecond specification>
getBitsPerSecondUnsafe :: (MonadDOM m, HasCallStack) => MediaRecorderOptions -> m Word
getBitsPerSecondUnsafe self = liftDOM ((((js_getBitsPerSecond (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-bitspersecond MediaRecorderOptions.bitsPerSecond specification>
getBitsPerSecondUnchecked :: (MonadDOM m) => MediaRecorderOptions -> m Word
getBitsPerSecondUnchecked self = liftDOM ((pFromJSVal <$> (js_getBitsPerSecond (self))))

foreign import javascript safe "(($1, $2) => { $1[\"audioBitrateMode\"] = $2; })"
        js_setAudioBitrateMode :: MediaRecorderOptions -> JSVal -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitratemode MediaRecorderOptions.audioBitrateMode specification>
setAudioBitrateMode :: (MonadDOM m) => MediaRecorderOptions -> BitrateMode -> m ()
setAudioBitrateMode self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAudioBitrateMode (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"audioBitrateMode\"]; })"
        js_getAudioBitrateMode :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitratemode MediaRecorderOptions.audioBitrateMode specification>
getAudioBitrateMode :: (MonadDOM m) => MediaRecorderOptions -> m (Maybe BitrateMode)
getAudioBitrateMode self = liftDOM (((js_getAudioBitrateMode (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitratemode MediaRecorderOptions.audioBitrateMode specification>
getAudioBitrateModeUnsafe :: (MonadDOM m, HasCallStack) => MediaRecorderOptions -> m BitrateMode
getAudioBitrateModeUnsafe self = liftDOM ((((js_getAudioBitrateMode (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-audiobitratemode MediaRecorderOptions.audioBitrateMode specification>
getAudioBitrateModeUnchecked :: (MonadDOM m) => MediaRecorderOptions -> m BitrateMode
getAudioBitrateModeUnchecked self = liftDOM ((pFromJSVal <$> (js_getAudioBitrateMode (self))))

foreign import javascript safe "(($1, $2) => { $1[\"videoKeyFrameIntervalDuration\"] = $2; })"
        js_setVideoKeyFrameIntervalDuration :: MediaRecorderOptions -> Double -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalduration MediaRecorderOptions.videoKeyFrameIntervalDuration specification>
setVideoKeyFrameIntervalDuration :: (MonadDOM m) => MediaRecorderOptions -> Double -> m ()
setVideoKeyFrameIntervalDuration self val = liftDOM (void ((js_setVideoKeyFrameIntervalDuration (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"videoKeyFrameIntervalDuration\"]; })"
        js_getVideoKeyFrameIntervalDuration :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalduration MediaRecorderOptions.videoKeyFrameIntervalDuration specification>
getVideoKeyFrameIntervalDuration :: (MonadDOM m) => MediaRecorderOptions -> m (Maybe Double)
getVideoKeyFrameIntervalDuration self = liftDOM (((js_getVideoKeyFrameIntervalDuration (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalduration MediaRecorderOptions.videoKeyFrameIntervalDuration specification>
getVideoKeyFrameIntervalDurationUnsafe :: (MonadDOM m, HasCallStack) => MediaRecorderOptions -> m Double
getVideoKeyFrameIntervalDurationUnsafe self = liftDOM ((((js_getVideoKeyFrameIntervalDuration (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalduration MediaRecorderOptions.videoKeyFrameIntervalDuration specification>
getVideoKeyFrameIntervalDurationUnchecked :: (MonadDOM m) => MediaRecorderOptions -> m Double
getVideoKeyFrameIntervalDurationUnchecked self = liftDOM ((pFromJSVal <$> (js_getVideoKeyFrameIntervalDuration (self))))

foreign import javascript safe "(($1, $2) => { $1[\"videoKeyFrameIntervalCount\"] = $2; })"
        js_setVideoKeyFrameIntervalCount :: MediaRecorderOptions -> Word -> IO ()
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalcount MediaRecorderOptions.videoKeyFrameIntervalCount specification>
setVideoKeyFrameIntervalCount :: (MonadDOM m) => MediaRecorderOptions -> Word -> m ()
setVideoKeyFrameIntervalCount self val = liftDOM (void ((js_setVideoKeyFrameIntervalCount (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"videoKeyFrameIntervalCount\"]; })"
        js_getVideoKeyFrameIntervalCount :: MediaRecorderOptions -> IO JSVal
-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalcount MediaRecorderOptions.videoKeyFrameIntervalCount specification>
getVideoKeyFrameIntervalCount :: (MonadDOM m) => MediaRecorderOptions -> m (Maybe Word)
getVideoKeyFrameIntervalCount self = liftDOM (((js_getVideoKeyFrameIntervalCount (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalcount MediaRecorderOptions.videoKeyFrameIntervalCount specification>
getVideoKeyFrameIntervalCountUnsafe :: (MonadDOM m, HasCallStack) => MediaRecorderOptions -> m Word
getVideoKeyFrameIntervalCountUnsafe self = liftDOM ((((js_getVideoKeyFrameIntervalCount (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/mediacapture-record/#dom-mediarecorderoptions-videokeyframeintervalcount MediaRecorderOptions.videoKeyFrameIntervalCount specification>
getVideoKeyFrameIntervalCountUnchecked :: (MonadDOM m) => MediaRecorderOptions -> m Word
getVideoKeyFrameIntervalCountUnchecked self = liftDOM ((pFromJSVal <$> (js_getVideoKeyFrameIntervalCount (self))))