{-# LANGUAGE PatternSynonyms #-} module Language.Javascript.JSaddle.DOM.Generated.TextTrackList (item, getTrackById, getLength, addTrack, change, removeTrack, TextTrackList, castToTextTrackList, gTypeTextTrackList) 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 -- | item :: (MonadDOM m) => TextTrackList -> Word -> m (Maybe TextTrack) item self index = liftDOM ((self ^. jsf "item" [toJSVal index]) >>= fromJSVal) -- | getTrackById :: (MonadDOM m, ToJSString id) => TextTrackList -> id -> m (Maybe TextTrack) getTrackById self id = liftDOM ((self ^. jsf "getTrackById" [toJSVal id]) >>= fromJSVal) -- | getLength :: (MonadDOM m) => TextTrackList -> m Word getLength self = liftDOM (round <$> ((self ^. js "length") >>= valToNumber)) -- | addTrack :: EventName TextTrackList Event addTrack = unsafeEventName (toJSString "addtrack") -- | change :: EventName TextTrackList Event change = unsafeEventName (toJSString "change") -- | removeTrack :: EventName TextTrackList Event removeTrack = unsafeEventName (toJSString "removetrack")