{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.SourceBuffer (appendBuffer, appendBufferView, abort, remove, setMode, getMode, getUpdating, getBuffered, setTimestampOffset, getTimestampOffset, getAudioTracks, getVideoTracks, getTextTracks, setAppendWindowStart, getAppendWindowStart, setAppendWindowEnd, getAppendWindowEnd, SourceBuffer, castToSourceBuffer, gTypeSourceBuffer) 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 -- | appendBuffer :: (MonadDOM m, IsArrayBuffer data') => SourceBuffer -> Maybe data' -> m () appendBuffer self data' = liftDOM (void (self ^. jsf "appendBuffer" [toJSVal data'])) -- | appendBufferView :: (MonadDOM m, IsArrayBufferView data') => SourceBuffer -> Maybe data' -> m () appendBufferView self data' = liftDOM (void (self ^. jsf "appendBuffer" [toJSVal data'])) -- | abort :: (MonadDOM m) => SourceBuffer -> m () abort self = liftDOM (void (self ^. js "abort")) -- | remove :: (MonadDOM m) => SourceBuffer -> Double -> Double -> m () remove self start end = liftDOM (void (self ^. jsf "remove" [toJSVal start, toJSVal end])) -- | setMode :: (MonadDOM m) => SourceBuffer -> AppendMode -> m () setMode self val = liftDOM (self ^. jss "mode" (toJSVal val)) -- | getMode :: (MonadDOM m) => SourceBuffer -> m AppendMode getMode self = liftDOM ((self ^. js "mode") >>= fromJSValUnchecked) -- | getUpdating :: (MonadDOM m) => SourceBuffer -> m Bool getUpdating self = liftDOM ((self ^. js "updating") >>= valToBool) -- | getBuffered :: (MonadDOM m) => SourceBuffer -> m (Maybe TimeRanges) getBuffered self = liftDOM ((self ^. js "buffered") >>= fromJSVal) -- | setTimestampOffset :: (MonadDOM m) => SourceBuffer -> Double -> m () setTimestampOffset self val = liftDOM (self ^. jss "timestampOffset" (toJSVal val)) -- | getTimestampOffset :: (MonadDOM m) => SourceBuffer -> m Double getTimestampOffset self = liftDOM ((self ^. js "timestampOffset") >>= valToNumber) -- | getAudioTracks :: (MonadDOM m) => SourceBuffer -> m (Maybe AudioTrackList) getAudioTracks self = liftDOM ((self ^. js "audioTracks") >>= fromJSVal) -- | getVideoTracks :: (MonadDOM m) => SourceBuffer -> m (Maybe VideoTrackList) getVideoTracks self = liftDOM ((self ^. js "videoTracks") >>= fromJSVal) -- | getTextTracks :: (MonadDOM m) => SourceBuffer -> m (Maybe TextTrackList) getTextTracks self = liftDOM ((self ^. js "textTracks") >>= fromJSVal) -- | setAppendWindowStart :: (MonadDOM m) => SourceBuffer -> Double -> m () setAppendWindowStart self val = liftDOM (self ^. jss "appendWindowStart" (toJSVal val)) -- | getAppendWindowStart :: (MonadDOM m) => SourceBuffer -> m Double getAppendWindowStart self = liftDOM ((self ^. js "appendWindowStart") >>= valToNumber) -- | setAppendWindowEnd :: (MonadDOM m) => SourceBuffer -> Double -> m () setAppendWindowEnd self val = liftDOM (self ^. jss "appendWindowEnd" (toJSVal val)) -- | getAppendWindowEnd :: (MonadDOM m) => SourceBuffer -> m Double getAppendWindowEnd self = liftDOM ((self ^. js "appendWindowEnd") >>= valToNumber)