{-# LANGUAGE PatternSynonyms, ForeignFunctionInterface, JavaScriptFFI #-} module GHCJS.DOM.JSFFI.Generated.MediaController (js_newMediaController, newMediaController, js_play, play, js_pause, pause, js_unpause, unpause, js_getBuffered, getBuffered, js_getSeekable, getSeekable, js_getDuration, getDuration, js_setCurrentTime, setCurrentTime, js_getCurrentTime, getCurrentTime, js_getPaused, getPaused, js_getPlayed, getPlayed, js_getPlaybackState, getPlaybackState, js_setDefaultPlaybackRate, setDefaultPlaybackRate, js_getDefaultPlaybackRate, getDefaultPlaybackRate, js_setPlaybackRate, setPlaybackRate, js_getPlaybackRate, getPlaybackRate, js_setVolume, setVolume, js_getVolume, getVolume, js_setMuted, setMuted, js_getMuted, getMuted, MediaController, castToMediaController, gTypeMediaController) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import Data.Typeable (Typeable) import GHCJS.Types (JSRef(..), JSString, castRef) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSRef(..), FromJSRef(..)) import GHCJS.Marshal.Pure (PToJSRef(..), PFromJSRef(..)) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.Enums foreign import javascript unsafe "new window[\"MediaController\"]()" js_newMediaController :: IO (JSRef MediaController) -- | newMediaController :: (MonadIO m) => m MediaController newMediaController = liftIO (js_newMediaController >>= fromJSRefUnchecked) foreign import javascript unsafe "$1[\"play\"]()" js_play :: JSRef MediaController -> IO () -- | play :: (MonadIO m) => MediaController -> m () play self = liftIO (js_play (unMediaController self)) foreign import javascript unsafe "$1[\"pause\"]()" js_pause :: JSRef MediaController -> IO () -- | pause :: (MonadIO m) => MediaController -> m () pause self = liftIO (js_pause (unMediaController self)) foreign import javascript unsafe "$1[\"unpause\"]()" js_unpause :: JSRef MediaController -> IO () -- | unpause :: (MonadIO m) => MediaController -> m () unpause self = liftIO (js_unpause (unMediaController self)) foreign import javascript unsafe "$1[\"buffered\"]" js_getBuffered :: JSRef MediaController -> IO (JSRef TimeRanges) -- | getBuffered :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) getBuffered self = liftIO ((js_getBuffered (unMediaController self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"seekable\"]" js_getSeekable :: JSRef MediaController -> IO (JSRef TimeRanges) -- | getSeekable :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) getSeekable self = liftIO ((js_getSeekable (unMediaController self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"duration\"]" js_getDuration :: JSRef MediaController -> IO Double -- | getDuration :: (MonadIO m) => MediaController -> m Double getDuration self = liftIO (js_getDuration (unMediaController self)) foreign import javascript unsafe "$1[\"currentTime\"] = $2;" js_setCurrentTime :: JSRef MediaController -> Double -> IO () -- | setCurrentTime :: (MonadIO m) => MediaController -> Double -> m () setCurrentTime self val = liftIO (js_setCurrentTime (unMediaController self) val) foreign import javascript unsafe "$1[\"currentTime\"]" js_getCurrentTime :: JSRef MediaController -> IO Double -- | getCurrentTime :: (MonadIO m) => MediaController -> m Double getCurrentTime self = liftIO (js_getCurrentTime (unMediaController self)) foreign import javascript unsafe "($1[\"paused\"] ? 1 : 0)" js_getPaused :: JSRef MediaController -> IO Bool -- | getPaused :: (MonadIO m) => MediaController -> m Bool getPaused self = liftIO (js_getPaused (unMediaController self)) foreign import javascript unsafe "$1[\"played\"]" js_getPlayed :: JSRef MediaController -> IO (JSRef TimeRanges) -- | getPlayed :: (MonadIO m) => MediaController -> m (Maybe TimeRanges) getPlayed self = liftIO ((js_getPlayed (unMediaController self)) >>= fromJSRef) foreign import javascript unsafe "$1[\"playbackState\"]" js_getPlaybackState :: JSRef MediaController -> IO JSString -- | getPlaybackState :: (MonadIO m, FromJSString result) => MediaController -> m result getPlaybackState self = liftIO (fromJSString <$> (js_getPlaybackState (unMediaController self))) foreign import javascript unsafe "$1[\"defaultPlaybackRate\"] = $2;" js_setDefaultPlaybackRate :: JSRef MediaController -> Double -> IO () -- | setDefaultPlaybackRate :: (MonadIO m) => MediaController -> Double -> m () setDefaultPlaybackRate self val = liftIO (js_setDefaultPlaybackRate (unMediaController self) val) foreign import javascript unsafe "$1[\"defaultPlaybackRate\"]" js_getDefaultPlaybackRate :: JSRef MediaController -> IO Double -- | getDefaultPlaybackRate :: (MonadIO m) => MediaController -> m Double getDefaultPlaybackRate self = liftIO (js_getDefaultPlaybackRate (unMediaController self)) foreign import javascript unsafe "$1[\"playbackRate\"] = $2;" js_setPlaybackRate :: JSRef MediaController -> Double -> IO () -- | setPlaybackRate :: (MonadIO m) => MediaController -> Double -> m () setPlaybackRate self val = liftIO (js_setPlaybackRate (unMediaController self) val) foreign import javascript unsafe "$1[\"playbackRate\"]" js_getPlaybackRate :: JSRef MediaController -> IO Double -- | getPlaybackRate :: (MonadIO m) => MediaController -> m Double getPlaybackRate self = liftIO (js_getPlaybackRate (unMediaController self)) foreign import javascript unsafe "$1[\"volume\"] = $2;" js_setVolume :: JSRef MediaController -> Double -> IO () -- | setVolume :: (MonadIO m) => MediaController -> Double -> m () setVolume self val = liftIO (js_setVolume (unMediaController self) val) foreign import javascript unsafe "$1[\"volume\"]" js_getVolume :: JSRef MediaController -> IO Double -- | getVolume :: (MonadIO m) => MediaController -> m Double getVolume self = liftIO (js_getVolume (unMediaController self)) foreign import javascript unsafe "$1[\"muted\"] = $2;" js_setMuted :: JSRef MediaController -> Bool -> IO () -- | setMuted :: (MonadIO m) => MediaController -> Bool -> m () setMuted self val = liftIO (js_setMuted (unMediaController self) val) foreign import javascript unsafe "($1[\"muted\"] ? 1 : 0)" js_getMuted :: JSRef MediaController -> IO Bool -- | getMuted :: (MonadIO m) => MediaController -> m Bool getMuted self = liftIO (js_getMuted (unMediaController self))