jsaddle-dom-0.10.0.0: src/JSDOM/Generated/PointerEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from pointerevents4 (webref). Do not edit.
module JSDOM.Generated.PointerEventInit
       (newPointerEventInit, setPointerId, getPointerId, getPointerIdUnsafe, getPointerIdUnchecked, setWidth, getWidth, getWidthUnsafe, getWidthUnchecked, setHeight, getHeight, getHeightUnsafe, getHeightUnchecked, setPressure, getPressure, getPressureUnsafe, getPressureUnchecked, setTangentialPressure, getTangentialPressure, getTangentialPressureUnsafe, getTangentialPressureUnchecked, setTiltX, getTiltX, getTiltXUnsafe, getTiltXUnchecked, setTiltY, getTiltY, getTiltYUnsafe, getTiltYUnchecked, setTwist, getTwist, getTwistUnsafe, getTwistUnchecked, setAltitudeAngle, getAltitudeAngle, getAltitudeAngleUnsafe, getAltitudeAngleUnchecked, setAzimuthAngle, getAzimuthAngle, getAzimuthAngleUnsafe, getAzimuthAngleUnchecked, setPointerType, getPointerType, getPointerTypeUnsafe, getPointerTypeUnchecked, setIsPrimary, getIsPrimary, getIsPrimaryUnsafe, getIsPrimaryUnchecked, setPersistentDeviceId, getPersistentDeviceId, getPersistentDeviceIdUnsafe, getPersistentDeviceIdUnchecked, setCoalescedEvents, getCoalescedEvents, getCoalescedEventsUnsafe, getCoalescedEventsUnchecked, setPredictedEvents, getPredictedEvents, getPredictedEventsUnsafe, getPredictedEventsUnchecked, PointerEventInit(..), gTypePointerEventInit)
       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://w3c.github.io/pointerevents/#dom-pointereventinit PointerEventInit specification>
newPointerEventInit :: (MonadDOM m) => m PointerEventInit
newPointerEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointerid PointerEventInit.pointerId specification>
setPointerId :: (MonadDOM m) => PointerEventInit -> Int -> m ()
setPointerId self val = liftDOM (void (self ^. jss "pointerId" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointerid PointerEventInit.pointerId specification>
getPointerId :: (MonadDOM m) => PointerEventInit -> m (Maybe Int)
getPointerId self = liftDOM (((self ^. js "pointerId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointerid PointerEventInit.pointerId specification>
getPointerIdUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Int
getPointerIdUnsafe self = liftDOM ((((self ^. js "pointerId") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointerid PointerEventInit.pointerId specification>
getPointerIdUnchecked :: (MonadDOM m) => PointerEventInit -> m Int
getPointerIdUnchecked self = liftDOM ((P.round <$> ((self ^. js "pointerId") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-width PointerEventInit.width specification>
setWidth :: (MonadDOM m) => PointerEventInit -> Double -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-width PointerEventInit.width specification>
getWidth :: (MonadDOM m) => PointerEventInit -> m (Maybe Double)
getWidth self = liftDOM (((self ^. js "width") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-width PointerEventInit.width specification>
getWidthUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Double
getWidthUnsafe self = liftDOM ((((self ^. js "width") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-width PointerEventInit.width specification>
getWidthUnchecked :: (MonadDOM m) => PointerEventInit -> m Double
getWidthUnchecked self = liftDOM (((self ^. js "width") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-height PointerEventInit.height specification>
setHeight :: (MonadDOM m) => PointerEventInit -> Double -> m ()
setHeight self val = liftDOM (void (self ^. jss "height" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-height PointerEventInit.height specification>
getHeight :: (MonadDOM m) => PointerEventInit -> m (Maybe Double)
getHeight self = liftDOM (((self ^. js "height") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-height PointerEventInit.height specification>
getHeightUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Double
getHeightUnsafe self = liftDOM ((((self ^. js "height") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-height PointerEventInit.height specification>
getHeightUnchecked :: (MonadDOM m) => PointerEventInit -> m Double
getHeightUnchecked self = liftDOM (((self ^. js "height") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pressure PointerEventInit.pressure specification>
setPressure :: (MonadDOM m) => PointerEventInit -> Float -> m ()
setPressure self val = liftDOM (void (self ^. jss "pressure" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pressure PointerEventInit.pressure specification>
getPressure :: (MonadDOM m) => PointerEventInit -> m (Maybe Float)
getPressure self = liftDOM (((self ^. js "pressure") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pressure PointerEventInit.pressure specification>
getPressureUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Float
getPressureUnsafe self = liftDOM ((((self ^. js "pressure") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pressure PointerEventInit.pressure specification>
getPressureUnchecked :: (MonadDOM m) => PointerEventInit -> m Float
getPressureUnchecked self = liftDOM ((P.realToFrac <$> ((self ^. js "pressure") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tangentialpressure PointerEventInit.tangentialPressure specification>
setTangentialPressure :: (MonadDOM m) => PointerEventInit -> Float -> m ()
setTangentialPressure self val = liftDOM (void (self ^. jss "tangentialPressure" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tangentialpressure PointerEventInit.tangentialPressure specification>
getTangentialPressure :: (MonadDOM m) => PointerEventInit -> m (Maybe Float)
getTangentialPressure self = liftDOM (((self ^. js "tangentialPressure") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tangentialpressure PointerEventInit.tangentialPressure specification>
getTangentialPressureUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Float
getTangentialPressureUnsafe self = liftDOM ((((self ^. js "tangentialPressure") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tangentialpressure PointerEventInit.tangentialPressure specification>
getTangentialPressureUnchecked :: (MonadDOM m) => PointerEventInit -> m Float
getTangentialPressureUnchecked self = liftDOM ((P.realToFrac <$> ((self ^. js "tangentialPressure") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tiltx PointerEventInit.tiltX specification>
setTiltX :: (MonadDOM m) => PointerEventInit -> Int -> m ()
setTiltX self val = liftDOM (void (self ^. jss "tiltX" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tiltx PointerEventInit.tiltX specification>
getTiltX :: (MonadDOM m) => PointerEventInit -> m (Maybe Int)
getTiltX self = liftDOM (((self ^. js "tiltX") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tiltx PointerEventInit.tiltX specification>
getTiltXUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Int
getTiltXUnsafe self = liftDOM ((((self ^. js "tiltX") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tiltx PointerEventInit.tiltX specification>
getTiltXUnchecked :: (MonadDOM m) => PointerEventInit -> m Int
getTiltXUnchecked self = liftDOM ((P.round <$> ((self ^. js "tiltX") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tilty PointerEventInit.tiltY specification>
setTiltY :: (MonadDOM m) => PointerEventInit -> Int -> m ()
setTiltY self val = liftDOM (void (self ^. jss "tiltY" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tilty PointerEventInit.tiltY specification>
getTiltY :: (MonadDOM m) => PointerEventInit -> m (Maybe Int)
getTiltY self = liftDOM (((self ^. js "tiltY") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tilty PointerEventInit.tiltY specification>
getTiltYUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Int
getTiltYUnsafe self = liftDOM ((((self ^. js "tiltY") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-tilty PointerEventInit.tiltY specification>
getTiltYUnchecked :: (MonadDOM m) => PointerEventInit -> m Int
getTiltYUnchecked self = liftDOM ((P.round <$> ((self ^. js "tiltY") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-twist PointerEventInit.twist specification>
setTwist :: (MonadDOM m) => PointerEventInit -> Int -> m ()
setTwist self val = liftDOM (void (self ^. jss "twist" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-twist PointerEventInit.twist specification>
getTwist :: (MonadDOM m) => PointerEventInit -> m (Maybe Int)
getTwist self = liftDOM (((self ^. js "twist") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-twist PointerEventInit.twist specification>
getTwistUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Int
getTwistUnsafe self = liftDOM ((((self ^. js "twist") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-twist PointerEventInit.twist specification>
getTwistUnchecked :: (MonadDOM m) => PointerEventInit -> m Int
getTwistUnchecked self = liftDOM ((P.round <$> ((self ^. js "twist") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-altitudeangle PointerEventInit.altitudeAngle specification>
setAltitudeAngle :: (MonadDOM m) => PointerEventInit -> Double -> m ()
setAltitudeAngle self val = liftDOM (void (self ^. jss "altitudeAngle" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-altitudeangle PointerEventInit.altitudeAngle specification>
getAltitudeAngle :: (MonadDOM m) => PointerEventInit -> m (Maybe Double)
getAltitudeAngle self = liftDOM (((self ^. js "altitudeAngle") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-altitudeangle PointerEventInit.altitudeAngle specification>
getAltitudeAngleUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Double
getAltitudeAngleUnsafe self = liftDOM ((((self ^. js "altitudeAngle") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-altitudeangle PointerEventInit.altitudeAngle specification>
getAltitudeAngleUnchecked :: (MonadDOM m) => PointerEventInit -> m Double
getAltitudeAngleUnchecked self = liftDOM (((self ^. js "altitudeAngle") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-azimuthangle PointerEventInit.azimuthAngle specification>
setAzimuthAngle :: (MonadDOM m) => PointerEventInit -> Double -> m ()
setAzimuthAngle self val = liftDOM (void (self ^. jss "azimuthAngle" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-azimuthangle PointerEventInit.azimuthAngle specification>
getAzimuthAngle :: (MonadDOM m) => PointerEventInit -> m (Maybe Double)
getAzimuthAngle self = liftDOM (((self ^. js "azimuthAngle") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-azimuthangle PointerEventInit.azimuthAngle specification>
getAzimuthAngleUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Double
getAzimuthAngleUnsafe self = liftDOM ((((self ^. js "azimuthAngle") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-azimuthangle PointerEventInit.azimuthAngle specification>
getAzimuthAngleUnchecked :: (MonadDOM m) => PointerEventInit -> m Double
getAzimuthAngleUnchecked self = liftDOM (((self ^. js "azimuthAngle") >>= valToNumber))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointertype PointerEventInit.pointerType specification>
setPointerType :: (MonadDOM m, ToJSString val) => PointerEventInit -> val -> m ()
setPointerType self val = liftDOM (void (self ^. jss "pointerType" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointertype PointerEventInit.pointerType specification>
getPointerType :: (MonadDOM m, FromJSString result) => PointerEventInit -> m (Maybe result)
getPointerType self = liftDOM (((self ^. js "pointerType") >>= fromMaybeJSString))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointertype PointerEventInit.pointerType specification>
getPointerTypeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => PointerEventInit -> m result
getPointerTypeUnsafe self = liftDOM ((((self ^. js "pointerType") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-pointertype PointerEventInit.pointerType specification>
getPointerTypeUnchecked :: (MonadDOM m, FromJSString result) => PointerEventInit -> m result
getPointerTypeUnchecked self = liftDOM (((self ^. js "pointerType") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-isprimary PointerEventInit.isPrimary specification>
setIsPrimary :: (MonadDOM m) => PointerEventInit -> Bool -> m ()
setIsPrimary self val = liftDOM (void (self ^. jss "isPrimary" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-isprimary PointerEventInit.isPrimary specification>
getIsPrimary :: (MonadDOM m) => PointerEventInit -> m (Maybe Bool)
getIsPrimary self = liftDOM (((self ^. js "isPrimary") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-isprimary PointerEventInit.isPrimary specification>
getIsPrimaryUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Bool
getIsPrimaryUnsafe self = liftDOM ((((self ^. js "isPrimary") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-isprimary PointerEventInit.isPrimary specification>
getIsPrimaryUnchecked :: (MonadDOM m) => PointerEventInit -> m Bool
getIsPrimaryUnchecked self = liftDOM (((self ^. js "isPrimary") >>= valToBool))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-persistentdeviceid PointerEventInit.persistentDeviceId specification>
setPersistentDeviceId :: (MonadDOM m) => PointerEventInit -> Int -> m ()
setPersistentDeviceId self val = liftDOM (void (self ^. jss "persistentDeviceId" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-persistentdeviceid PointerEventInit.persistentDeviceId specification>
getPersistentDeviceId :: (MonadDOM m) => PointerEventInit -> m (Maybe Int)
getPersistentDeviceId self = liftDOM (((self ^. js "persistentDeviceId") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-persistentdeviceid PointerEventInit.persistentDeviceId specification>
getPersistentDeviceIdUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m Int
getPersistentDeviceIdUnsafe self = liftDOM ((((self ^. js "persistentDeviceId") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-persistentdeviceid PointerEventInit.persistentDeviceId specification>
getPersistentDeviceIdUnchecked :: (MonadDOM m) => PointerEventInit -> m Int
getPersistentDeviceIdUnchecked self = liftDOM ((P.round <$> ((self ^. js "persistentDeviceId") >>= valToNumber)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-coalescedevents PointerEventInit.coalescedEvents specification>
setCoalescedEvents :: (MonadDOM m) => PointerEventInit -> [PointerEvent] -> m ()
setCoalescedEvents self val = liftDOM (void (self ^. jss "coalescedEvents" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-coalescedevents PointerEventInit.coalescedEvents specification>
getCoalescedEvents :: (MonadDOM m) => PointerEventInit -> m (Maybe [PointerEvent])
getCoalescedEvents self = liftDOM (((self ^. js "coalescedEvents") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-coalescedevents PointerEventInit.coalescedEvents specification>
getCoalescedEventsUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m [PointerEvent]
getCoalescedEventsUnsafe self = liftDOM ((((self ^. js "coalescedEvents") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-coalescedevents PointerEventInit.coalescedEvents specification>
getCoalescedEventsUnchecked :: (MonadDOM m) => PointerEventInit -> m [PointerEvent]
getCoalescedEventsUnchecked self = liftDOM (((self ^. js "coalescedEvents") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-predictedevents PointerEventInit.predictedEvents specification>
setPredictedEvents :: (MonadDOM m) => PointerEventInit -> [PointerEvent] -> m ()
setPredictedEvents self val = liftDOM (void (self ^. jss "predictedEvents" (toJSVal val)))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-predictedevents PointerEventInit.predictedEvents specification>
getPredictedEvents :: (MonadDOM m) => PointerEventInit -> m (Maybe [PointerEvent])
getPredictedEvents self = liftDOM (((self ^. js "predictedEvents") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-predictedevents PointerEventInit.predictedEvents specification>
getPredictedEventsUnsafe :: (MonadDOM m, HasCallStack) => PointerEventInit -> m [PointerEvent]
getPredictedEventsUnsafe self = liftDOM ((((self ^. js "predictedEvents") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerevents/#dom-pointereventinit-predictedevents PointerEventInit.predictedEvents specification>
getPredictedEventsUnchecked :: (MonadDOM m) => PointerEventInit -> m [PointerEvent]
getPredictedEventsUnchecked self = liftDOM (((self ^. js "predictedEvents") >>= fromJSValUnchecked))