{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.VTTCue
(newVTTCue, getCueAsHTML, getCueAsHTML_, setVertical, getVertical,
setSnapToLines, getSnapToLines, setLine, getLine, setPosition,
getPosition, setSize, getSize, setAlign, getAlign, setText,
getText, setRegionId, getRegionId, VTTCue(..), gTypeVTTCue)
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
newVTTCue ::
(MonadDOM m, ToJSString text) =>
Double -> Double -> text -> m VTTCue
newVTTCue :: forall (m :: * -> *) text.
(MonadDOM m, ToJSString text) =>
Double -> Double -> text -> m VTTCue
newVTTCue Double
startTime Double
endTime text
text
= DOM VTTCue -> m VTTCue
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSVal -> VTTCue
VTTCue (JSVal -> VTTCue) -> JSM JSVal -> DOM VTTCue
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$>
JSM JSVal -> [JSM JSVal] -> JSM JSVal
forall constructor args.
(MakeObject constructor, MakeArgs args) =>
constructor -> args -> JSM JSVal
new (String -> JSM JSVal
forall a. ToJSString a => a -> JSM JSVal
jsg String
"VTTCue")
[Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
startTime, Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
endTime, text -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal text
text])
getCueAsHTML :: (MonadDOM m) => VTTCue -> m DocumentFragment
getCueAsHTML :: forall (m :: * -> *). MonadDOM m => VTTCue -> m DocumentFragment
getCueAsHTML VTTCue
self
= DOM DocumentFragment -> m DocumentFragment
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getCueAsHTML" ()) JSM JSVal
-> (JSVal -> DOM DocumentFragment) -> DOM DocumentFragment
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM DocumentFragment
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getCueAsHTML_ :: (MonadDOM m) => VTTCue -> m ()
getCueAsHTML_ :: forall (m :: * -> *). MonadDOM m => VTTCue -> m ()
getCueAsHTML_ VTTCue
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getCueAsHTML" ()))
setVertical ::
(MonadDOM m, ToJSString val) => VTTCue -> val -> m ()
setVertical :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
VTTCue -> val -> m ()
setVertical VTTCue
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"vertical" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getVertical ::
(MonadDOM m, FromJSString result) => VTTCue -> m result
getVertical :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
VTTCue -> m result
getVertical VTTCue
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"vertical") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setSnapToLines :: (MonadDOM m) => VTTCue -> Bool -> m ()
setSnapToLines :: forall (m :: * -> *). MonadDOM m => VTTCue -> Bool -> m ()
setSnapToLines VTTCue
self Bool
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"snapToLines" (Bool -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Bool
val))
getSnapToLines :: (MonadDOM m) => VTTCue -> m Bool
getSnapToLines :: forall (m :: * -> *). MonadDOM m => VTTCue -> m Bool
getSnapToLines VTTCue
self
= DOM Bool -> m Bool
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"snapToLines") JSM JSVal -> (JSVal -> DOM Bool) -> DOM Bool
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Bool
forall value. ToJSVal value => value -> DOM Bool
valToBool)
setLine :: (MonadDOM m) => VTTCue -> Double -> m ()
setLine :: forall (m :: * -> *). MonadDOM m => VTTCue -> Double -> m ()
setLine VTTCue
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"line" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getLine :: (MonadDOM m) => VTTCue -> m Double
getLine :: forall (m :: * -> *). MonadDOM m => VTTCue -> m Double
getLine VTTCue
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"line") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setPosition :: (MonadDOM m) => VTTCue -> Double -> m ()
setPosition :: forall (m :: * -> *). MonadDOM m => VTTCue -> Double -> m ()
setPosition VTTCue
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"position" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getPosition :: (MonadDOM m) => VTTCue -> m Double
getPosition :: forall (m :: * -> *). MonadDOM m => VTTCue -> m Double
getPosition VTTCue
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"position") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setSize :: (MonadDOM m) => VTTCue -> Double -> m ()
setSize :: forall (m :: * -> *). MonadDOM m => VTTCue -> Double -> m ()
setSize VTTCue
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"size" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getSize :: (MonadDOM m) => VTTCue -> m Double
getSize :: forall (m :: * -> *). MonadDOM m => VTTCue -> m Double
getSize VTTCue
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"size") JSM JSVal -> (JSVal -> DOM Double) -> DOM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM Double
forall value. ToJSVal value => value -> DOM Double
valToNumber)
setAlign :: (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()
setAlign :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
VTTCue -> val -> m ()
setAlign VTTCue
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"align" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getAlign :: (MonadDOM m, FromJSString result) => VTTCue -> m result
getAlign :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
VTTCue -> m result
getAlign VTTCue
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"align") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setText :: (MonadDOM m, ToJSString val) => VTTCue -> val -> m ()
setText :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
VTTCue -> val -> m ()
setText VTTCue
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"text" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getText :: (MonadDOM m, FromJSString result) => VTTCue -> m result
getText :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
VTTCue -> m result
getText VTTCue
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"text") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setRegionId ::
(MonadDOM m, ToJSString val) => VTTCue -> val -> m ()
setRegionId :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
VTTCue -> val -> m ()
setRegionId VTTCue
self val
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTCue
self VTTCue -> Getting (DOM ()) VTTCue (DOM ()) -> DOM ()
forall s a. s -> Getting a s a -> a
^. String
-> 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 String
"regionId" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getRegionId ::
(MonadDOM m, FromJSString result) => VTTCue -> m result
getRegionId :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
VTTCue -> m result
getRegionId VTTCue
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTCue
self VTTCue -> Getting (JSM JSVal) VTTCue (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTCue (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"regionId") JSM JSVal -> (JSVal -> DOM result) -> DOM result
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM result
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)