{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} 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)