{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.MediaControlsHost
(sortedTrackListForMenu, sortedTrackListForMenu_,
sortedTrackListForMenuAudio, sortedTrackListForMenuAudio_,
displayNameForTrack, displayNameForTrack_, setSelectedTextTrack,
setPreparedToReturnVideoLayerToInline, updateTextTrackContainer,
enteredFullscreen, exitedFullscreen, generateUUID, generateUUID_,
base64StringForIconNameAndType, base64StringForIconNameAndType_,
getCaptionMenuOffItem, getCaptionMenuAutomaticItem,
getCaptionDisplayMode, getTextTrackContainer,
getAllowsInlineMediaPlayback, getSupportsFullscreen,
getIsVideoLayerInline, getUserGestureRequired,
getIsInMediaDocument, getShouldForceControlsDisplay,
getExternalDeviceDisplayName, getExternalDeviceType,
setControlsDependOnPageScaleFactor,
getControlsDependOnPageScaleFactor, getShadowRootCSSText,
MediaControlsHost(..), gTypeMediaControlsHost)
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
sortedTrackListForMenu ::
(MonadDOM m) => MediaControlsHost -> TextTrackList -> m [TextTrack]
MediaControlsHost
self TextTrackList
trackList
= DOM [TextTrack] -> m [TextTrack]
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"sortedTrackListForMenu" [TextTrackList -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal TextTrackList
trackList]) JSM JSVal -> (JSVal -> DOM [TextTrack]) -> DOM [TextTrack]
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM [TextTrack]
forall o. FromJSVal o => JSVal -> JSM [o]
fromJSArrayUnchecked)
sortedTrackListForMenu_ ::
(MonadDOM m) => MediaControlsHost -> TextTrackList -> m ()
MediaControlsHost
self TextTrackList
trackList
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"sortedTrackListForMenu" [TextTrackList -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal TextTrackList
trackList]))
sortedTrackListForMenuAudio ::
(MonadDOM m) =>
MediaControlsHost -> AudioTrackList -> m [AudioTrack]
MediaControlsHost
self AudioTrackList
trackList
= DOM [AudioTrack] -> m [AudioTrack]
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"sortedTrackListForMenu" [AudioTrackList -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal AudioTrackList
trackList]) JSM JSVal -> (JSVal -> DOM [AudioTrack]) -> DOM [AudioTrack]
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM [AudioTrack]
forall o. FromJSVal o => JSVal -> JSM [o]
fromJSArrayUnchecked)
sortedTrackListForMenuAudio_ ::
(MonadDOM m) => MediaControlsHost -> AudioTrackList -> m ()
MediaControlsHost
self AudioTrackList
trackList
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"sortedTrackListForMenu" [AudioTrackList -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal AudioTrackList
trackList]))
displayNameForTrack ::
(MonadDOM m, IsTrack track, FromJSString result) =>
MediaControlsHost -> Maybe track -> m result
displayNameForTrack :: MediaControlsHost -> Maybe track -> m result
displayNameForTrack MediaControlsHost
self Maybe track
track
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"displayNameForTrack" [Maybe track -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe track
track]) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
displayNameForTrack_ ::
(MonadDOM m, IsTrack track) =>
MediaControlsHost -> Maybe track -> m ()
displayNameForTrack_ :: MediaControlsHost -> Maybe track -> m ()
displayNameForTrack_ MediaControlsHost
self Maybe track
track
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"displayNameForTrack" [Maybe track -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe track
track]))
setSelectedTextTrack ::
(MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m ()
setSelectedTextTrack :: MediaControlsHost -> Maybe TextTrack -> m ()
setSelectedTextTrack MediaControlsHost
self Maybe TextTrack
track
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setSelectedTextTrack" [Maybe TextTrack -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe TextTrack
track]))
setPreparedToReturnVideoLayerToInline ::
(MonadDOM m) => MediaControlsHost -> Bool -> m ()
setPreparedToReturnVideoLayerToInline :: MediaControlsHost -> Bool -> m ()
setPreparedToReturnVideoLayerToInline MediaControlsHost
self Bool
prepared
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"setPreparedToReturnVideoLayerToInline"
[Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
prepared]))
updateTextTrackContainer ::
(MonadDOM m) => MediaControlsHost -> m ()
updateTextTrackContainer :: MediaControlsHost -> m ()
updateTextTrackContainer MediaControlsHost
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 (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"updateTextTrackContainer" ()))
enteredFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()
enteredFullscreen :: MediaControlsHost -> m ()
enteredFullscreen MediaControlsHost
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 (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"enteredFullscreen" ()))
exitedFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()
exitedFullscreen :: MediaControlsHost -> m ()
exitedFullscreen MediaControlsHost
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 (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"exitedFullscreen" ()))
generateUUID ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
generateUUID :: MediaControlsHost -> m result
generateUUID MediaControlsHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"generateUUID" ()) JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
generateUUID_ :: (MonadDOM m) => MediaControlsHost -> m ()
generateUUID_ :: MediaControlsHost -> m ()
generateUUID_ MediaControlsHost
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 (MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"generateUUID" ()))
base64StringForIconNameAndType ::
(MonadDOM m, ToJSString iconName, ToJSString iconType,
FromJSString result) =>
MediaControlsHost -> iconName -> iconType -> m result
base64StringForIconNameAndType :: MediaControlsHost -> iconName -> iconType -> m result
base64StringForIconNameAndType MediaControlsHost
self iconName
iconName iconType
iconType
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"base64StringForIconNameAndType"
[iconName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal iconName
iconName, iconType -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal iconType
iconType])
JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
base64StringForIconNameAndType_ ::
(MonadDOM m, ToJSString iconName, ToJSString iconType) =>
MediaControlsHost -> iconName -> iconType -> m ()
base64StringForIconNameAndType_ :: MediaControlsHost -> iconName -> iconType -> m ()
base64StringForIconNameAndType_ MediaControlsHost
self iconName
iconName iconType
iconType
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf [Char]
"base64StringForIconNameAndType"
[iconName -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal iconName
iconName, iconType -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal iconType
iconType]))
getCaptionMenuOffItem ::
(MonadDOM m) => MediaControlsHost -> m TextTrack
MediaControlsHost
self
= DOM TextTrack -> m TextTrack
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"captionMenuOffItem") JSM JSVal -> (JSVal -> DOM TextTrack) -> DOM TextTrack
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TextTrack
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCaptionMenuAutomaticItem ::
(MonadDOM m) => MediaControlsHost -> m TextTrack
MediaControlsHost
self
= DOM TextTrack -> m TextTrack
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"captionMenuAutomaticItem") JSM JSVal -> (JSVal -> DOM TextTrack) -> DOM TextTrack
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TextTrack
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCaptionDisplayMode ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
getCaptionDisplayMode :: MediaControlsHost -> m result
getCaptionDisplayMode MediaControlsHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"captionDisplayMode") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getTextTrackContainer ::
(MonadDOM m) => MediaControlsHost -> m HTMLElement
getTextTrackContainer :: MediaControlsHost -> m HTMLElement
getTextTrackContainer MediaControlsHost
self
= DOM HTMLElement -> m HTMLElement
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"textTrackContainer") JSM JSVal -> (JSVal -> DOM HTMLElement) -> DOM HTMLElement
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM HTMLElement
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getAllowsInlineMediaPlayback ::
(MonadDOM m) => MediaControlsHost -> m Bool
getAllowsInlineMediaPlayback :: MediaControlsHost -> m Bool
getAllowsInlineMediaPlayback MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"allowsInlineMediaPlayback") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getSupportsFullscreen ::
(MonadDOM m) => MediaControlsHost -> m Bool
getSupportsFullscreen :: MediaControlsHost -> m Bool
getSupportsFullscreen MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"supportsFullscreen") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getIsVideoLayerInline ::
(MonadDOM m) => MediaControlsHost -> m Bool
getIsVideoLayerInline :: MediaControlsHost -> m Bool
getIsVideoLayerInline MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"isVideoLayerInline") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getUserGestureRequired ::
(MonadDOM m) => MediaControlsHost -> m Bool
getUserGestureRequired :: MediaControlsHost -> m Bool
getUserGestureRequired MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"userGestureRequired") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getIsInMediaDocument :: (MonadDOM m) => MediaControlsHost -> m Bool
getIsInMediaDocument :: MediaControlsHost -> m Bool
getIsInMediaDocument MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"isInMediaDocument") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getShouldForceControlsDisplay ::
(MonadDOM m) => MediaControlsHost -> m Bool
getShouldForceControlsDisplay :: MediaControlsHost -> m Bool
getShouldForceControlsDisplay MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"shouldForceControlsDisplay") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getExternalDeviceDisplayName ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
getExternalDeviceDisplayName :: MediaControlsHost -> m result
getExternalDeviceDisplayName MediaControlsHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"externalDeviceDisplayName") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getExternalDeviceType ::
(MonadDOM m) => MediaControlsHost -> m DeviceType
getExternalDeviceType :: MediaControlsHost -> m DeviceType
getExternalDeviceType MediaControlsHost
self
= DOM DeviceType -> m DeviceType
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"externalDeviceType") JSM JSVal -> (JSVal -> DOM DeviceType) -> DOM DeviceType
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DeviceType
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setControlsDependOnPageScaleFactor ::
(MonadDOM m) => MediaControlsHost -> Bool -> m ()
setControlsDependOnPageScaleFactor :: MediaControlsHost -> Bool -> m ()
setControlsDependOnPageScaleFactor MediaControlsHost
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(MediaControlsHost
self MediaControlsHost
-> Getting (DOM ()) MediaControlsHost (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> 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 [Char]
"controlsDependOnPageScaleFactor" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getControlsDependOnPageScaleFactor ::
(MonadDOM m) => MediaControlsHost -> m Bool
getControlsDependOnPageScaleFactor :: MediaControlsHost -> m Bool
getControlsDependOnPageScaleFactor MediaControlsHost
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"controlsDependOnPageScaleFactor") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
getShadowRootCSSText ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
getShadowRootCSSText :: MediaControlsHost -> m result
getShadowRootCSSText MediaControlsHost
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((MediaControlsHost
self MediaControlsHost
-> Getting (JSM JSVal) MediaControlsHost (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter MediaControlsHost (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"shadowRootCSSText") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)