module JSDOM.Generated.MediaControlsHost
(sortedTrackListForMenu, sortedTrackListForMenu_,
sortedTrackListForMenuAudio, sortedTrackListForMenuAudio_,
displayNameForTrack, displayNameForTrack_,
displayNameForTrackAudio, displayNameForTrackAudio_,
setSelectedTextTrack, updateTextTrackContainer, enteredFullscreen,
exitedFullscreen, enterFullscreenOptimized, mediaUIImageData,
mediaUIImageData_, getCaptionMenuOffItem,
getCaptionMenuOffItemUnsafe, getCaptionMenuOffItemUnchecked,
getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItemUnsafe,
getCaptionMenuAutomaticItemUnchecked, getCaptionDisplayMode,
getTextTrackContainer, getTextTrackContainerUnsafe,
getTextTrackContainerUnchecked, getMediaPlaybackAllowsInline,
getSupportsFullscreen, getUserGestureRequired,
getExternalDeviceDisplayName, getExternalDeviceType,
setControlsDependOnPageScaleFactor,
getControlsDependOnPageScaleFactor, 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 Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
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)
import JSDOM.Enums
sortedTrackListForMenu ::
(MonadDOM m) =>
MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack]
sortedTrackListForMenu self trackList
= liftDOM
((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=
fromJSArray)
sortedTrackListForMenu_ ::
(MonadDOM m) => MediaControlsHost -> Maybe TextTrackList -> m ()
sortedTrackListForMenu_ self trackList
= liftDOM
(void (self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]))
sortedTrackListForMenuAudio ::
(MonadDOM m) =>
MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack]
sortedTrackListForMenuAudio self trackList
= liftDOM
((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>=
fromJSArray)
sortedTrackListForMenuAudio_ ::
(MonadDOM m) => MediaControlsHost -> Maybe AudioTrackList -> m ()
sortedTrackListForMenuAudio_ self trackList
= liftDOM
(void (self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]))
displayNameForTrack ::
(MonadDOM m, FromJSString result) =>
MediaControlsHost -> Maybe TextTrack -> m result
displayNameForTrack self track
= liftDOM
((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=
fromJSValUnchecked)
displayNameForTrack_ ::
(MonadDOM m) => MediaControlsHost -> Maybe TextTrack -> m ()
displayNameForTrack_ self track
= liftDOM
(void (self ^. jsf "displayNameForTrack" [toJSVal track]))
displayNameForTrackAudio ::
(MonadDOM m, FromJSString result) =>
MediaControlsHost -> Maybe AudioTrack -> m result
displayNameForTrackAudio self track
= liftDOM
((self ^. jsf "displayNameForTrack" [toJSVal track]) >>=
fromJSValUnchecked)
displayNameForTrackAudio_ ::
(MonadDOM m) => MediaControlsHost -> Maybe AudioTrack -> m ()
displayNameForTrackAudio_ 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]))
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" ()))
enterFullscreenOptimized ::
(MonadDOM m) => MediaControlsHost -> m ()
enterFullscreenOptimized self
= liftDOM (void (self ^. jsf "enterFullscreenOptimized" ()))
mediaUIImageData ::
(MonadDOM m, FromJSString result) =>
MediaControlsHost -> MediaUIPartID -> m result
mediaUIImageData self partID
= liftDOM
((self ^. jsf "mediaUIImageData" [toJSVal partID]) >>=
fromJSValUnchecked)
mediaUIImageData_ ::
(MonadDOM m) => MediaControlsHost -> MediaUIPartID -> m ()
mediaUIImageData_ self partID
= liftDOM (void (self ^. jsf "mediaUIImageData" [toJSVal partID]))
getCaptionMenuOffItem ::
(MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack)
getCaptionMenuOffItem self
= liftDOM ((self ^. js "captionMenuOffItem") >>= fromJSVal)
getCaptionMenuOffItemUnsafe ::
(MonadDOM m, HasCallStack) => MediaControlsHost -> m TextTrack
getCaptionMenuOffItemUnsafe self
= liftDOM
(((self ^. js "captionMenuOffItem") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getCaptionMenuOffItemUnchecked ::
(MonadDOM m) => MediaControlsHost -> m TextTrack
getCaptionMenuOffItemUnchecked self
= liftDOM
((self ^. js "captionMenuOffItem") >>= fromJSValUnchecked)
getCaptionMenuAutomaticItem ::
(MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack)
getCaptionMenuAutomaticItem self
= liftDOM ((self ^. js "captionMenuAutomaticItem") >>= fromJSVal)
getCaptionMenuAutomaticItemUnsafe ::
(MonadDOM m, HasCallStack) => MediaControlsHost -> m TextTrack
getCaptionMenuAutomaticItemUnsafe self
= liftDOM
(((self ^. js "captionMenuAutomaticItem") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getCaptionMenuAutomaticItemUnchecked ::
(MonadDOM m) => MediaControlsHost -> m TextTrack
getCaptionMenuAutomaticItemUnchecked 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 (Maybe HTMLElement)
getTextTrackContainer self
= liftDOM ((self ^. js "textTrackContainer") >>= fromJSVal)
getTextTrackContainerUnsafe ::
(MonadDOM m, HasCallStack) => MediaControlsHost -> m HTMLElement
getTextTrackContainerUnsafe self
= liftDOM
(((self ^. js "textTrackContainer") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getTextTrackContainerUnchecked ::
(MonadDOM m) => MediaControlsHost -> m HTMLElement
getTextTrackContainerUnchecked self
= liftDOM
((self ^. js "textTrackContainer") >>= fromJSValUnchecked)
getMediaPlaybackAllowsInline ::
(MonadDOM m) => MediaControlsHost -> m Bool
getMediaPlaybackAllowsInline self
= liftDOM ((self ^. js "mediaPlaybackAllowsInline") >>= valToBool)
getSupportsFullscreen ::
(MonadDOM m) => MediaControlsHost -> m Bool
getSupportsFullscreen self
= liftDOM ((self ^. js "supportsFullscreen") >>= valToBool)
getUserGestureRequired ::
(MonadDOM m) => MediaControlsHost -> m Bool
getUserGestureRequired self
= liftDOM ((self ^. js "userGestureRequired") >>= 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)