DeviceMotionEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from orientation-event (webref). Do not edit.
module JSDOM.Generated.DeviceMotionEventInit
       (newDeviceMotionEventInit, setAcceleration, getAcceleration, getAccelerationUnsafe, getAccelerationUnchecked, setAccelerationIncludingGravity, getAccelerationIncludingGravity, getAccelerationIncludingGravityUnsafe, getAccelerationIncludingGravityUnchecked, setRotationRate, getRotationRate, getRotationRateUnsafe, getRotationRateUnchecked, setInterval, getInterval, getIntervalUnsafe, getIntervalUnchecked, DeviceMotionEventInit(..), gTypeDeviceMotionEventInit)
       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/deviceorientation/#dictdef-devicemotioneventinit DeviceMotionEventInit specification>
newDeviceMotionEventInit :: (MonadDOM m) => m DeviceMotionEventInit
newDeviceMotionEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
setAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m ()
setAcceleration self val = liftDOM (void (self ^. jss "acceleration" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
getAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)
getAcceleration self = liftDOM (((self ^. js "acceleration") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit
getAccelerationUnsafe self = liftDOM ((((self ^. js "acceleration") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
getAccelerationUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit
getAccelerationUnchecked self = liftDOM (((self ^. js "acceleration") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
setAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m ()
setAccelerationIncludingGravity self val = liftDOM (void (self ^. jss "accelerationIncludingGravity" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)
getAccelerationIncludingGravity self = liftDOM (((self ^. js "accelerationIncludingGravity") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit
getAccelerationIncludingGravityUnsafe self = liftDOM ((((self ^. js "accelerationIncludingGravity") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
getAccelerationIncludingGravityUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit
getAccelerationIncludingGravityUnchecked self = liftDOM (((self ^. js "accelerationIncludingGravity") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
setRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> m ()
setRotationRate self val = liftDOM (void (self ^. jss "rotationRate" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
getRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventRotationRateInit)
getRotationRate self = liftDOM (((self ^. js "rotationRate") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit
getRotationRateUnsafe self = liftDOM ((((self ^. js "rotationRate") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
getRotationRateUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit
getRotationRateUnchecked self = liftDOM (((self ^. js "rotationRate") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
setInterval :: (MonadDOM m) => DeviceMotionEventInit -> Double -> m ()
setInterval self val = liftDOM (void (self ^. jss "interval" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
getInterval :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe Double)
getInterval self = liftDOM (((self ^. js "interval") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
getIntervalUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m Double
getIntervalUnsafe self = liftDOM ((((self ^. js "interval") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
getIntervalUnchecked :: (MonadDOM m) => DeviceMotionEventInit -> m Double
getIntervalUnchecked self = liftDOM (((self ^. js "interval") >>= valToNumber))