VTTRegion.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from webvtt1 (webref). Do not edit.
module JSDOM.Generated.VTTRegion
       (newVTTRegion, setId, getId, setWidth, getWidth, setLines, getLines, setRegionAnchorX, getRegionAnchorX, setRegionAnchorY, getRegionAnchorY, setViewportAnchorX, getViewportAnchorX, setViewportAnchorY, getViewportAnchorY, setScroll, getScroll, VTTRegion(..), gTypeVTTRegion)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/VTTRegion MDN VTTRegion. documentation>
newVTTRegion :: (MonadDOM m) => m VTTRegion
newVTTRegion = liftDOM (((new (jsg "VTTRegion") ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/id MDN VTTRegion.id documentation>
setId :: (MonadDOM m, ToJSString val) => VTTRegion -> val -> m ()
setId self val = liftDOM (void (self ^. jss "id" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/id MDN VTTRegion.id documentation>
getId :: (MonadDOM m, FromJSString result) => VTTRegion -> m result
getId self = liftDOM (((self ^. js "id") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/width MDN VTTRegion.width documentation>
setWidth :: (MonadDOM m) => VTTRegion -> Double -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/width MDN VTTRegion.width documentation>
getWidth :: (MonadDOM m) => VTTRegion -> m Double
getWidth self = liftDOM (((self ^. js "width") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/lines MDN VTTRegion.lines documentation>
setLines :: (MonadDOM m) => VTTRegion -> Word -> m ()
setLines self val = liftDOM (void (self ^. jss "lines" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/lines MDN VTTRegion.lines documentation>
getLines :: (MonadDOM m) => VTTRegion -> m Word
getLines self = liftDOM ((P.round <$> ((self ^. js "lines") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/regionAnchorX MDN VTTRegion.regionAnchorX documentation>
setRegionAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()
setRegionAnchorX self val = liftDOM (void (self ^. jss "regionAnchorX" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/regionAnchorX MDN VTTRegion.regionAnchorX documentation>
getRegionAnchorX :: (MonadDOM m) => VTTRegion -> m Double
getRegionAnchorX self = liftDOM (((self ^. js "regionAnchorX") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/regionAnchorY MDN VTTRegion.regionAnchorY documentation>
setRegionAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()
setRegionAnchorY self val = liftDOM (void (self ^. jss "regionAnchorY" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/regionAnchorY MDN VTTRegion.regionAnchorY documentation>
getRegionAnchorY :: (MonadDOM m) => VTTRegion -> m Double
getRegionAnchorY self = liftDOM (((self ^. js "regionAnchorY") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/viewportAnchorX MDN VTTRegion.viewportAnchorX documentation>
setViewportAnchorX :: (MonadDOM m) => VTTRegion -> Double -> m ()
setViewportAnchorX self val = liftDOM (void (self ^. jss "viewportAnchorX" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/viewportAnchorX MDN VTTRegion.viewportAnchorX documentation>
getViewportAnchorX :: (MonadDOM m) => VTTRegion -> m Double
getViewportAnchorX self = liftDOM (((self ^. js "viewportAnchorX") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/viewportAnchorY MDN VTTRegion.viewportAnchorY documentation>
setViewportAnchorY :: (MonadDOM m) => VTTRegion -> Double -> m ()
setViewportAnchorY self val = liftDOM (void (self ^. jss "viewportAnchorY" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/viewportAnchorY MDN VTTRegion.viewportAnchorY documentation>
getViewportAnchorY :: (MonadDOM m) => VTTRegion -> m Double
getViewportAnchorY self = liftDOM (((self ^. js "viewportAnchorY") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/scroll MDN VTTRegion.scroll documentation>
setScroll :: (MonadDOM m) => VTTRegion -> ScrollSetting -> m ()
setScroll self val = liftDOM (void (self ^. jss "scroll" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/VTTRegion/scroll MDN VTTRegion.scroll documentation>
getScroll :: (MonadDOM m) => VTTRegion -> m ScrollSetting
getScroll self = liftDOM (((self ^. js "scroll") >>= fromJSValUnchecked))