module GHCJS.DOM.JSFFI.Generated.HTMLMediaElement
(js_load, load, js_canPlayType, 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, addTextTrack_, addTextTrackUnsafe,
addTextTrackUnchecked, js_getVideoPlaybackQuality,
getVideoPlaybackQuality, getVideoPlaybackQuality_,
getVideoPlaybackQualityUnsafe, getVideoPlaybackQualityUnchecked,
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, getErrorUnsafe,
getErrorUnchecked, js_setSrc, setSrc, js_getSrc, getSrc,
js_getCurrentSrc, getCurrentSrc, js_getNetworkState,
getNetworkState, js_setPreload, setPreload, js_getPreload,
getPreload, js_getBuffered, getBuffered, getBufferedUnsafe,
getBufferedUnchecked, 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,
getPlayedUnsafe, getPlayedUnchecked, js_getSeekable, getSeekable,
getSeekableUnsafe, getSeekableUnchecked, 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, getWebkitKeysUnsafe,
getWebkitKeysUnchecked, js_getAudioTracks, getAudioTracks,
getAudioTracksUnsafe, getAudioTracksUnchecked, js_getTextTracks,
getTextTracks, getTextTracksUnsafe, getTextTracksUnchecked,
js_getVideoTracks, getVideoTracks, getVideoTracksUnsafe,
getVideoTracksUnchecked, js_setMediaGroup, setMediaGroup,
js_getMediaGroup, getMediaGroup, getMediaGroupUnsafe,
getMediaGroupUnchecked, js_setController, setController,
js_getController, getController, getControllerUnsafe,
getControllerUnchecked,
js_getWebkitCurrentPlaybackTargetIsWireless,
getWebkitCurrentPlaybackTargetIsWireless,
webKitCurrentPlaybackTargetIsWirelessChanged,
webKitPlaybackTargetAvailabilityChanged, js_setSrcObject,
setSrcObject, js_getSrcObject, getSrcObject, getSrcObjectUnsafe,
getSrcObjectUnchecked, HTMLMediaElement(..), gTypeHTMLMediaElement,
IsHTMLMediaElement, toHTMLMediaElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.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)))
canPlayType_ ::
(MonadIO m, IsHTMLMediaElement self, ToJSString type',
ToJSString keySystem) =>
self -> type' -> Maybe keySystem -> m ()
canPlayType_ self type' keySystem
= liftIO
(void
(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)))
addTextTrack_ ::
(MonadIO m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language) =>
self -> kind -> label -> language -> m ()
addTextTrack_ self kind label language
= liftIO
(void
(js_addTextTrack (toHTMLMediaElement self) (toJSString kind)
(toJSString label)
(toJSString language)))
addTextTrackUnsafe ::
(MonadIO m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language, HasCallStack) =>
self -> kind -> label -> language -> m TextTrack
addTextTrackUnsafe self kind label language
= liftIO
((nullableToMaybe <$>
(js_addTextTrack (toHTMLMediaElement self) (toJSString kind)
(toJSString label)
(toJSString language)))
>>= maybe (Prelude.error "Nothing to return") return)
addTextTrackUnchecked ::
(MonadIO m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language) =>
self -> kind -> label -> language -> m TextTrack
addTextTrackUnchecked self kind label language
= liftIO
(fromJust . 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)))
getVideoPlaybackQuality_ ::
(MonadIO m, IsHTMLMediaElement self) => self -> m ()
getVideoPlaybackQuality_ self
= liftIO
(void (js_getVideoPlaybackQuality (toHTMLMediaElement self)))
getVideoPlaybackQualityUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m VideoPlaybackQuality
getVideoPlaybackQualityUnsafe self
= liftIO
((nullableToMaybe <$>
(js_getVideoPlaybackQuality (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getVideoPlaybackQualityUnchecked ::
(MonadIO m, IsHTMLMediaElement self) =>
self -> m VideoPlaybackQuality
getVideoPlaybackQualityUnchecked self
= liftIO
(fromJust . 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)))
getErrorUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaError
getErrorUnsafe self
= liftIO
((nullableToMaybe <$> (js_getError (toHTMLMediaElement self))) >>=
maybe (Prelude.error "Nothing to return") return)
getErrorUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m MediaError
getErrorUnchecked self
= liftIO
(fromJust . 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)))
getBufferedUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m TimeRanges
getBufferedUnsafe self
= liftIO
((nullableToMaybe <$> (js_getBuffered (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getBufferedUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges
getBufferedUnchecked self
= liftIO
(fromJust . 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)))
getPlayedUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m TimeRanges
getPlayedUnsafe self
= liftIO
((nullableToMaybe <$> (js_getPlayed (toHTMLMediaElement self))) >>=
maybe (Prelude.error "Nothing to return") return)
getPlayedUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges
getPlayedUnchecked self
= liftIO
(fromJust . 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)))
getSeekableUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m TimeRanges
getSeekableUnsafe self
= liftIO
((nullableToMaybe <$> (js_getSeekable (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getSeekableUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m TimeRanges
getSeekableUnchecked self
= liftIO
(fromJust . 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)))
getWebkitKeysUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaKeys
getWebkitKeysUnsafe self
= liftIO
((nullableToMaybe <$> (js_getWebkitKeys (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getWebkitKeysUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m MediaKeys
getWebkitKeysUnchecked self
= liftIO
(fromJust . 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)))
getAudioTracksUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m AudioTrackList
getAudioTracksUnsafe self
= liftIO
((nullableToMaybe <$>
(js_getAudioTracks (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getAudioTracksUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m AudioTrackList
getAudioTracksUnchecked self
= liftIO
(fromJust . 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)))
getTextTracksUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m TextTrackList
getTextTracksUnsafe self
= liftIO
((nullableToMaybe <$> (js_getTextTracks (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getTextTracksUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m TextTrackList
getTextTracksUnchecked self
= liftIO
(fromJust . 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)))
getVideoTracksUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m VideoTrackList
getVideoTracksUnsafe self
= liftIO
((nullableToMaybe <$>
(js_getVideoTracks (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getVideoTracksUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m VideoTrackList
getVideoTracksUnchecked self
= liftIO
(fromJust . 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)))
getMediaGroupUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack,
FromJSString result) =>
self -> m result
getMediaGroupUnsafe self
= liftIO
((fromMaybeJSString <$>
(js_getMediaGroup (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getMediaGroupUnchecked ::
(MonadIO m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getMediaGroupUnchecked self
= liftIO
(fromJust . 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)))
getControllerUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaController
getControllerUnsafe self
= liftIO
((nullableToMaybe <$> (js_getController (toHTMLMediaElement self)))
>>= maybe (Prelude.error "Nothing to return") return)
getControllerUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m MediaController
getControllerUnchecked self
= liftIO
(fromJust . 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 JSVal
getSrcObject ::
(MonadIO m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaStream)
getSrcObject self
= liftIO
((js_getSrcObject (toHTMLMediaElement self)) >>=
fromJSValUnchecked)
getSrcObjectUnsafe ::
(MonadIO m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaStream
getSrcObjectUnsafe self
= liftIO
(((js_getSrcObject (toHTMLMediaElement self)) >>=
fromJSValUnchecked)
>>= maybe (Prelude.error "Nothing to return") return)
getSrcObjectUnchecked ::
(MonadIO m, IsHTMLMediaElement self) => self -> m MediaStream
getSrcObjectUnchecked self
= liftIO
((js_getSrcObject (toHTMLMediaElement self)) >>=
fromJSValUnchecked)