{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.HTMLMediaElement
(load, canPlayType, canPlayType_, getStartDate, getStartDate_,
play, pause, fastSeek, webkitSetMediaKeys, setMediaKeys,
addTextTrack, addTextTrack_, getVideoPlaybackQuality,
getVideoPlaybackQuality_, 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, getError, setSrc, getSrc, setSrcObject,
getSrcObject, getSrcObjectUnsafe, getSrcObjectUnchecked,
getCurrentSrc, setCrossOrigin, getCrossOrigin,
getCrossOriginUnsafe, getCrossOriginUnchecked, getNetworkState,
setPreload, getPreload, getBuffered, getReadyState, getSeeking,
setCurrentTime, getCurrentTime, getDuration, getPaused,
setDefaultPlaybackRate, getDefaultPlaybackRate, setPlaybackRate,
getPlaybackRate, getPlayed, getSeekable, getEnded, setAutoplay,
getAutoplay, setLoop, getLoop, setControls, getControls, setVolume,
getVolume, setMuted, getMuted, setDefaultMuted, getDefaultMuted,
setWebkitPreservesPitch, getWebkitPreservesPitch,
getWebkitHasClosedCaptions, setWebkitClosedCaptionsVisible,
getWebkitClosedCaptionsVisible, getWebkitAudioDecodedByteCount,
getWebkitVideoDecodedByteCount, getWebkitKeys, getMediaKeys,
encrypted, waitingforkey, getAudioTracks, getTextTracks,
getVideoTracks, setMediaGroup, getMediaGroup, setController,
getController, getControllerUnsafe, getControllerUnchecked,
getWebkitCurrentPlaybackTargetIsWireless, setKind, getKind,
setSession, getSession, getSessionUnsafe, getSessionUnchecked,
HTMLMediaElement(..), gTypeHTMLMediaElement, IsHTMLMediaElement,
toHTMLMediaElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
load :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()
load :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m ()
load self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"load" ()))
canPlayType ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString type',
FromJSString result) =>
self -> type' -> m result
canPlayType :: forall (m :: * -> *) self type' result.
(MonadDOM m, IsHTMLMediaElement self, ToJSString type',
FromJSString result) =>
self -> type' -> m result
canPlayType self
self type'
type'
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"canPlayType" [type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal type'
type'])
JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
canPlayType_ ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString type') =>
self -> type' -> m ()
canPlayType_ :: forall (m :: * -> *) self type'.
(MonadDOM m, IsHTMLMediaElement self, ToJSString type') =>
self -> type' -> m ()
canPlayType_ self
self type'
type'
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"canPlayType" [type' -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal type'
type']))
getStartDate ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Date
getStartDate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Date
getStartDate self
self
= DOM Date -> m Date
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getStartDate" ()) JSM JSVal -> (JSVal -> DOM Date) -> DOM Date
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Date
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getStartDate_ ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m ()
getStartDate_ :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m ()
getStartDate_ self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getStartDate" ()))
play :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()
play :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m ()
play self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"play" ()) JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
readPromise))
pause :: (MonadDOM m, IsHTMLMediaElement self) => self -> m ()
pause :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m ()
pause self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"pause" ()))
fastSeek ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()
fastSeek :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Double -> m ()
fastSeek self
self Double
time
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"fastSeek" [Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
time]))
webkitSetMediaKeys ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe WebKitMediaKeys -> m ()
webkitSetMediaKeys :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe WebKitMediaKeys -> m ()
webkitSetMediaKeys self
self Maybe WebKitMediaKeys
mediaKeys
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"webkitSetMediaKeys"
[Maybe WebKitMediaKeys -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe WebKitMediaKeys
mediaKeys]))
setMediaKeys ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe MediaKeys -> m ()
setMediaKeys :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe MediaKeys -> m ()
setMediaKeys self
self Maybe MediaKeys
mediaKeys
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"setMediaKeys"
[Maybe MediaKeys -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe MediaKeys
mediaKeys])
JSM JSVal -> (JSVal -> JSM JSVal) -> JSM JSVal
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM JSVal
readPromise))
addTextTrack ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language) =>
self -> kind -> Maybe label -> Maybe language -> m TextTrack
addTextTrack :: forall (m :: * -> *) self kind label language.
(MonadDOM m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language) =>
self -> kind -> Maybe label -> Maybe language -> m TextTrack
addTextTrack self
self kind
kind Maybe label
label Maybe language
language
= DOM TextTrack -> m TextTrack
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"addTextTrack"
[kind -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal kind
kind, Maybe label -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe label
label, Maybe language -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe language
language])
JSM JSVal -> (JSVal -> DOM TextTrack) -> DOM TextTrack
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TextTrack
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
addTextTrack_ ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language) =>
self -> kind -> Maybe label -> Maybe language -> m ()
addTextTrack_ :: forall (m :: * -> *) self kind label language.
(MonadDOM m, IsHTMLMediaElement self, ToJSString kind,
ToJSString label, ToJSString language) =>
self -> kind -> Maybe label -> Maybe language -> m ()
addTextTrack_ self
self kind
kind Maybe label
label Maybe language
language
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"addTextTrack"
[kind -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal kind
kind, Maybe label -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe label
label, Maybe language -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe language
language]))
getVideoPlaybackQuality ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m VideoPlaybackQuality
getVideoPlaybackQuality :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m VideoPlaybackQuality
getVideoPlaybackQuality self
self
= DOM VideoPlaybackQuality -> m VideoPlaybackQuality
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getVideoPlaybackQuality" ())
JSM JSVal
-> (JSVal -> DOM VideoPlaybackQuality) -> DOM VideoPlaybackQuality
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM VideoPlaybackQuality
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getVideoPlaybackQuality_ ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m ()
getVideoPlaybackQuality_ :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m ()
getVideoPlaybackQuality_ self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getVideoPlaybackQuality" ()))
webkitShowPlaybackTargetPicker ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m ()
webkitShowPlaybackTargetPicker :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m ()
webkitShowPlaybackTargetPicker self
self
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"webkitShowPlaybackTargetPicker"
()))
pattern $mNETWORK_EMPTY :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNETWORK_EMPTY :: forall {a}. (Eq a, Num a) => a
NETWORK_EMPTY = 0
pattern $mNETWORK_IDLE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNETWORK_IDLE :: forall {a}. (Eq a, Num a) => a
NETWORK_IDLE = 1
pattern $mNETWORK_LOADING :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNETWORK_LOADING :: forall {a}. (Eq a, Num a) => a
NETWORK_LOADING = 2
pattern $mNETWORK_NO_SOURCE :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bNETWORK_NO_SOURCE :: forall {a}. (Eq a, Num a) => a
NETWORK_NO_SOURCE = 3
pattern $mHAVE_NOTHING :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bHAVE_NOTHING :: forall {a}. (Eq a, Num a) => a
HAVE_NOTHING = 0
pattern $mHAVE_METADATA :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bHAVE_METADATA :: forall {a}. (Eq a, Num a) => a
HAVE_METADATA = 1
pattern $mHAVE_CURRENT_DATA :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bHAVE_CURRENT_DATA :: forall {a}. (Eq a, Num a) => a
HAVE_CURRENT_DATA = 2
pattern $mHAVE_FUTURE_DATA :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bHAVE_FUTURE_DATA :: forall {a}. (Eq a, Num a) => a
HAVE_FUTURE_DATA = 3
pattern $mHAVE_ENOUGH_DATA :: forall {r} {a}.
(Eq a, Num a) =>
a -> ((# #) -> r) -> ((# #) -> r) -> r
$bHAVE_ENOUGH_DATA :: forall {a}. (Eq a, Num a) => a
HAVE_ENOUGH_DATA = 4
getError ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m MediaError
getError :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m MediaError
getError self
self
= DOM MediaError -> m MediaError
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"error") JSM JSVal -> (JSVal -> DOM MediaError) -> DOM MediaError
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM MediaError
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setSrc ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>
self -> val -> m ()
setSrc :: forall (m :: * -> *) self type'.
(MonadDOM m, IsHTMLMediaElement self, ToJSString type') =>
self -> type' -> m ()
setSrc self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"src" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getSrc ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getSrc :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getSrc self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"src") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setSrcObject ::
(MonadDOM m, IsHTMLMediaElement self, IsMediaProvider val) =>
self -> Maybe val -> m ()
setSrcObject :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLMediaElement self, IsMediaProvider val) =>
self -> Maybe val -> m ()
setSrcObject self
self Maybe val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"srcObject" (Maybe val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe val
val))
getSrcObject ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaProvider)
getSrcObject :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaProvider)
getSrcObject self
self
= DOM (Maybe MediaProvider) -> m (Maybe MediaProvider)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"srcObject") JSM JSVal
-> (JSVal -> DOM (Maybe MediaProvider))
-> DOM (Maybe MediaProvider)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe MediaProvider)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getSrcObjectUnsafe ::
(MonadDOM m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaProvider
getSrcObjectUnsafe :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaProvider
getSrcObjectUnsafe self
self
= DOM MediaProvider -> m MediaProvider
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"srcObject") JSM JSVal
-> (JSVal -> DOM (Maybe MediaProvider))
-> DOM (Maybe MediaProvider)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe MediaProvider)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe MediaProvider)
-> (Maybe MediaProvider -> DOM MediaProvider) -> DOM MediaProvider
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM MediaProvider
-> (MediaProvider -> DOM MediaProvider)
-> Maybe MediaProvider
-> DOM MediaProvider
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM MediaProvider
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") MediaProvider -> DOM MediaProvider
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getSrcObjectUnchecked ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m MediaProvider
getSrcObjectUnchecked :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m MediaProvider
getSrcObjectUnchecked self
self
= DOM MediaProvider -> m MediaProvider
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"srcObject") JSM JSVal -> (JSVal -> DOM MediaProvider) -> DOM MediaProvider
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaProvider
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCurrentSrc ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getCurrentSrc :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getCurrentSrc self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"currentSrc") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setCrossOrigin ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>
self -> Maybe val -> m ()
setCrossOrigin :: forall (m :: * -> *) self val.
(MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>
self -> Maybe val -> m ()
setCrossOrigin self
self Maybe val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"crossOrigin" (Maybe val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe val
val))
getCrossOrigin ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m (Maybe result)
getCrossOrigin :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m (Maybe result)
getCrossOrigin self
self
= DOM (Maybe result) -> m (Maybe result)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"crossOrigin") JSM JSVal -> (JSVal -> DOM (Maybe result)) -> DOM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
getCrossOriginUnsafe ::
(MonadDOM m, IsHTMLMediaElement self, HasCallStack,
FromJSString result) =>
self -> m result
getCrossOriginUnsafe :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, HasCallStack,
FromJSString result) =>
self -> m result
getCrossOriginUnsafe self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"crossOrigin") JSM JSVal -> (JSVal -> JSM (Maybe result)) -> JSM (Maybe result)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM (Maybe result)
forall a. FromJSString a => JSVal -> JSM (Maybe a)
fromMaybeJSString)
JSM (Maybe result) -> (Maybe result -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= DOM result -> (result -> DOM result) -> Maybe result -> DOM result
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM result
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") result -> DOM result
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getCrossOriginUnchecked ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getCrossOriginUnchecked :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getCrossOriginUnchecked self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"crossOrigin") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getNetworkState ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Word
getNetworkState :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Word
getNetworkState self
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"networkState") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
setPreload ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>
self -> val -> m ()
setPreload :: forall (m :: * -> *) self type'.
(MonadDOM m, IsHTMLMediaElement self, ToJSString type') =>
self -> type' -> m ()
setPreload self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"preload" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getPreload ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getPreload :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getPreload self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"preload") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getBuffered ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m TimeRanges
getBuffered :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m TimeRanges
getBuffered self
self
= DOM TimeRanges -> m TimeRanges
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"buffered") JSM JSVal -> (JSVal -> DOM TimeRanges) -> DOM TimeRanges
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM TimeRanges
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getReadyState ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Word
getReadyState :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Word
getReadyState self
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"readyState") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getSeeking ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getSeeking :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getSeeking self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"seeking") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setCurrentTime ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()
setCurrentTime :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Double -> m ()
setCurrentTime self
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"currentTime" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getCurrentTime ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Double
getCurrentTime :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Double
getCurrentTime self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"currentTime") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getDuration ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Double
getDuration :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Double
getDuration self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"duration") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getPaused ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getPaused :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getPaused self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"paused") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setDefaultPlaybackRate ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()
setDefaultPlaybackRate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Double -> m ()
setDefaultPlaybackRate self
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"defaultPlaybackRate"
(Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getDefaultPlaybackRate ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Double
getDefaultPlaybackRate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Double
getDefaultPlaybackRate self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"defaultPlaybackRate") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
setPlaybackRate ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()
setPlaybackRate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Double -> m ()
setPlaybackRate self
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"playbackRate" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getPlaybackRate ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Double
getPlaybackRate :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Double
getPlaybackRate self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"playbackRate") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
getPlayed ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m TimeRanges
getPlayed :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m TimeRanges
getPlayed self
self
= DOM TimeRanges -> m TimeRanges
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"played") JSM JSVal -> (JSVal -> DOM TimeRanges) -> DOM TimeRanges
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TimeRanges
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getSeekable ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m TimeRanges
getSeekable :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m TimeRanges
getSeekable self
self
= DOM TimeRanges -> m TimeRanges
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"seekable") JSM JSVal -> (JSVal -> DOM TimeRanges) -> DOM TimeRanges
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM TimeRanges
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getEnded :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getEnded :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getEnded self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"ended") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setAutoplay ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setAutoplay :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setAutoplay self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"autoplay" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getAutoplay ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getAutoplay :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getAutoplay self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"autoplay") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setLoop ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setLoop :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setLoop self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"loop" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getLoop :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getLoop :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getLoop self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"loop") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setControls ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setControls :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setControls self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"controls" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getControls ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getControls :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getControls self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"controls") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setVolume ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Double -> m ()
setVolume :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Double -> m ()
setVolume self
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"volume" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getVolume ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Double
getVolume :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Double
getVolume self
self
= JSM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"volume") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber)
setMuted ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setMuted :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setMuted self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"muted" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getMuted :: (MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getMuted :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getMuted self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"muted") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setDefaultMuted ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setDefaultMuted :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setDefaultMuted self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"defaultMuted" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getDefaultMuted ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getDefaultMuted :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getDefaultMuted self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"defaultMuted") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setWebkitPreservesPitch ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setWebkitPreservesPitch :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setWebkitPreservesPitch self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"webkitPreservesPitch"
(Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getWebkitPreservesPitch ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getWebkitPreservesPitch :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getWebkitPreservesPitch self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitPreservesPitch") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getWebkitHasClosedCaptions ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getWebkitHasClosedCaptions :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getWebkitHasClosedCaptions self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitHasClosedCaptions") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setWebkitClosedCaptionsVisible ::
(MonadDOM m, IsHTMLMediaElement self) => self -> Bool -> m ()
setWebkitClosedCaptionsVisible :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Bool -> m ()
setWebkitClosedCaptionsVisible self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"webkitClosedCaptionsVisible"
(Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getWebkitClosedCaptionsVisible ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getWebkitClosedCaptionsVisible :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getWebkitClosedCaptionsVisible self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitClosedCaptionsVisible")
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getWebkitAudioDecodedByteCount ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Word
getWebkitAudioDecodedByteCount :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Word
getWebkitAudioDecodedByteCount self
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitAudioDecodedByteCount")
JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getWebkitVideoDecodedByteCount ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Word
getWebkitVideoDecodedByteCount :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Word
getWebkitVideoDecodedByteCount self
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitVideoDecodedByteCount")
JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))
getWebkitKeys ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m WebKitMediaKeys
getWebkitKeys :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m WebKitMediaKeys
getWebkitKeys self
self
= DOM WebKitMediaKeys -> m WebKitMediaKeys
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitKeys") JSM JSVal -> (JSVal -> DOM WebKitMediaKeys) -> DOM WebKitMediaKeys
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM WebKitMediaKeys
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getMediaKeys ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m MediaKeys
getMediaKeys :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m MediaKeys
getMediaKeys self
self
= DOM MediaKeys -> m MediaKeys
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"mediaKeys") JSM JSVal -> (JSVal -> DOM MediaKeys) -> DOM MediaKeys
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaKeys
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
encrypted ::
(IsHTMLMediaElement self, IsEventTarget self) =>
EventName self onencrypted
encrypted :: forall self onencrypted.
(IsHTMLMediaElement self, IsEventTarget self) =>
EventName self onencrypted
encrypted = DOMString -> EventName self onencrypted
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"encrypted")
waitingforkey ::
(IsHTMLMediaElement self, IsEventTarget self) =>
EventName self onwaitingforkey
waitingforkey :: forall self onencrypted.
(IsHTMLMediaElement self, IsEventTarget self) =>
EventName self onencrypted
waitingforkey = DOMString -> EventName self onwaitingforkey
forall t e. DOMString -> EventName t e
unsafeEventName (String -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString String
"waitingforkey")
getAudioTracks ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m AudioTrackList
getAudioTracks :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m AudioTrackList
getAudioTracks self
self
= DOM AudioTrackList -> m AudioTrackList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"audioTracks") JSM JSVal -> (JSVal -> DOM AudioTrackList) -> DOM AudioTrackList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM AudioTrackList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getTextTracks ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m TextTrackList
getTextTracks :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m TextTrackList
getTextTracks self
self
= DOM TextTrackList -> m TextTrackList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"textTracks") JSM JSVal -> (JSVal -> DOM TextTrackList) -> DOM TextTrackList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM TextTrackList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getVideoTracks ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m VideoTrackList
getVideoTracks :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m VideoTrackList
getVideoTracks self
self
= DOM VideoTrackList -> m VideoTrackList
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"videoTracks") JSM JSVal -> (JSVal -> DOM VideoTrackList) -> DOM VideoTrackList
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM VideoTrackList
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setMediaGroup ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>
self -> val -> m ()
setMediaGroup :: forall (m :: * -> *) self type'.
(MonadDOM m, IsHTMLMediaElement self, ToJSString type') =>
self -> type' -> m ()
setMediaGroup self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"mediaGroup" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getMediaGroup ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getMediaGroup :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getMediaGroup self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"mediaGroup") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setController ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe MediaController -> m ()
setController :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe MediaController -> m ()
setController self
self Maybe MediaController
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"controller" (Maybe MediaController -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe MediaController
val))
getController ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaController)
getController :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaController)
getController self
self
= DOM (Maybe MediaController) -> m (Maybe MediaController)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"controller") JSM JSVal
-> (JSVal -> DOM (Maybe MediaController))
-> DOM (Maybe MediaController)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe MediaController)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getControllerUnsafe ::
(MonadDOM m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaController
getControllerUnsafe :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaController
getControllerUnsafe self
self
= DOM MediaController -> m MediaController
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"controller") JSM JSVal
-> (JSVal -> DOM (Maybe MediaController))
-> DOM (Maybe MediaController)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe MediaController)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe MediaController)
-> (Maybe MediaController -> DOM MediaController)
-> DOM MediaController
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM MediaController
-> (MediaController -> DOM MediaController)
-> Maybe MediaController
-> DOM MediaController
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM MediaController
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") MediaController -> DOM MediaController
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getControllerUnchecked ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m MediaController
getControllerUnchecked :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m MediaController
getControllerUnchecked self
self
= DOM MediaController -> m MediaController
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"controller") JSM JSVal -> (JSVal -> DOM MediaController) -> DOM MediaController
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaController
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getWebkitCurrentPlaybackTargetIsWireless ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m Bool
getWebkitCurrentPlaybackTargetIsWireless :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m Bool
getWebkitCurrentPlaybackTargetIsWireless self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^.
String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"webkitCurrentPlaybackTargetIsWireless")
JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setKind ::
(MonadDOM m, IsHTMLMediaElement self, ToJSString val) =>
self -> val -> m ()
setKind :: forall (m :: * -> *) self type'.
(MonadDOM m, IsHTMLMediaElement self, ToJSString type') =>
self -> type' -> m ()
setKind self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"kind" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getKind ::
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getKind :: forall (m :: * -> *) self result.
(MonadDOM m, IsHTMLMediaElement self, FromJSString result) =>
self -> m result
getKind self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"kind") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setSession ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe MediaSession -> m ()
setSession :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> Maybe MediaSession -> m ()
setSession self
self Maybe MediaSession
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (DOM ()) HTMLMediaElement (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss String
"session" (Maybe MediaSession -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe MediaSession
val))
getSession ::
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaSession)
getSession :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m (Maybe MediaSession)
getSession self
self
= DOM (Maybe MediaSession) -> m (Maybe MediaSession)
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"session") JSM JSVal
-> (JSVal -> DOM (Maybe MediaSession)) -> DOM (Maybe MediaSession)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe MediaSession)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal)
getSessionUnsafe ::
(MonadDOM m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaSession
getSessionUnsafe :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self, HasCallStack) =>
self -> m MediaSession
getSessionUnsafe self
self
= DOM MediaSession -> m MediaSession
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"session") JSM JSVal
-> (JSVal -> DOM (Maybe MediaSession)) -> DOM (Maybe MediaSession)
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM (Maybe MediaSession)
forall a. FromJSVal a => JSVal -> JSM (Maybe a)
fromJSVal) DOM (Maybe MediaSession)
-> (Maybe MediaSession -> DOM MediaSession) -> DOM MediaSession
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
DOM MediaSession
-> (MediaSession -> DOM MediaSession)
-> Maybe MediaSession
-> DOM MediaSession
forall b a. b -> (a -> b) -> Maybe a -> b
maybe (String -> DOM MediaSession
forall a. HasCallStack => String -> a
Prelude.error String
"Nothing to return") MediaSession -> DOM MediaSession
forall a. a -> JSM a
forall (m :: * -> *) a. Monad m => a -> m a
return)
getSessionUnchecked ::
(MonadDOM m, IsHTMLMediaElement self) => self -> m MediaSession
getSessionUnchecked :: forall (m :: * -> *) self.
(MonadDOM m, IsHTMLMediaElement self) =>
self -> m MediaSession
getSessionUnchecked self
self
= DOM MediaSession -> m MediaSession
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> HTMLMediaElement
forall o. IsHTMLMediaElement o => o -> HTMLMediaElement
toHTMLMediaElement self
self) HTMLMediaElement
-> Getting (JSM JSVal) HTMLMediaElement (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter HTMLMediaElement (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"session") JSM JSVal -> (JSVal -> DOM MediaSession) -> DOM MediaSession
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM MediaSession
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)