{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.TextTrackCue
(getTrack, setId, getId, setStartTime, getStartTime, setEndTime,
getEndTime, setPauseOnExit, getPauseOnExit, enter, exit,
TextTrackCue(..), gTypeTextTrackCue, IsTextTrackCue,
toTextTrackCue)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
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, unsafeEventNameAsync)
import JSDOM.Enums
getTrack ::
(MonadDOM m, IsTextTrackCue self) => self -> m TextTrack
getTrack :: self -> m TextTrack
getTrack self
self
= DOM TextTrack -> m TextTrack
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue
-> Getting (JSM JSVal) TextTrackCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter TextTrackCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"track") JSM JSVal -> (JSVal -> DOM TextTrack) -> DOM TextTrack
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM TextTrack
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setId ::
(MonadDOM m, IsTextTrackCue self, ToJSString val) =>
self -> val -> m ()
setId :: self -> val -> m ()
setId self
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue -> Getting (DOM ()) TextTrackCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"id" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getId ::
(MonadDOM m, IsTextTrackCue self, FromJSString result) =>
self -> m result
getId :: self -> m result
getId self
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue
-> Getting (JSM JSVal) TextTrackCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter TextTrackCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"id") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setStartTime ::
(MonadDOM m, IsTextTrackCue self) => self -> Double -> m ()
setStartTime :: self -> Double -> m ()
setStartTime self
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue -> Getting (DOM ()) TextTrackCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"startTime" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getStartTime ::
(MonadDOM m, IsTextTrackCue self) => self -> m Double
getStartTime :: self -> m Double
getStartTime self
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue
-> Getting (JSM JSVal) TextTrackCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter TextTrackCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"startTime") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setEndTime ::
(MonadDOM m, IsTextTrackCue self) => self -> Double -> m ()
setEndTime :: self -> Double -> m ()
setEndTime self
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue -> Getting (DOM ()) TextTrackCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"endTime" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getEndTime :: (MonadDOM m, IsTextTrackCue self) => self -> m Double
getEndTime :: self -> m Double
getEndTime self
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue
-> Getting (JSM JSVal) TextTrackCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter TextTrackCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"endTime") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setPauseOnExit ::
(MonadDOM m, IsTextTrackCue self) => self -> Bool -> m ()
setPauseOnExit :: self -> Bool -> m ()
setPauseOnExit self
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue -> Getting (DOM ()) TextTrackCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. [Char]
-> JSM JSVal
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
forall name val.
(ToJSString name, ToJSVal val) =>
name
-> val
-> forall o. MakeObject o => IndexPreservingGetter o (DOM ())
jss [Char]
"pauseOnExit" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getPauseOnExit ::
(MonadDOM m, IsTextTrackCue self) => self -> m Bool
getPauseOnExit :: self -> m Bool
getPauseOnExit self
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(((self -> TextTrackCue
forall o. IsTextTrackCue o => o -> TextTrackCue
toTextTrackCue self
self) TextTrackCue
-> Getting (JSM JSVal) TextTrackCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. [Char] -> IndexPreservingGetter TextTrackCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js [Char]
"pauseOnExit") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
enter ::
(IsTextTrackCue self, IsEventTarget self) => EventName self Event
enter :: EventName self Event
enter = DOMString -> EventName self Event
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"enter")
exit ::
(IsTextTrackCue self, IsEventTarget self) => EventName self Event
exit :: EventName self Event
exit = DOMString -> EventName self Event
forall t e. DOMString -> EventName t e
unsafeEventName ([Char] -> DOMString
forall a. ToJSString a => a -> DOMString
toJSString [Char]
"exit")