{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.MediaControlsHost (sortedTrackListForMenu, sortedTrackListForMenuAudio, displayNameForTrack, displayNameForTrackAudio, setSelectedTextTrack, updateTextTrackContainer, enteredFullscreen, exitedFullscreen, enterFullscreenOptimized, mediaUIImageData, getCaptionMenuOffItem, getCaptionMenuAutomaticItem, getCaptionDisplayMode, getTextTrackContainer, getMediaPlaybackAllowsInline, getSupportsFullscreen, getUserGestureRequired, getExternalDeviceDisplayName, getExternalDeviceType, setControlsDependOnPageScaleFactor, getControlsDependOnPageScaleFactor, MediaControlsHost, castToMediaControlsHost, gTypeMediaControlsHost) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) 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 Language.Javascript.JSaddle.DOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import Language.Javascript.JSaddle.DOM.EventTargetClosures (EventName, unsafeEventName) import Language.Javascript.JSaddle.DOM.Enums -- | sortedTrackListForMenu :: (MonadDOM m) => MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack] sortedTrackListForMenu self trackList = liftDOM ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>= fromJSArray) -- | sortedTrackListForMenuAudio :: (MonadDOM m) => MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack] sortedTrackListForMenuAudio self trackList = liftDOM ((self ^. jsf "sortedTrackListForMenu" [toJSVal trackList]) >>= fromJSArray) -- | displayNameForTrack :: (MonadDOM m, FromJSString result) => MediaControlsHost -> Maybe TextTrack -> m result displayNameForTrack self track = liftDOM ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>= fromJSValUnchecked) -- | displayNameForTrackAudio :: (MonadDOM m, FromJSString result) => MediaControlsHost -> Maybe AudioTrack -> m result displayNameForTrackAudio self track = liftDOM ((self ^. jsf "displayNameForTrack" [toJSVal track]) >>= fromJSValUnchecked) -- | 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 ^. js "updateTextTrackContainer")) -- | enteredFullscreen :: (MonadDOM m) => MediaControlsHost -> m () enteredFullscreen self = liftDOM (void (self ^. js "enteredFullscreen")) -- | exitedFullscreen :: (MonadDOM m) => MediaControlsHost -> m () exitedFullscreen self = liftDOM (void (self ^. js "exitedFullscreen")) -- | enterFullscreenOptimized :: (MonadDOM m) => MediaControlsHost -> m () enterFullscreenOptimized self = liftDOM (void (self ^. js "enterFullscreenOptimized")) -- | mediaUIImageData :: (MonadDOM m, FromJSString result) => MediaControlsHost -> MediaUIPartID -> m result mediaUIImageData self partID = liftDOM ((self ^. jsf "mediaUIImageData" [toJSVal partID]) >>= fromJSValUnchecked) -- | getCaptionMenuOffItem :: (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuOffItem self = liftDOM ((self ^. js "captionMenuOffItem") >>= fromJSVal) -- | getCaptionMenuAutomaticItem :: (MonadDOM m) => MediaControlsHost -> m (Maybe TextTrack) getCaptionMenuAutomaticItem self = liftDOM ((self ^. js "captionMenuAutomaticItem") >>= fromJSVal) -- | 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) -- | 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)