{-# 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]
sortedTrackListForMenu self trackList
= liftDOM
((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=
fromJSArrayUnchecked)
sortedTrackListForMenu_ ::
(MonadDOM m) => MediaControlsHost -> TextTrackList -> m ()
sortedTrackListForMenu_ self trackList
= liftDOM
(void (self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]))
sortedTrackListForMenuAudio ::
(MonadDOM m) =>
MediaControlsHost -> AudioTrackList -> m [AudioTrack]
sortedTrackListForMenuAudio self trackList
= liftDOM
((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=
fromJSArrayUnchecked)
sortedTrackListForMenuAudio_ ::
(MonadDOM m) => MediaControlsHost -> AudioTrackList -> m ()
sortedTrackListForMenuAudio_ self trackList
= liftDOM
(void (self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]))
displayNameForTrack ::
(MonadDOM m, IsTrack track, FromJSString result) =>
MediaControlsHost -> Maybe track -> m result
displayNameForTrack self track
= liftDOM
((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=
fromJSValUnchecked)
displayNameForTrack_ ::
(MonadDOM m, IsTrack track) =>
MediaControlsHost -> Maybe track -> m ()
displayNameForTrack_ self track
= liftDOM
(void (self ^. jsf "displayNameForTrack" [toJSVal track]))
setSelectedTextTrack ::
(MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m ()
setSelectedTextTrack self track
= liftDOM
(void (self ^. jsf "setSelectedTextTrack" [toJSVal track]))
setPreparedToReturnVideoLayerToInline ::
(MonadDOM m) => MediaControlsHost -> Bool -> m ()
setPreparedToReturnVideoLayerToInline self prepared
= liftDOM
(void
(self ^. jsf "setPreparedToReturnVideoLayerToInline"
[toJSVal prepared]))
updateTextTrackContainer ::
(MonadDOM m) => MediaControlsHost -> m ()
updateTextTrackContainer self
= liftDOM (void (self ^. jsf "updateTextTrackContainer" ()))
enteredFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()
enteredFullscreen self
= liftDOM (void (self ^. jsf "enteredFullscreen" ()))
exitedFullscreen :: (MonadDOM m) => MediaControlsHost -> m ()
exitedFullscreen self
= liftDOM (void (self ^. jsf "exitedFullscreen" ()))
generateUUID ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
generateUUID self
= liftDOM ((self ^. jsf "generateUUID" ()) >>= fromJSValUnchecked)
generateUUID_ :: (MonadDOM m) => MediaControlsHost -> m ()
generateUUID_ self = liftDOM (void (self ^. jsf "generateUUID" ()))
base64StringForIconNameAndType ::
(MonadDOM m, ToJSString iconName, ToJSString iconType,
FromJSString result) =>
MediaControlsHost -> iconName -> iconType -> m result
base64StringForIconNameAndType self iconName iconType
= liftDOM
((self ^. jsf "base64StringForIconNameAndType"
[toJSVal iconName, toJSVal iconType])
>>= fromJSValUnchecked)
base64StringForIconNameAndType_ ::
(MonadDOM m, ToJSString iconName, ToJSString iconType) =>
MediaControlsHost -> iconName -> iconType -> m ()
base64StringForIconNameAndType_ self iconName iconType
= liftDOM
(void
(self ^. jsf "base64StringForIconNameAndType"
[toJSVal iconName, toJSVal iconType]))
getCaptionMenuOffItem ::
(MonadDOM m) => MediaControlsHost -> m TextTrack
getCaptionMenuOffItem self
= liftDOM
((self ^. js "captionMenuOffItem") >>= fromJSValUnchecked)
getCaptionMenuAutomaticItem ::
(MonadDOM m) => MediaControlsHost -> m TextTrack
getCaptionMenuAutomaticItem self
= liftDOM
((self ^. js "captionMenuAutomaticItem") >>= fromJSValUnchecked)
getCaptionDisplayMode ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
getCaptionDisplayMode self
= liftDOM
((self ^. js "captionDisplayMode") >>= fromJSValUnchecked)
getTextTrackContainer ::
(MonadDOM m) => MediaControlsHost -> m HTMLElement
getTextTrackContainer self
= liftDOM
((self ^. js "textTrackContainer") >>= fromJSValUnchecked)
getAllowsInlineMediaPlayback ::
(MonadDOM m) => MediaControlsHost -> m Bool
getAllowsInlineMediaPlayback self
= liftDOM ((self ^. js "allowsInlineMediaPlayback") >>= valToBool)
getSupportsFullscreen ::
(MonadDOM m) => MediaControlsHost -> m Bool
getSupportsFullscreen self
= liftDOM ((self ^. js "supportsFullscreen") >>= valToBool)
getIsVideoLayerInline ::
(MonadDOM m) => MediaControlsHost -> m Bool
getIsVideoLayerInline self
= liftDOM ((self ^. js "isVideoLayerInline") >>= valToBool)
getUserGestureRequired ::
(MonadDOM m) => MediaControlsHost -> m Bool
getUserGestureRequired self
= liftDOM ((self ^. js "userGestureRequired") >>= valToBool)
getIsInMediaDocument :: (MonadDOM m) => MediaControlsHost -> m Bool
getIsInMediaDocument self
= liftDOM ((self ^. js "isInMediaDocument") >>= valToBool)
getShouldForceControlsDisplay ::
(MonadDOM m) => MediaControlsHost -> m Bool
getShouldForceControlsDisplay self
= liftDOM ((self ^. js "shouldForceControlsDisplay") >>= valToBool)
getExternalDeviceDisplayName ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
getExternalDeviceDisplayName self
= liftDOM
((self ^. js "externalDeviceDisplayName") >>= fromJSValUnchecked)
getExternalDeviceType ::
(MonadDOM m) => MediaControlsHost -> m DeviceType
getExternalDeviceType self
= liftDOM
((self ^. js "externalDeviceType") >>= fromJSValUnchecked)
setControlsDependOnPageScaleFactor ::
(MonadDOM m) => MediaControlsHost -> Bool -> m ()
setControlsDependOnPageScaleFactor self val
= liftDOM
(self ^. jss "controlsDependOnPageScaleFactor" (toJSVal val))
getControlsDependOnPageScaleFactor ::
(MonadDOM m) => MediaControlsHost -> m Bool
getControlsDependOnPageScaleFactor self
= liftDOM
((self ^. js "controlsDependOnPageScaleFactor") >>= valToBool)
getShadowRootCSSText ::
(MonadDOM m, FromJSString result) => MediaControlsHost -> m result
getShadowRootCSSText self
= liftDOM ((self ^. js "shadowRootCSSText") >>= fromJSValUnchecked)