module GHCJS.DOM.JSFFI.Generated.MediaControlsHost
(js_sortedTrackListForMenu, sortedTrackListForMenu,
sortedTrackListForMenu_, js_sortedTrackListForMenuAudio,
sortedTrackListForMenuAudio, sortedTrackListForMenuAudio_,
js_displayNameForTrack, displayNameForTrack, displayNameForTrack_,
js_displayNameForTrackAudio, displayNameForTrackAudio,
displayNameForTrackAudio_, js_setSelectedTextTrack,
setSelectedTextTrack, js_updateTextTrackContainer,
updateTextTrackContainer, js_enteredFullscreen, enteredFullscreen,
js_exitedFullscreen, exitedFullscreen, js_enterFullscreenOptimized,
enterFullscreenOptimized, js_mediaUIImageData, mediaUIImageData,
mediaUIImageData_, js_getCaptionMenuOffItem, getCaptionMenuOffItem,
getCaptionMenuOffItemUnsafe, getCaptionMenuOffItemUnchecked,
js_getCaptionMenuAutomaticItem, getCaptionMenuAutomaticItem,
getCaptionMenuAutomaticItemUnsafe,
getCaptionMenuAutomaticItemUnchecked, js_getCaptionDisplayMode,
getCaptionDisplayMode, js_getTextTrackContainer,
getTextTrackContainer, getTextTrackContainerUnsafe,
getTextTrackContainerUnchecked, js_getMediaPlaybackAllowsInline,
getMediaPlaybackAllowsInline, js_getSupportsFullscreen,
getSupportsFullscreen, js_getUserGestureRequired,
getUserGestureRequired, js_getExternalDeviceDisplayName,
getExternalDeviceDisplayName, js_getExternalDeviceType,
getExternalDeviceType, js_setControlsDependOnPageScaleFactor,
setControlsDependOnPageScaleFactor,
js_getControlsDependOnPageScaleFactor,
getControlsDependOnPageScaleFactor, MediaControlsHost(..),
gTypeMediaControlsHost)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord)
import qualified Prelude (error)
import Data.Typeable (Typeable)
import GHCJS.Types (JSVal(..), JSString)
import GHCJS.Foreign (jsNull)
import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..))
import GHCJS.Marshal (ToJSVal(..), FromJSVal(..))
import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import Data.Maybe (fromJust)
import GHCJS.DOM.Types
import Control.Applicative ((<$>))
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName)
import GHCJS.DOM.JSFFI.Generated.Enums
foreign import javascript unsafe
"$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenu ::
MediaControlsHost -> Nullable TextTrackList -> IO JSVal
sortedTrackListForMenu ::
(MonadIO m) =>
MediaControlsHost -> Maybe TextTrackList -> m [Maybe TextTrack]
sortedTrackListForMenu self trackList
= liftIO
((js_sortedTrackListForMenu (self) (maybeToNullable trackList)) >>=
fromJSValUnchecked)
sortedTrackListForMenu_ ::
(MonadIO m) => MediaControlsHost -> Maybe TextTrackList -> m ()
sortedTrackListForMenu_ self trackList
= liftIO
(void
(js_sortedTrackListForMenu (self) (maybeToNullable trackList)))
foreign import javascript unsafe
"$1[\"sortedTrackListForMenu\"]($2)" js_sortedTrackListForMenuAudio
:: MediaControlsHost -> Nullable AudioTrackList -> IO JSVal
sortedTrackListForMenuAudio ::
(MonadIO m) =>
MediaControlsHost -> Maybe AudioTrackList -> m [Maybe AudioTrack]
sortedTrackListForMenuAudio self trackList
= liftIO
((js_sortedTrackListForMenuAudio (self)
(maybeToNullable trackList))
>>= fromJSValUnchecked)
sortedTrackListForMenuAudio_ ::
(MonadIO m) => MediaControlsHost -> Maybe AudioTrackList -> m ()
sortedTrackListForMenuAudio_ self trackList
= liftIO
(void
(js_sortedTrackListForMenuAudio (self)
(maybeToNullable trackList)))
foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"
js_displayNameForTrack ::
MediaControlsHost -> Nullable TextTrack -> IO JSString
displayNameForTrack ::
(MonadIO m, FromJSString result) =>
MediaControlsHost -> Maybe TextTrack -> m result
displayNameForTrack self track
= liftIO
(fromJSString <$>
(js_displayNameForTrack (self) (maybeToNullable track)))
displayNameForTrack_ ::
(MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m ()
displayNameForTrack_ self track
= liftIO
(void (js_displayNameForTrack (self) (maybeToNullable track)))
foreign import javascript unsafe "$1[\"displayNameForTrack\"]($2)"
js_displayNameForTrackAudio ::
MediaControlsHost -> Nullable AudioTrack -> IO JSString
displayNameForTrackAudio ::
(MonadIO m, FromJSString result) =>
MediaControlsHost -> Maybe AudioTrack -> m result
displayNameForTrackAudio self track
= liftIO
(fromJSString <$>
(js_displayNameForTrackAudio (self) (maybeToNullable track)))
displayNameForTrackAudio_ ::
(MonadIO m) => MediaControlsHost -> Maybe AudioTrack -> m ()
displayNameForTrackAudio_ self track
= liftIO
(void (js_displayNameForTrackAudio (self) (maybeToNullable track)))
foreign import javascript unsafe "$1[\"setSelectedTextTrack\"]($2)"
js_setSelectedTextTrack ::
MediaControlsHost -> Nullable TextTrack -> IO ()
setSelectedTextTrack ::
(MonadIO m) => MediaControlsHost -> Maybe TextTrack -> m ()
setSelectedTextTrack self track
= liftIO (js_setSelectedTextTrack (self) (maybeToNullable track))
foreign import javascript unsafe
"$1[\"updateTextTrackContainer\"]()" js_updateTextTrackContainer ::
MediaControlsHost -> IO ()
updateTextTrackContainer ::
(MonadIO m) => MediaControlsHost -> m ()
updateTextTrackContainer self
= liftIO (js_updateTextTrackContainer (self))
foreign import javascript unsafe "$1[\"enteredFullscreen\"]()"
js_enteredFullscreen :: MediaControlsHost -> IO ()
enteredFullscreen :: (MonadIO m) => MediaControlsHost -> m ()
enteredFullscreen self = liftIO (js_enteredFullscreen (self))
foreign import javascript unsafe "$1[\"exitedFullscreen\"]()"
js_exitedFullscreen :: MediaControlsHost -> IO ()
exitedFullscreen :: (MonadIO m) => MediaControlsHost -> m ()
exitedFullscreen self = liftIO (js_exitedFullscreen (self))
foreign import javascript unsafe
"$1[\"enterFullscreenOptimized\"]()" js_enterFullscreenOptimized ::
MediaControlsHost -> IO ()
enterFullscreenOptimized ::
(MonadIO m) => MediaControlsHost -> m ()
enterFullscreenOptimized self
= liftIO (js_enterFullscreenOptimized (self))
foreign import javascript unsafe "$1[\"mediaUIImageData\"]($2)"
js_mediaUIImageData :: MediaControlsHost -> JSVal -> IO JSString
mediaUIImageData ::
(MonadIO m, FromJSString result) =>
MediaControlsHost -> MediaUIPartID -> m result
mediaUIImageData self partID
= liftIO
(fromJSString <$> (js_mediaUIImageData (self) (pToJSVal partID)))
mediaUIImageData_ ::
(MonadIO m) => MediaControlsHost -> MediaUIPartID -> m ()
mediaUIImageData_ self partID
= liftIO (void (js_mediaUIImageData (self) (pToJSVal partID)))
foreign import javascript unsafe "$1[\"captionMenuOffItem\"]"
js_getCaptionMenuOffItem ::
MediaControlsHost -> IO (Nullable TextTrack)
getCaptionMenuOffItem ::
(MonadIO m) => MediaControlsHost -> m (Maybe TextTrack)
getCaptionMenuOffItem self
= liftIO (nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))
getCaptionMenuOffItemUnsafe ::
(MonadIO m, HasCallStack) => MediaControlsHost -> m TextTrack
getCaptionMenuOffItemUnsafe self
= liftIO
((nullableToMaybe <$> (js_getCaptionMenuOffItem (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCaptionMenuOffItemUnchecked ::
(MonadIO m) => MediaControlsHost -> m TextTrack
getCaptionMenuOffItemUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getCaptionMenuOffItem (self)))
foreign import javascript unsafe "$1[\"captionMenuAutomaticItem\"]"
js_getCaptionMenuAutomaticItem ::
MediaControlsHost -> IO (Nullable TextTrack)
getCaptionMenuAutomaticItem ::
(MonadIO m) => MediaControlsHost -> m (Maybe TextTrack)
getCaptionMenuAutomaticItem self
= liftIO
(nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self)))
getCaptionMenuAutomaticItemUnsafe ::
(MonadIO m, HasCallStack) => MediaControlsHost -> m TextTrack
getCaptionMenuAutomaticItemUnsafe self
= liftIO
((nullableToMaybe <$> (js_getCaptionMenuAutomaticItem (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getCaptionMenuAutomaticItemUnchecked ::
(MonadIO m) => MediaControlsHost -> m TextTrack
getCaptionMenuAutomaticItemUnchecked self
= liftIO
(fromJust . nullableToMaybe <$>
(js_getCaptionMenuAutomaticItem (self)))
foreign import javascript unsafe "$1[\"captionDisplayMode\"]"
js_getCaptionDisplayMode :: MediaControlsHost -> IO JSString
getCaptionDisplayMode ::
(MonadIO m, FromJSString result) => MediaControlsHost -> m result
getCaptionDisplayMode self
= liftIO (fromJSString <$> (js_getCaptionDisplayMode (self)))
foreign import javascript unsafe "$1[\"textTrackContainer\"]"
js_getTextTrackContainer ::
MediaControlsHost -> IO (Nullable HTMLElement)
getTextTrackContainer ::
(MonadIO m) => MediaControlsHost -> m (Maybe HTMLElement)
getTextTrackContainer self
= liftIO (nullableToMaybe <$> (js_getTextTrackContainer (self)))
getTextTrackContainerUnsafe ::
(MonadIO m, HasCallStack) => MediaControlsHost -> m HTMLElement
getTextTrackContainerUnsafe self
= liftIO
((nullableToMaybe <$> (js_getTextTrackContainer (self))) >>=
maybe (Prelude.error "Nothing to return") return)
getTextTrackContainerUnchecked ::
(MonadIO m) => MediaControlsHost -> m HTMLElement
getTextTrackContainerUnchecked self
= liftIO
(fromJust . nullableToMaybe <$> (js_getTextTrackContainer (self)))
foreign import javascript unsafe
"($1[\"mediaPlaybackAllowsInline\"] ? 1 : 0)"
js_getMediaPlaybackAllowsInline :: MediaControlsHost -> IO Bool
getMediaPlaybackAllowsInline ::
(MonadIO m) => MediaControlsHost -> m Bool
getMediaPlaybackAllowsInline self
= liftIO (js_getMediaPlaybackAllowsInline (self))
foreign import javascript unsafe
"($1[\"supportsFullscreen\"] ? 1 : 0)" js_getSupportsFullscreen ::
MediaControlsHost -> IO Bool
getSupportsFullscreen :: (MonadIO m) => MediaControlsHost -> m Bool
getSupportsFullscreen self
= liftIO (js_getSupportsFullscreen (self))
foreign import javascript unsafe
"($1[\"userGestureRequired\"] ? 1 : 0)" js_getUserGestureRequired
:: MediaControlsHost -> IO Bool
getUserGestureRequired ::
(MonadIO m) => MediaControlsHost -> m Bool
getUserGestureRequired self
= liftIO (js_getUserGestureRequired (self))
foreign import javascript unsafe
"$1[\"externalDeviceDisplayName\"]" js_getExternalDeviceDisplayName
:: MediaControlsHost -> IO JSString
getExternalDeviceDisplayName ::
(MonadIO m, FromJSString result) => MediaControlsHost -> m result
getExternalDeviceDisplayName self
= liftIO
(fromJSString <$> (js_getExternalDeviceDisplayName (self)))
foreign import javascript unsafe "$1[\"externalDeviceType\"]"
js_getExternalDeviceType :: MediaControlsHost -> IO JSVal
getExternalDeviceType ::
(MonadIO m) => MediaControlsHost -> m DeviceType
getExternalDeviceType self
= liftIO ((js_getExternalDeviceType (self)) >>= fromJSValUnchecked)
foreign import javascript unsafe
"$1[\"controlsDependOnPageScaleFactor\"] = $2;"
js_setControlsDependOnPageScaleFactor ::
MediaControlsHost -> Bool -> IO ()
setControlsDependOnPageScaleFactor ::
(MonadIO m) => MediaControlsHost -> Bool -> m ()
setControlsDependOnPageScaleFactor self val
= liftIO (js_setControlsDependOnPageScaleFactor (self) val)
foreign import javascript unsafe
"($1[\"controlsDependOnPageScaleFactor\"] ? 1 : 0)"
js_getControlsDependOnPageScaleFactor ::
MediaControlsHost -> IO Bool
getControlsDependOnPageScaleFactor ::
(MonadIO m) => MediaControlsHost -> m Bool
getControlsDependOnPageScaleFactor self
= liftIO (js_getControlsDependOnPageScaleFactor (self))