SVGSVGElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from SVG2 (webref). Do not edit.
module JSDOM.Generated.SVGSVGElement
       (animationsPaused, animationsPaused_, checkEnclosure, checkEnclosure_, checkIntersection, checkIntersection_, createSVGAngle, createSVGAngle_, createSVGLength, createSVGLength_, createSVGMatrix, createSVGMatrix_, createSVGNumber, createSVGNumber_, createSVGPoint, createSVGPoint_, createSVGRect, createSVGRect_, createSVGTransform, createSVGTransform_, createSVGTransformFromMatrix, createSVGTransformFromMatrix_, deselectAll, forceRedraw, getCurrentTime, getCurrentTime_, getElementById, getElementById_, getElementByIdUnsafe, getElementByIdUnchecked, getEnclosureList, getEnclosureList_, getIntersectionList, getIntersectionList_, pauseAnimations, setCurrentTime, suspendRedraw, suspendRedraw_, unpauseAnimations, unsuspendRedraw, unsuspendRedrawAll, getX, getY, getWidth, getHeight, setCurrentScale, getCurrentScale, getCurrentTranslate, SVGSVGElement(..), gTypeSVGSVGElement)
       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/SVGSVGElement/animationsPaused MDN SVGSVGElement.animationsPaused documentation>
animationsPaused :: (MonadDOM m) => SVGSVGElement -> m Bool
animationsPaused self = liftDOM (((self ^. jsf "animationsPaused" ()) >>= valToBool))

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

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/checkEnclosure MDN SVGSVGElement.checkEnclosure documentation>
checkEnclosure :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> element -> DOMRect -> m Bool
checkEnclosure self element rect = liftDOM (((self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/checkEnclosure MDN SVGSVGElement.checkEnclosure documentation>
checkEnclosure_ :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> element -> DOMRect -> m ()
checkEnclosure_ self element rect = liftDOM (void (self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/checkIntersection MDN SVGSVGElement.checkIntersection documentation>
checkIntersection :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> element -> DOMRect -> m Bool
checkIntersection self element rect = liftDOM (((self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect]) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/checkIntersection MDN SVGSVGElement.checkIntersection documentation>
checkIntersection_ :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> element -> DOMRect -> m ()
checkIntersection_ self element rect = liftDOM (void (self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect]))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/createSVGTransformFromMatrix MDN SVGSVGElement.createSVGTransformFromMatrix documentation>
createSVGTransformFromMatrix :: (MonadDOM m, IsDOMMatrix2DInit matrix) => SVGSVGElement -> Maybe matrix -> m SVGTransform
createSVGTransformFromMatrix self matrix = liftDOM (((self ^. jsf "createSVGTransformFromMatrix" [P.maybe (P.return jsUndefined) toJSVal matrix]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/createSVGTransformFromMatrix MDN SVGSVGElement.createSVGTransformFromMatrix documentation>
createSVGTransformFromMatrix_ :: (MonadDOM m, IsDOMMatrix2DInit matrix) => SVGSVGElement -> Maybe matrix -> m ()
createSVGTransformFromMatrix_ self matrix = liftDOM (void (self ^. jsf "createSVGTransformFromMatrix" [P.maybe (P.return jsUndefined) toJSVal matrix]))

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

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__forceRedraw SVGSVGElement.forceRedraw specification>
forceRedraw :: (MonadDOM m) => SVGSVGElement -> m ()
forceRedraw self = liftDOM (void (self ^. jsf "forceRedraw" ()))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/getCurrentTime MDN SVGSVGElement.getCurrentTime documentation>
getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float
getCurrentTime self = liftDOM ((P.realToFrac <$> ((self ^. jsf "getCurrentTime" ()) >>= valToNumber)))

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

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/getElementById MDN SVGSVGElement.getElementById documentation>
getElementById :: (MonadDOM m, ToJSString elementId) => SVGSVGElement -> elementId -> m (Maybe Element)
getElementById self elementId = liftDOM (((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/getElementById MDN SVGSVGElement.getElementById documentation>
getElementById_ :: (MonadDOM m, ToJSString elementId) => SVGSVGElement -> elementId -> m ()
getElementById_ self elementId = liftDOM (void (self ^. jsf "getElementById" [toJSVal elementId]))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/getElementById MDN SVGSVGElement.getElementById documentation>
getElementByIdUnsafe :: (MonadDOM m, ToJSString elementId, HasCallStack) => SVGSVGElement -> elementId -> m Element
getElementByIdUnsafe self elementId = liftDOM ((((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/getElementById MDN SVGSVGElement.getElementById documentation>
getElementByIdUnchecked :: (MonadDOM m, ToJSString elementId) => SVGSVGElement -> elementId -> m Element
getElementByIdUnchecked self elementId = liftDOM (((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__getEnclosureList SVGSVGElement.getEnclosureList specification>
getEnclosureList :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> DOMRect -> Maybe referenceElement -> m NodeList
getEnclosureList self rect referenceElement = liftDOM (((self ^. jsf "getEnclosureList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__getEnclosureList SVGSVGElement.getEnclosureList specification>
getEnclosureList_ :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> DOMRect -> Maybe referenceElement -> m ()
getEnclosureList_ self rect referenceElement = liftDOM (void (self ^. jsf "getEnclosureList" [toJSVal rect, toJSVal referenceElement]))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__getIntersectionList SVGSVGElement.getIntersectionList specification>
getIntersectionList :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> DOMRect -> Maybe referenceElement -> m NodeList
getIntersectionList self rect referenceElement = liftDOM (((self ^. jsf "getIntersectionList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__getIntersectionList SVGSVGElement.getIntersectionList specification>
getIntersectionList_ :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> DOMRect -> Maybe referenceElement -> m ()
getIntersectionList_ self rect referenceElement = liftDOM (void (self ^. jsf "getIntersectionList" [toJSVal rect, toJSVal referenceElement]))

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

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/setCurrentTime MDN SVGSVGElement.setCurrentTime documentation>
setCurrentTime :: (MonadDOM m) => SVGSVGElement -> Float -> m ()
setCurrentTime self seconds = liftDOM (void (self ^. jsf "setCurrentTime" [toJSVal seconds]))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__suspendRedraw SVGSVGElement.suspendRedraw specification>
suspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m Word
suspendRedraw self maxWaitMilliseconds = liftDOM ((P.round <$> ((self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]) >>= valToNumber)))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__suspendRedraw SVGSVGElement.suspendRedraw specification>
suspendRedraw_ :: (MonadDOM m) => SVGSVGElement -> Word -> m ()
suspendRedraw_ self maxWaitMilliseconds = liftDOM (void (self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]))

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

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__unsuspendRedraw SVGSVGElement.unsuspendRedraw specification>
unsuspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m ()
unsuspendRedraw self suspendHandleID = liftDOM (void (self ^. jsf "unsuspendRedraw" [toJSVal suspendHandleID]))

-- | <https://w3c.github.io/svgwg/svg2-draft/struct.html#__svg__SVGSVGElement__unsuspendRedrawAll SVGSVGElement.unsuspendRedrawAll specification>
unsuspendRedrawAll :: (MonadDOM m) => SVGSVGElement -> m ()
unsuspendRedrawAll self = liftDOM (void (self ^. jsf "unsuspendRedrawAll" ()))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/x MDN SVGSVGElement.x documentation>
getX :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getX self = liftDOM (((self ^. js "x") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/y MDN SVGSVGElement.y documentation>
getY :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getY self = liftDOM (((self ^. js "y") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/width MDN SVGSVGElement.width documentation>
getWidth :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getWidth self = liftDOM (((self ^. js "width") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/height MDN SVGSVGElement.height documentation>
getHeight :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength
getHeight self = liftDOM (((self ^. js "height") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/currentScale MDN SVGSVGElement.currentScale documentation>
setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m ()
setCurrentScale self val = liftDOM (void (self ^. jss "currentScale" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SVGSVGElement/currentScale MDN SVGSVGElement.currentScale documentation>
getCurrentScale :: (MonadDOM m) => SVGSVGElement -> m Float
getCurrentScale self = liftDOM ((P.realToFrac <$> ((self ^. js "currentScale") >>= valToNumber)))

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