DOMQuad.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.DOMQuad
       (newDOMQuad, getBounds, getBounds_, toJSON, toJSON_, fromQuad, fromQuad_, fromRect, fromRect_, getP1, getP2, getP3, getP4, DOMQuad(..), gTypeDOMQuad)
       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://developer.mozilla.org/docs/Web/API/DOMQuad/DOMQuad MDN DOMQuad. documentation>
newDOMQuad :: (MonadDOM m) => Maybe DOMPointInit -> Maybe DOMPointInit -> Maybe DOMPointInit -> Maybe DOMPointInit -> m DOMQuad
newDOMQuad p1 p2 p3 p4 = liftDOM (((new (jsg "DOMQuad") [P.maybe (P.return jsUndefined) toJSVal p1, P.maybe (P.return jsUndefined) toJSVal p2, P.maybe (P.return jsUndefined) toJSVal p3, P.maybe (P.return jsUndefined) toJSVal p4]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/getBounds MDN DOMQuad.getBounds documentation>
getBounds :: (MonadDOM m) => DOMQuad -> m DOMRect
getBounds self = liftDOM (((self ^. jsf "getBounds" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/getBounds MDN DOMQuad.getBounds documentation>
getBounds_ :: (MonadDOM m) => DOMQuad -> m ()
getBounds_ self = liftDOM (void (self ^. jsf "getBounds" ()))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/toJSON MDN DOMQuad.toJSON documentation>
toJSON :: (MonadDOM m) => DOMQuad -> m GObject
toJSON self = liftDOM (((self ^. jsf "toJSON" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/toJSON MDN DOMQuad.toJSON documentation>
toJSON_ :: (MonadDOM m) => DOMQuad -> m ()
toJSON_ self = liftDOM (void (self ^. jsf "toJSON" ()))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromQuad_static MDN DOMQuad.fromQuad documentation>
fromQuad :: (MonadDOM m) => Maybe DOMQuadInit -> m DOMQuad
fromQuad other = liftDOM ((((jsg "DOMQuad") ^. jsf "fromQuad" [P.maybe (P.return jsUndefined) toJSVal other]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromQuad_static MDN DOMQuad.fromQuad documentation>
fromQuad_ :: (MonadDOM m) => Maybe DOMQuadInit -> m ()
fromQuad_ other = liftDOM (void ((jsg "DOMQuad") ^. jsf "fromQuad" [P.maybe (P.return jsUndefined) toJSVal other]))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromRect_static MDN DOMQuad.fromRect documentation>
fromRect :: (MonadDOM m) => Maybe DOMRectInit -> m DOMQuad
fromRect other = liftDOM ((((jsg "DOMQuad") ^. jsf "fromRect" [P.maybe (P.return jsUndefined) toJSVal other]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/fromRect_static MDN DOMQuad.fromRect documentation>
fromRect_ :: (MonadDOM m) => Maybe DOMRectInit -> m ()
fromRect_ other = liftDOM (void ((jsg "DOMQuad") ^. jsf "fromRect" [P.maybe (P.return jsUndefined) toJSVal other]))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p1 MDN DOMQuad.p1 documentation>
getP1 :: (MonadDOM m) => DOMQuad -> m DOMPoint
getP1 self = liftDOM (((self ^. js "p1") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p2 MDN DOMQuad.p2 documentation>
getP2 :: (MonadDOM m) => DOMQuad -> m DOMPoint
getP2 self = liftDOM (((self ^. js "p2") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p3 MDN DOMQuad.p3 documentation>
getP3 :: (MonadDOM m) => DOMQuad -> m DOMPoint
getP3 self = liftDOM (((self ^. js "p3") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/DOMQuad/p4 MDN DOMQuad.p4 documentation>
getP4 :: (MonadDOM m) => DOMQuad -> m DOMPoint
getP4 self = liftDOM (((self ^. js "p4") >>= fromJSValUnchecked))