module JSDOM.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 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)
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)