{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement (js_load, load, js_canPlayType, canPlayType, js_play, play, js_pause, pause, js_fastSeek, fastSeek, js_webkitGenerateKeyRequest, webkitGenerateKeyRequest, js_webkitAddKey, webkitAddKey, js_webkitCancelKeyRequest, webkitCancelKeyRequest, js_webkitSetMediaKeys, webkitSetMediaKeys, js_addTextTrack, addTextTrack, js_getVideoPlaybackQuality, getVideoPlaybackQuality, js_webkitShowPlaybackTargetPicker, webkitShowPlaybackTargetPicker, pattern NETWORK_EMPTY, pattern NETWORK_IDLE, pattern NETWORK_LOADING, pattern NETWORK_NO_SOURCE, pattern HAVE_NOTHING, pattern HAVE_METADATA, pattern HAVE_CURRENT_DATA, pattern HAVE_FUTURE_DATA, pattern HAVE_ENOUGH_DATA, js_getError, getError, js_setSrc, setSrc, js_getSrc, getSrc, js_getCurrentSrc, getCurrentSrc, js_getNetworkState, getNetworkState, js_setPreload, setPreload, js_getPreload, getPreload, js_getBuffered, getBuffered, js_getReadyState, getReadyState, js_getSeeking, getSeeking, js_setCurrentTime, setCurrentTime, js_getCurrentTime, getCurrentTime, js_getDuration, getDuration, js_getPaused, getPaused, js_setDefaultPlaybackRate, setDefaultPlaybackRate, js_getDefaultPlaybackRate, getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate, getPlaybackRate, js_getPlayed, getPlayed, js_getSeekable, getSeekable, js_getEnded, getEnded, js_setAutoplay, setAutoplay, js_getAutoplay, getAutoplay, js_setLoop, setLoop, js_getLoop, getLoop, js_setControls, setControls, js_getControls, getControls, js_setVolume, setVolume, js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted, getMuted, js_setDefaultMuted, setDefaultMuted, js_getDefaultMuted, getDefaultMuted, emptied, loadedMetadata, loadedData, canPlay, canPlayThrough, playing, ended, waiting, durationChange, timeUpdate, playEvent, pauseEvent, rateChange, volumeChange, js_setWebkitPreservesPitch, setWebkitPreservesPitch, js_getWebkitPreservesPitch, getWebkitPreservesPitch, js_getWebkitHasClosedCaptions, getWebkitHasClosedCaptions, js_setWebkitClosedCaptionsVisible, setWebkitClosedCaptionsVisible, js_getWebkitClosedCaptionsVisible, getWebkitClosedCaptionsVisible, js_getWebkitAudioDecodedByteCount, getWebkitAudioDecodedByteCount, js_getWebkitVideoDecodedByteCount, getWebkitVideoDecodedByteCount, webKitKeyAdded, webKitKeyError, webKitKeyMessage, webKitNeedKey, js_getWebkitKeys, getWebkitKeys, js_getAudioTracks, getAudioTracks, js_getTextTracks, getTextTracks, js_getVideoTracks, getVideoTracks, js_setMediaGroup, setMediaGroup, js_getMediaGroup, getMediaGroup, js_setController, setController, js_getController, getController, js_getWebkitCurrentPlaybackTargetIsWireless, getWebkitCurrentPlaybackTargetIsWireless, webKitCurrentPlaybackTargetIsWirelessChanged, webKitPlaybackTargetAvailabilityChanged, js_setSrcObject, setSrcObject, js_getSrcObject, getSrcObject, HTMLMediaElement, castToHTMLMediaElement, gTypeHTMLMediaElement, IsHTMLMediaElement, toHTMLMediaElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "$1[\"load\"]()" js_load :: HTMLMediaElement -> IO () -- | load :: (MonadIO m, IsHTMLMediaElement self) => self -> m () load self = liftIO (js_load (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"canPlayType\"]($2, $3)" js_canPlayType :: HTMLMediaElement -> JSString -> Nullable JSString -> IO JSString -- | canPlayType :: (MonadIO m, IsHTMLMediaElement self, ToJSString type', ToJSString keySystem, FromJSString result) => self -> type' -> Maybe keySystem -> m result canPlayType self type' keySystem = liftIO (fromJSString <$> (js_canPlayType (toHTMLMediaElement self) (toJSString type') (toMaybeJSString keySystem))) foreign import javascript unsafe "$1[\"play\"]()" js_play :: HTMLMediaElement -> IO () -- | play :: (MonadIO m, IsHTMLMediaElement self) => self -> m () play self = liftIO (js_play (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"pause\"]()" js_pause :: HTMLMediaElement -> IO () -- | pause :: (MonadIO m, IsHTMLMediaElement self) => self -> m () pause self = liftIO (js_pause (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"fastSeek\"]($2)" js_fastSeek :: HTMLMediaElement -> Double -> IO () -- | fastSeek :: (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () fastSeek self time = liftIO (js_fastSeek (toHTMLMediaElement self) time) foreign import javascript unsafe "$1[\"webkitGenerateKeyRequest\"]($2,\n$3)" js_webkitGenerateKeyRequest :: HTMLMediaElement -> Nullable JSString -> Nullable Uint8Array -> IO () -- | webkitGenerateKeyRequest :: (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem, IsUint8Array initData) => self -> Maybe keySystem -> Maybe initData -> m () webkitGenerateKeyRequest self keySystem initData = liftIO (js_webkitGenerateKeyRequest (toHTMLMediaElement self) (toMaybeJSString keySystem) (maybeToNullable (fmap toUint8Array initData))) foreign import javascript unsafe "$1[\"webkitAddKey\"]($2, $3, $4,\n$5)" js_webkitAddKey :: HTMLMediaElement -> Nullable JSString -> Nullable Uint8Array -> Nullable Uint8Array -> JSString -> IO () -- | webkitAddKey :: (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem, IsUint8Array key, IsUint8Array initData, ToJSString sessionId) => self -> Maybe keySystem -> Maybe key -> Maybe initData -> sessionId -> m () webkitAddKey self keySystem key initData sessionId = liftIO (js_webkitAddKey (toHTMLMediaElement self) (toMaybeJSString keySystem) (maybeToNullable (fmap toUint8Array key)) (maybeToNullable (fmap toUint8Array initData)) (toJSString sessionId)) foreign import javascript unsafe "$1[\"webkitCancelKeyRequest\"]($2,\n$3)" js_webkitCancelKeyRequest :: HTMLMediaElement -> Nullable JSString -> JSString -> IO () -- | webkitCancelKeyRequest :: (MonadIO m, IsHTMLMediaElement self, ToJSString keySystem, ToJSString sessionId) => self -> Maybe keySystem -> sessionId -> m () webkitCancelKeyRequest self keySystem sessionId = liftIO (js_webkitCancelKeyRequest (toHTMLMediaElement self) (toMaybeJSString keySystem) (toJSString sessionId)) foreign import javascript unsafe "$1[\"webkitSetMediaKeys\"]($2)" js_webkitSetMediaKeys :: HTMLMediaElement -> Nullable MediaKeys -> IO () -- | webkitSetMediaKeys :: (MonadIO m, IsHTMLMediaElement self) => self -> Maybe MediaKeys -> m () webkitSetMediaKeys self mediaKeys = liftIO (js_webkitSetMediaKeys (toHTMLMediaElement self) (maybeToNullable mediaKeys)) foreign import javascript unsafe "$1[\"addTextTrack\"]($2, $3, $4)" js_addTextTrack :: HTMLMediaElement -> JSString -> JSString -> JSString -> IO (Nullable TextTrack) -- | addTextTrack :: (MonadIO m, IsHTMLMediaElement self, ToJSString kind, ToJSString label, ToJSString language) => self -> kind -> label -> language -> m (Maybe TextTrack) addTextTrack self kind label language = liftIO (nullableToMaybe <$> (js_addTextTrack (toHTMLMediaElement self) (toJSString kind) (toJSString label) (toJSString language))) foreign import javascript unsafe "$1[\"getVideoPlaybackQuality\"]()" js_getVideoPlaybackQuality :: HTMLMediaElement -> IO (Nullable VideoPlaybackQuality) -- | getVideoPlaybackQuality :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe VideoPlaybackQuality) getVideoPlaybackQuality self = liftIO (nullableToMaybe <$> (js_getVideoPlaybackQuality (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"webkitShowPlaybackTargetPicker\"]()" js_webkitShowPlaybackTargetPicker :: HTMLMediaElement -> IO () -- | webkitShowPlaybackTargetPicker :: (MonadIO m, IsHTMLMediaElement self) => self -> m () webkitShowPlaybackTargetPicker self = liftIO (js_webkitShowPlaybackTargetPicker (toHTMLMediaElement self)) pattern NETWORK_EMPTY = 0 pattern NETWORK_IDLE = 1 pattern NETWORK_LOADING = 2 pattern NETWORK_NO_SOURCE = 3 pattern HAVE_NOTHING = 0 pattern HAVE_METADATA = 1 pattern HAVE_CURRENT_DATA = 2 pattern HAVE_FUTURE_DATA = 3 pattern HAVE_ENOUGH_DATA = 4 foreign import javascript unsafe "$1[\"error\"]" js_getError :: HTMLMediaElement -> IO (Nullable MediaError) -- | getError :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaError) getError self = liftIO (nullableToMaybe <$> (js_getError (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"src\"] = $2;" js_setSrc :: HTMLMediaElement -> JSString -> IO () -- | setSrc :: (MonadIO m, IsHTMLMediaElement self, ToJSString val) => self -> val -> m () setSrc self val = liftIO (js_setSrc (toHTMLMediaElement self) (toJSString val)) foreign import javascript unsafe "$1[\"src\"]" js_getSrc :: HTMLMediaElement -> IO JSString -- | getSrc :: (MonadIO m, IsHTMLMediaElement self, FromJSString result) => self -> m result getSrc self = liftIO (fromJSString <$> (js_getSrc (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"currentSrc\"]" js_getCurrentSrc :: HTMLMediaElement -> IO JSString -- | getCurrentSrc :: (MonadIO m, IsHTMLMediaElement self, FromJSString result) => self -> m result getCurrentSrc self = liftIO (fromJSString <$> (js_getCurrentSrc (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"networkState\"]" js_getNetworkState :: HTMLMediaElement -> IO Word -- | getNetworkState :: (MonadIO m, IsHTMLMediaElement self) => self -> m Word getNetworkState self = liftIO (js_getNetworkState (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"preload\"] = $2;" js_setPreload :: HTMLMediaElement -> JSString -> IO () -- | setPreload :: (MonadIO m, IsHTMLMediaElement self, ToJSString val) => self -> val -> m () setPreload self val = liftIO (js_setPreload (toHTMLMediaElement self) (toJSString val)) foreign import javascript unsafe "$1[\"preload\"]" js_getPreload :: HTMLMediaElement -> IO JSString -- | getPreload :: (MonadIO m, IsHTMLMediaElement self, FromJSString result) => self -> m result getPreload self = liftIO (fromJSString <$> (js_getPreload (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered :: HTMLMediaElement -> IO (Nullable TimeRanges) -- | getBuffered :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe TimeRanges) getBuffered self = liftIO (nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"readyState\"]" js_getReadyState :: HTMLMediaElement -> IO Word -- | getReadyState :: (MonadIO m, IsHTMLMediaElement self) => self -> m Word getReadyState self = liftIO (js_getReadyState (toHTMLMediaElement self)) foreign import javascript unsafe "($1[\"seeking\"] ? 1 : 0)" js_getSeeking :: HTMLMediaElement -> IO Bool -- | getSeeking :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getSeeking self = liftIO (js_getSeeking (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"currentTime\"] = $2;" js_setCurrentTime :: HTMLMediaElement -> Double -> IO () -- | setCurrentTime :: (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setCurrentTime self val = liftIO (js_setCurrentTime (toHTMLMediaElement self) val) foreign import javascript unsafe "$1[\"currentTime\"]" js_getCurrentTime :: HTMLMediaElement -> IO Double -- | getCurrentTime :: (MonadIO m, IsHTMLMediaElement self) => self -> m Double getCurrentTime self = liftIO (js_getCurrentTime (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"duration\"]" js_getDuration :: HTMLMediaElement -> IO Double -- | getDuration :: (MonadIO m, IsHTMLMediaElement self) => self -> m Double getDuration self = liftIO (js_getDuration (toHTMLMediaElement self)) foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)" js_getPaused :: HTMLMediaElement -> IO Bool -- | getPaused :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getPaused self = liftIO (js_getPaused (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate :: HTMLMediaElement -> Double -> IO () -- | setDefaultPlaybackRate :: (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setDefaultPlaybackRate self val = liftIO (js_setDefaultPlaybackRate (toHTMLMediaElement self) val) foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]" js_getDefaultPlaybackRate :: HTMLMediaElement -> IO Double -- | getDefaultPlaybackRate :: (MonadIO m, IsHTMLMediaElement self) => self -> m Double getDefaultPlaybackRate self = liftIO (js_getDefaultPlaybackRate (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"playbackRate\"] = $2;" js_setPlaybackRate :: HTMLMediaElement -> Double -> IO () -- | setPlaybackRate :: (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setPlaybackRate self val = liftIO (js_setPlaybackRate (toHTMLMediaElement self) val) foreign import javascript unsafe "$1[\"playbackRate\"]" js_getPlaybackRate :: HTMLMediaElement -> IO Double -- | getPlaybackRate :: (MonadIO m, IsHTMLMediaElement self) => self -> m Double getPlaybackRate self = liftIO (js_getPlaybackRate (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"played\"]" js_getPlayed :: HTMLMediaElement -> IO (Nullable TimeRanges) -- | getPlayed :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe TimeRanges) getPlayed self = liftIO (nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable :: HTMLMediaElement -> IO (Nullable TimeRanges) -- | getSeekable :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe TimeRanges) getSeekable self = liftIO (nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self))) foreign import javascript unsafe "($1[\"ended\"] ? 1 : 0)" js_getEnded :: HTMLMediaElement -> IO Bool -- | getEnded :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getEnded self = liftIO (js_getEnded (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"autoplay\"] = $2;" js_setAutoplay :: HTMLMediaElement -> Bool -> IO () -- | setAutoplay :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setAutoplay self val = liftIO (js_setAutoplay (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"autoplay\"] ? 1 : 0)" js_getAutoplay :: HTMLMediaElement -> IO Bool -- | getAutoplay :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getAutoplay self = liftIO (js_getAutoplay (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"loop\"] = $2;" js_setLoop :: HTMLMediaElement -> Bool -> IO () -- | setLoop :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setLoop self val = liftIO (js_setLoop (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"loop\"] ? 1 : 0)" js_getLoop :: HTMLMediaElement -> IO Bool -- | getLoop :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getLoop self = liftIO (js_getLoop (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"controls\"] = $2;" js_setControls :: HTMLMediaElement -> Bool -> IO () -- | setControls :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setControls self val = liftIO (js_setControls (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"controls\"] ? 1 : 0)" js_getControls :: HTMLMediaElement -> IO Bool -- | getControls :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getControls self = liftIO (js_getControls (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"volume\"] = $2;" js_setVolume :: HTMLMediaElement -> Double -> IO () -- | setVolume :: (MonadIO m, IsHTMLMediaElement self) => self -> Double -> m () setVolume self val = liftIO (js_setVolume (toHTMLMediaElement self) val) foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: HTMLMediaElement -> IO Double -- | getVolume :: (MonadIO m, IsHTMLMediaElement self) => self -> m Double getVolume self = liftIO (js_getVolume (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted :: HTMLMediaElement -> Bool -> IO () -- | setMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setMuted self val = liftIO (js_setMuted (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)" js_getMuted :: HTMLMediaElement -> IO Bool -- | getMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getMuted self = liftIO (js_getMuted (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"defaultMuted\"] = $2;" js_setDefaultMuted :: HTMLMediaElement -> Bool -> IO () -- | setDefaultMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setDefaultMuted self val = liftIO (js_setDefaultMuted (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"defaultMuted\"] ? 1 : 0)" js_getDefaultMuted :: HTMLMediaElement -> IO Bool -- | getDefaultMuted :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getDefaultMuted self = liftIO (js_getDefaultMuted (toHTMLMediaElement self)) -- | emptied :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event emptied = unsafeEventName (toJSString "emptied") -- | loadedMetadata :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event loadedMetadata = unsafeEventName (toJSString "loadedmetadata") -- | loadedData :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event loadedData = unsafeEventName (toJSString "loadeddata") -- | canPlay :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event canPlay = unsafeEventName (toJSString "canplay") -- | canPlayThrough :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event canPlayThrough = unsafeEventName (toJSString "canplaythrough") -- | playing :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event playing = unsafeEventName (toJSString "playing") -- | ended :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event ended = unsafeEventName (toJSString "ended") -- | waiting :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event waiting = unsafeEventName (toJSString "waiting") -- | durationChange :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event durationChange = unsafeEventName (toJSString "durationchange") -- | timeUpdate :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event timeUpdate = unsafeEventName (toJSString "timeupdate") -- | playEvent :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event playEvent = unsafeEventName (toJSString "play") -- | pauseEvent :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event pauseEvent = unsafeEventName (toJSString "pause") -- | rateChange :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event rateChange = unsafeEventName (toJSString "ratechange") -- | volumeChange :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event volumeChange = unsafeEventName (toJSString "volumechange") foreign import javascript unsafe "$1[\"webkitPreservesPitch\"] = $2;" js_setWebkitPreservesPitch :: HTMLMediaElement -> Bool -> IO () -- | setWebkitPreservesPitch :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setWebkitPreservesPitch self val = liftIO (js_setWebkitPreservesPitch (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"webkitPreservesPitch\"] ? 1 : 0)" js_getWebkitPreservesPitch :: HTMLMediaElement -> IO Bool -- | getWebkitPreservesPitch :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitPreservesPitch self = liftIO (js_getWebkitPreservesPitch (toHTMLMediaElement self)) foreign import javascript unsafe "($1[\"webkitHasClosedCaptions\"] ? 1 : 0)" js_getWebkitHasClosedCaptions :: HTMLMediaElement -> IO Bool -- | getWebkitHasClosedCaptions :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitHasClosedCaptions self = liftIO (js_getWebkitHasClosedCaptions (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"webkitClosedCaptionsVisible\"] = $2;" js_setWebkitClosedCaptionsVisible :: HTMLMediaElement -> Bool -> IO () -- | setWebkitClosedCaptionsVisible :: (MonadIO m, IsHTMLMediaElement self) => self -> Bool -> m () setWebkitClosedCaptionsVisible self val = liftIO (js_setWebkitClosedCaptionsVisible (toHTMLMediaElement self) val) foreign import javascript unsafe "($1[\"webkitClosedCaptionsVisible\"] ? 1 : 0)" js_getWebkitClosedCaptionsVisible :: HTMLMediaElement -> IO Bool -- | getWebkitClosedCaptionsVisible :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitClosedCaptionsVisible self = liftIO (js_getWebkitClosedCaptionsVisible (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"webkitAudioDecodedByteCount\"]" js_getWebkitAudioDecodedByteCount :: HTMLMediaElement -> IO Word -- | getWebkitAudioDecodedByteCount :: (MonadIO m, IsHTMLMediaElement self) => self -> m Word getWebkitAudioDecodedByteCount self = liftIO (js_getWebkitAudioDecodedByteCount (toHTMLMediaElement self)) foreign import javascript unsafe "$1[\"webkitVideoDecodedByteCount\"]" js_getWebkitVideoDecodedByteCount :: HTMLMediaElement -> IO Word -- | getWebkitVideoDecodedByteCount :: (MonadIO m, IsHTMLMediaElement self) => self -> m Word getWebkitVideoDecodedByteCount self = liftIO (js_getWebkitVideoDecodedByteCount (toHTMLMediaElement self)) -- | webKitKeyAdded :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event webKitKeyAdded = unsafeEventName (toJSString "webkitkeyadded") -- | webKitKeyError :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event webKitKeyError = unsafeEventName (toJSString "webkitkeyerror") -- | webKitKeyMessage :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event webKitKeyMessage = unsafeEventName (toJSString "webkitkeymessage") -- | webKitNeedKey :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event webKitNeedKey = unsafeEventName (toJSString "webkitneedkey") foreign import javascript unsafe "$1[\"webkitKeys\"]" js_getWebkitKeys :: HTMLMediaElement -> IO (Nullable MediaKeys) -- | getWebkitKeys :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaKeys) getWebkitKeys self = liftIO (nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"audioTracks\"]" js_getAudioTracks :: HTMLMediaElement -> IO (Nullable AudioTrackList) -- | getAudioTracks :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe AudioTrackList) getAudioTracks self = liftIO (nullableToMaybe <$> (js_getAudioTracks (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"textTracks\"]" js_getTextTracks :: HTMLMediaElement -> IO (Nullable TextTrackList) -- | getTextTracks :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe TextTrackList) getTextTracks self = liftIO (nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"videoTracks\"]" js_getVideoTracks :: HTMLMediaElement -> IO (Nullable VideoTrackList) -- | getVideoTracks :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe VideoTrackList) getVideoTracks self = liftIO (nullableToMaybe <$> (js_getVideoTracks (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"mediaGroup\"] = $2;" js_setMediaGroup :: HTMLMediaElement -> Nullable JSString -> IO () -- | setMediaGroup :: (MonadIO m, IsHTMLMediaElement self, ToJSString val) => self -> Maybe val -> m () setMediaGroup self val = liftIO (js_setMediaGroup (toHTMLMediaElement self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"mediaGroup\"]" js_getMediaGroup :: HTMLMediaElement -> IO (Nullable JSString) -- | getMediaGroup :: (MonadIO m, IsHTMLMediaElement self, FromJSString result) => self -> m (Maybe result) getMediaGroup self = liftIO (fromMaybeJSString <$> (js_getMediaGroup (toHTMLMediaElement self))) foreign import javascript unsafe "$1[\"controller\"] = $2;" js_setController :: HTMLMediaElement -> Nullable MediaController -> IO () -- | setController :: (MonadIO m, IsHTMLMediaElement self) => self -> Maybe MediaController -> m () setController self val = liftIO (js_setController (toHTMLMediaElement self) (maybeToNullable val)) foreign import javascript unsafe "$1[\"controller\"]" js_getController :: HTMLMediaElement -> IO (Nullable MediaController) -- | getController :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaController) getController self = liftIO (nullableToMaybe <$> (js_getController (toHTMLMediaElement self))) foreign import javascript unsafe "($1[\"webkitCurrentPlaybackTargetIsWireless\"] ? 1 : 0)" js_getWebkitCurrentPlaybackTargetIsWireless :: HTMLMediaElement -> IO Bool -- | getWebkitCurrentPlaybackTargetIsWireless :: (MonadIO m, IsHTMLMediaElement self) => self -> m Bool getWebkitCurrentPlaybackTargetIsWireless self = liftIO (js_getWebkitCurrentPlaybackTargetIsWireless (toHTMLMediaElement self)) -- | webKitCurrentPlaybackTargetIsWirelessChanged :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event webKitCurrentPlaybackTargetIsWirelessChanged = unsafeEventName (toJSString "webkitcurrentplaybacktargetiswirelesschanged") -- | webKitPlaybackTargetAvailabilityChanged :: (IsHTMLMediaElement self, IsEventTarget self) => EventName self Event webKitPlaybackTargetAvailabilityChanged = unsafeEventName (toJSString "webkitplaybacktargetavailabilitychanged") foreign import javascript unsafe "$1[\"srcObject\"] = $2;" js_setSrcObject :: HTMLMediaElement -> Nullable MediaStream -> IO () -- | setSrcObject :: (MonadIO m, IsHTMLMediaElement self) => self -> Maybe MediaStream -> m () setSrcObject self val = liftIO (js_setSrcObject (toHTMLMediaElement self) (maybeToNullable val)) foreign import javascript unsafe "$1[\"srcObject\"]" js_getSrcObject :: HTMLMediaElement -> IO JSRef -- | getSrcObject :: (MonadIO m, IsHTMLMediaElement self) => self -> m (Maybe MediaStream) getSrcObject self = liftIO ((js_getSrcObject (toHTMLMediaElement self)) >>= fromJSRefUnchecked)