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

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from geometry-1 (webref). Do not edit.
module JSDOM.Generated.DOMQuadInit
       (newDOMQuadInit, setP1, getP1, getP1Unsafe, getP1Unchecked, setP2, getP2, getP2Unsafe, getP2Unchecked, setP3, getP3, getP3Unsafe, getP3Unchecked, setP4, getP4, getP4Unsafe, getP4Unchecked, DOMQuadInit(..), gTypeDOMQuadInit)
       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://drafts.csswg.org/geometry-1/#dictdef-domquadinit DOMQuadInit specification>
newDOMQuadInit :: (MonadDOM m) => m DOMQuadInit
newDOMQuadInit = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
setP1 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP1 self val = liftDOM (void (self ^. jss "p1" (toJSVal val)))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
getP1 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP1 self = liftDOM (((self ^. js "p1") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
getP1Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP1Unsafe self = liftDOM ((((self ^. js "p1") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p1 DOMQuadInit.p1 specification>
getP1Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP1Unchecked self = liftDOM (((self ^. js "p1") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
setP2 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP2 self val = liftDOM (void (self ^. jss "p2" (toJSVal val)))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
getP2 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP2 self = liftDOM (((self ^. js "p2") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
getP2Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP2Unsafe self = liftDOM ((((self ^. js "p2") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p2 DOMQuadInit.p2 specification>
getP2Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP2Unchecked self = liftDOM (((self ^. js "p2") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
setP3 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP3 self val = liftDOM (void (self ^. jss "p3" (toJSVal val)))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
getP3 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP3 self = liftDOM (((self ^. js "p3") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
getP3Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP3Unsafe self = liftDOM ((((self ^. js "p3") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p3 DOMQuadInit.p3 specification>
getP3Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP3Unchecked self = liftDOM (((self ^. js "p3") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
setP4 :: (MonadDOM m) => DOMQuadInit -> DOMPointInit -> m ()
setP4 self val = liftDOM (void (self ^. jss "p4" (toJSVal val)))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
getP4 :: (MonadDOM m) => DOMQuadInit -> m (Maybe DOMPointInit)
getP4 self = liftDOM (((self ^. js "p4") >>= fromJSValUnchecked))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
getP4Unsafe :: (MonadDOM m, HasCallStack) => DOMQuadInit -> m DOMPointInit
getP4Unsafe self = liftDOM ((((self ^. js "p4") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://drafts.csswg.org/geometry-1/#dom-domquadinit-p4 DOMQuadInit.p4 specification>
getP4Unchecked :: (MonadDOM m) => DOMQuadInit -> m DOMPointInit
getP4Unchecked self = liftDOM (((self ^. js "p4") >>= fromJSValUnchecked))