ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/DeviceMotionEventInit.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from orientation-event (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.DeviceMotionEventInit
       (js_newDeviceMotionEventInit, js_setAcceleration, js_getAcceleration, js_setAccelerationIncludingGravity, js_getAccelerationIncludingGravity, js_setRotationRate, js_getRotationRate, js_setInterval, js_getInterval, 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 GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newDeviceMotionEventInit :: IO DeviceMotionEventInit
-- | <https://w3c.github.io/deviceorientation/#dictdef-devicemotioneventinit DeviceMotionEventInit specification>
newDeviceMotionEventInit :: (MonadDOM m) => m DeviceMotionEventInit
newDeviceMotionEventInit = liftDOM ((js_newDeviceMotionEventInit))

foreign import javascript safe "(($1, $2) => { $1[\"acceleration\"] = $2; })"
        js_setAcceleration :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO ()
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
setAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m ()
setAcceleration self val = liftDOM (void ((js_setAcceleration (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"acceleration\"]; })"
        js_getAcceleration :: DeviceMotionEventInit -> IO JSVal
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
getAcceleration :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)
getAcceleration self = liftDOM (((js_getAcceleration (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-acceleration DeviceMotionEventInit.acceleration specification>
getAccelerationUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit
getAccelerationUnsafe self = liftDOM ((((js_getAcceleration (self)) >>= 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 ((pFromJSVal <$> (js_getAcceleration (self))))

foreign import javascript safe "(($1, $2) => { $1[\"accelerationIncludingGravity\"] = $2; })"
        js_setAccelerationIncludingGravity :: DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> IO ()
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
setAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventAccelerationInit -> m ()
setAccelerationIncludingGravity self val = liftDOM (void ((js_setAccelerationIncludingGravity (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"accelerationIncludingGravity\"]; })"
        js_getAccelerationIncludingGravity :: DeviceMotionEventInit -> IO JSVal
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
getAccelerationIncludingGravity :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventAccelerationInit)
getAccelerationIncludingGravity self = liftDOM (((js_getAccelerationIncludingGravity (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-accelerationincludinggravity DeviceMotionEventInit.accelerationIncludingGravity specification>
getAccelerationIncludingGravityUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventAccelerationInit
getAccelerationIncludingGravityUnsafe self = liftDOM ((((js_getAccelerationIncludingGravity (self)) >>= 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 ((pFromJSVal <$> (js_getAccelerationIncludingGravity (self))))

foreign import javascript safe "(($1, $2) => { $1[\"rotationRate\"] = $2; })"
        js_setRotationRate :: DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> IO ()
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
setRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> DeviceMotionEventRotationRateInit -> m ()
setRotationRate self val = liftDOM (void ((js_setRotationRate (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"rotationRate\"]; })"
        js_getRotationRate :: DeviceMotionEventInit -> IO JSVal
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
getRotationRate :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe DeviceMotionEventRotationRateInit)
getRotationRate self = liftDOM (((js_getRotationRate (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-rotationrate DeviceMotionEventInit.rotationRate specification>
getRotationRateUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m DeviceMotionEventRotationRateInit
getRotationRateUnsafe self = liftDOM ((((js_getRotationRate (self)) >>= 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 ((pFromJSVal <$> (js_getRotationRate (self))))

foreign import javascript safe "(($1, $2) => { $1[\"interval\"] = $2; })"
        js_setInterval :: DeviceMotionEventInit -> Double -> IO ()
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
setInterval :: (MonadDOM m) => DeviceMotionEventInit -> Double -> m ()
setInterval self val = liftDOM (void ((js_setInterval (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"interval\"]; })"
        js_getInterval :: DeviceMotionEventInit -> IO JSVal
-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
getInterval :: (MonadDOM m) => DeviceMotionEventInit -> m (Maybe Double)
getInterval self = liftDOM (((js_getInterval (self)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-devicemotioneventinit-interval DeviceMotionEventInit.interval specification>
getIntervalUnsafe :: (MonadDOM m, HasCallStack) => DeviceMotionEventInit -> m Double
getIntervalUnsafe self = liftDOM ((((js_getInterval (self)) >>= 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 ((pFromJSVal <$> (js_getInterval (self))))