DeviceOrientationEventInit.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.DeviceOrientationEventInit
       (newDeviceOrientationEventInit, setAlpha, getAlpha, getAlphaUnsafe, getAlphaUnchecked, setBeta, getBeta, getBetaUnsafe, getBetaUnchecked, setGamma, getGamma, getGammaUnsafe, getGammaUnchecked, setAbsolute, getAbsolute, getAbsoluteUnsafe, getAbsoluteUnchecked, DeviceOrientationEventInit(..), gTypeDeviceOrientationEventInit)
       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-deviceorientationeventinit DeviceOrientationEventInit specification>
newDeviceOrientationEventInit :: (MonadDOM m) => m DeviceOrientationEventInit
newDeviceOrientationEventInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>
setAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m ()
setAlpha self val = liftDOM (void (self ^. jss "alpha" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>
getAlpha :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)
getAlpha self = liftDOM (((self ^. js "alpha") >>= fromJSValUnchecked))

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

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-alpha DeviceOrientationEventInit.alpha specification>
getAlphaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double
getAlphaUnchecked self = liftDOM (((self ^. js "alpha") >>= valToNumber))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>
setBeta :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m ()
setBeta self val = liftDOM (void (self ^. jss "beta" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>
getBeta :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)
getBeta self = liftDOM (((self ^. js "beta") >>= fromJSValUnchecked))

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

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-beta DeviceOrientationEventInit.beta specification>
getBetaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double
getBetaUnchecked self = liftDOM (((self ^. js "beta") >>= valToNumber))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>
setGamma :: (MonadDOM m) => DeviceOrientationEventInit -> Maybe Double -> m ()
setGamma self val = liftDOM (void (self ^. jss "gamma" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>
getGamma :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Double)
getGamma self = liftDOM (((self ^. js "gamma") >>= fromJSValUnchecked))

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

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-gamma DeviceOrientationEventInit.gamma specification>
getGammaUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Double
getGammaUnchecked self = liftDOM (((self ^. js "gamma") >>= valToNumber))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>
setAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> Bool -> m ()
setAbsolute self val = liftDOM (void (self ^. jss "absolute" (toJSVal val)))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>
getAbsolute :: (MonadDOM m) => DeviceOrientationEventInit -> m (Maybe Bool)
getAbsolute self = liftDOM (((self ^. js "absolute") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>
getAbsoluteUnsafe :: (MonadDOM m, HasCallStack) => DeviceOrientationEventInit -> m Bool
getAbsoluteUnsafe self = liftDOM ((((self ^. js "absolute") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/deviceorientation/#dom-deviceorientationeventinit-absolute DeviceOrientationEventInit.absolute specification>
getAbsoluteUnchecked :: (MonadDOM m) => DeviceOrientationEventInit -> m Bool
getAbsoluteUnchecked self = liftDOM (((self ^. js "absolute") >>= valToBool))