PointerLockOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from pointerlock-2 (webref). Do not edit.
module JSDOM.Generated.PointerLockOptions
       (newPointerLockOptions, setUnadjustedMovement, getUnadjustedMovement, getUnadjustedMovementUnsafe, getUnadjustedMovementUnchecked, PointerLockOptions(..), gTypePointerLockOptions)
       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/pointerlock/#dom-pointerlockoptions PointerLockOptions specification>
newPointerLockOptions :: (MonadDOM m) => m PointerLockOptions
newPointerLockOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerlock/#dom-pointerlockoptions-unadjustedmovement PointerLockOptions.unadjustedMovement specification>
setUnadjustedMovement :: (MonadDOM m) => PointerLockOptions -> Bool -> m ()
setUnadjustedMovement self val = liftDOM (void (self ^. jss "unadjustedMovement" (toJSVal val)))

-- | <https://w3c.github.io/pointerlock/#dom-pointerlockoptions-unadjustedmovement PointerLockOptions.unadjustedMovement specification>
getUnadjustedMovement :: (MonadDOM m) => PointerLockOptions -> m (Maybe Bool)
getUnadjustedMovement self = liftDOM (((self ^. js "unadjustedMovement") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/pointerlock/#dom-pointerlockoptions-unadjustedmovement PointerLockOptions.unadjustedMovement specification>
getUnadjustedMovementUnsafe :: (MonadDOM m, HasCallStack) => PointerLockOptions -> m Bool
getUnadjustedMovementUnsafe self = liftDOM ((((self ^. js "unadjustedMovement") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/pointerlock/#dom-pointerlockoptions-unadjustedmovement PointerLockOptions.unadjustedMovement specification>
getUnadjustedMovementUnchecked :: (MonadDOM m) => PointerLockOptions -> m Bool
getUnadjustedMovementUnchecked self = liftDOM (((self ^. js "unadjustedMovement") >>= valToBool))