{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.VTTRegion
(newVTTRegion, getTrack, setId, getId, setWidth, getWidth,
setHeight, getHeight, setRegionAnchorX, getRegionAnchorX,
setRegionAnchorY, getRegionAnchorY, setViewportAnchorX,
getViewportAnchorX, setViewportAnchorY, getViewportAnchorY,
setScroll, getScroll, VTTRegion(..), gTypeVTTRegion)
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
newVTTRegion :: (MonadDOM m) => m VTTRegion
newVTTRegion :: forall (m :: * -> *). MonadDOM m => m VTTRegion
newVTTRegion = DOM VTTRegion -> m VTTRegion
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSVal -> VTTRegion
VTTRegion (JSVal -> VTTRegion) -> JSM JSVal -> DOM VTTRegion
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> 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
"VTTRegion") ())
getTrack :: (MonadDOM m) => VTTRegion -> m TextTrack
getTrack :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m TextTrack
getTrack VTTRegion
self
= DOM TextTrack -> m TextTrack
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"track") JSM JSVal -> (JSVal -> DOM TextTrack) -> DOM TextTrack
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 TextTrack
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
setId :: (MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()
setId :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
VTTRegion -> val -> m ()
setId VTTRegion
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"id" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getId :: (MonadDOM m, FromJSString result) => VTTRegion -> m result
getId :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
VTTRegion -> m result
getId VTTRegion
self = DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"id") 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)
setWidth :: (MonadDOM m) => VTTRegion -> Double -> m ()
setWidth :: forall (m :: * -> *). MonadDOM m => VTTRegion -> Double -> m ()
setWidth VTTRegion
self Double
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"width" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getWidth :: (MonadDOM m) => VTTRegion -> m Double
getWidth :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m Double
getWidth VTTRegion
self = DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"width") 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)
setHeight :: (MonadDOM m) => VTTRegion -> Int -> m ()
setHeight :: forall (m :: * -> *). MonadDOM m => VTTRegion -> Int -> m ()
setHeight VTTRegion
self Int
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"height" (Int -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Int
val))
getHeight :: (MonadDOM m) => VTTRegion -> m Int
getHeight :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m Int
getHeight VTTRegion
self
= DOM Int -> m Int
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (Double -> Int
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Int) -> DOM Double -> DOM Int
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"height") 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))
setRegionAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()
setRegionAnchorX :: forall (m :: * -> *). MonadDOM m => VTTRegion -> Double -> m ()
setRegionAnchorX VTTRegion
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"regionAnchorX" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getRegionAnchorX :: (MonadDOM m) => VTTRegion -> m Double
getRegionAnchorX :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m Double
getRegionAnchorX VTTRegion
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"regionAnchorX") 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)
setRegionAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()
setRegionAnchorY :: forall (m :: * -> *). MonadDOM m => VTTRegion -> Double -> m ()
setRegionAnchorY VTTRegion
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"regionAnchorY" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getRegionAnchorY :: (MonadDOM m) => VTTRegion -> m Double
getRegionAnchorY :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m Double
getRegionAnchorY VTTRegion
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"regionAnchorY") 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)
setViewportAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()
setViewportAnchorX :: forall (m :: * -> *). MonadDOM m => VTTRegion -> Double -> m ()
setViewportAnchorX VTTRegion
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"viewportAnchorX" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getViewportAnchorX :: (MonadDOM m) => VTTRegion -> m Double
getViewportAnchorX :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m Double
getViewportAnchorX VTTRegion
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"viewportAnchorX") 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)
setViewportAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()
setViewportAnchorY :: forall (m :: * -> *). MonadDOM m => VTTRegion -> Double -> m ()
setViewportAnchorY VTTRegion
self Double
val
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"viewportAnchorY" (Double -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Double
val))
getViewportAnchorY :: (MonadDOM m) => VTTRegion -> m Double
getViewportAnchorY :: forall (m :: * -> *). MonadDOM m => VTTRegion -> m Double
getViewportAnchorY VTTRegion
self
= DOM Double -> m Double
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"viewportAnchorY") 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)
setScroll ::
(MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()
setScroll :: forall (m :: * -> *) val.
(MonadDOM m, ToJSString val) =>
VTTRegion -> val -> m ()
setScroll VTTRegion
self val
val = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (VTTRegion
self VTTRegion -> Getting (DOM ()) VTTRegion (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
"scroll" (val -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal val
val))
getScroll ::
(MonadDOM m, FromJSString result) => VTTRegion -> m result
getScroll :: forall (m :: * -> *) result.
(MonadDOM m, FromJSString result) =>
VTTRegion -> m result
getScroll VTTRegion
self
= DOM result -> m result
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((VTTRegion
self VTTRegion -> Getting (JSM JSVal) VTTRegion (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter VTTRegion (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"scroll") 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)