{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGSVGElement (suspendRedraw, suspendRedraw_, unsuspendRedraw, unsuspendRedrawAll, forceRedraw, pauseAnimations, unpauseAnimations, animationsPaused, animationsPaused_, getCurrentTime, getCurrentTime_, setCurrentTime, getIntersectionList, getIntersectionList_, getIntersectionListUnsafe, getIntersectionListUnchecked, getEnclosureList, getEnclosureList_, getEnclosureListUnsafe, getEnclosureListUnchecked, checkIntersection, checkIntersection_, checkEnclosure, checkEnclosure_, deselectAll, createSVGNumber, createSVGNumber_, createSVGNumberUnsafe, createSVGNumberUnchecked, createSVGLength, createSVGLength_, createSVGLengthUnsafe, createSVGLengthUnchecked, createSVGAngle, createSVGAngle_, createSVGAngleUnsafe, createSVGAngleUnchecked, createSVGPoint, createSVGPoint_, createSVGPointUnsafe, createSVGPointUnchecked, createSVGMatrix, createSVGMatrix_, createSVGMatrixUnsafe, createSVGMatrixUnchecked, createSVGRect, createSVGRect_, createSVGRectUnsafe, createSVGRectUnchecked, createSVGTransform, createSVGTransform_, createSVGTransformUnsafe, createSVGTransformUnchecked, createSVGTransformFromMatrix, createSVGTransformFromMatrix_, createSVGTransformFromMatrixUnsafe, createSVGTransformFromMatrixUnchecked, getElementById, getElementById_, getElementByIdUnsafe, getElementByIdUnchecked, getX, getXUnsafe, getXUnchecked, getY, getYUnsafe, getYUnchecked, getWidth, getWidthUnsafe, getWidthUnchecked, getHeight, getHeightUnsafe, getHeightUnchecked, setContentScriptType, getContentScriptType, setContentStyleType, getContentStyleType, getViewport, getViewportUnsafe, getViewportUnchecked, getPixelUnitToMillimeterX, getPixelUnitToMillimeterY, getScreenPixelToMillimeterX, getScreenPixelToMillimeterY, getUseCurrentView, getCurrentView, getCurrentViewUnsafe, getCurrentViewUnchecked, setCurrentScale, getCurrentScale, getCurrentTranslate, getCurrentTranslateUnsafe, getCurrentTranslateUnchecked, SVGSVGElement(..), gTypeSVGSVGElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | suspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m Word suspendRedraw self maxWaitMilliseconds = liftDOM (round <$> ((self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds]) >>= valToNumber)) -- | suspendRedraw_ :: (MonadDOM m) => SVGSVGElement -> Word -> m () suspendRedraw_ self maxWaitMilliseconds = liftDOM (void (self ^. jsf "suspendRedraw" [toJSVal maxWaitMilliseconds])) -- | unsuspendRedraw :: (MonadDOM m) => SVGSVGElement -> Word -> m () unsuspendRedraw self suspendHandleId = liftDOM (void (self ^. jsf "unsuspendRedraw" [toJSVal suspendHandleId])) -- | unsuspendRedrawAll :: (MonadDOM m) => SVGSVGElement -> m () unsuspendRedrawAll self = liftDOM (void (self ^. jsf "unsuspendRedrawAll" ())) -- | forceRedraw :: (MonadDOM m) => SVGSVGElement -> m () forceRedraw self = liftDOM (void (self ^. jsf "forceRedraw" ())) -- | pauseAnimations :: (MonadDOM m) => SVGSVGElement -> m () pauseAnimations self = liftDOM (void (self ^. jsf "pauseAnimations" ())) -- | unpauseAnimations :: (MonadDOM m) => SVGSVGElement -> m () unpauseAnimations self = liftDOM (void (self ^. jsf "unpauseAnimations" ())) -- | animationsPaused :: (MonadDOM m) => SVGSVGElement -> m Bool animationsPaused self = liftDOM ((self ^. jsf "animationsPaused" ()) >>= valToBool) -- | animationsPaused_ :: (MonadDOM m) => SVGSVGElement -> m () animationsPaused_ self = liftDOM (void (self ^. jsf "animationsPaused" ())) -- | getCurrentTime :: (MonadDOM m) => SVGSVGElement -> m Float getCurrentTime self = liftDOM (realToFrac <$> ((self ^. jsf "getCurrentTime" ()) >>= valToNumber)) -- | getCurrentTime_ :: (MonadDOM m) => SVGSVGElement -> m () getCurrentTime_ self = liftDOM (void (self ^. jsf "getCurrentTime" ())) -- | setCurrentTime :: (MonadDOM m) => SVGSVGElement -> Float -> m () setCurrentTime self seconds = liftDOM (void (self ^. jsf "setCurrentTime" [toJSVal seconds])) -- | getIntersectionList :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList) getIntersectionList self rect referenceElement = liftDOM ((self ^. jsf "getIntersectionList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSVal) -- | getIntersectionList_ :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m () getIntersectionList_ self rect referenceElement = liftDOM (void (self ^. jsf "getIntersectionList" [toJSVal rect, toJSVal referenceElement])) -- | getIntersectionListUnsafe :: (MonadDOM m, IsSVGElement referenceElement, HasCallStack) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m NodeList getIntersectionListUnsafe self rect referenceElement = liftDOM (((self ^. jsf "getIntersectionList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getIntersectionListUnchecked :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m NodeList getIntersectionListUnchecked self rect referenceElement = liftDOM ((self ^. jsf "getIntersectionList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSValUnchecked) -- | getEnclosureList :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m (Maybe NodeList) getEnclosureList self rect referenceElement = liftDOM ((self ^. jsf "getEnclosureList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSVal) -- | getEnclosureList_ :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m () getEnclosureList_ self rect referenceElement = liftDOM (void (self ^. jsf "getEnclosureList" [toJSVal rect, toJSVal referenceElement])) -- | getEnclosureListUnsafe :: (MonadDOM m, IsSVGElement referenceElement, HasCallStack) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m NodeList getEnclosureListUnsafe self rect referenceElement = liftDOM (((self ^. jsf "getEnclosureList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getEnclosureListUnchecked :: (MonadDOM m, IsSVGElement referenceElement) => SVGSVGElement -> Maybe SVGRect -> Maybe referenceElement -> m NodeList getEnclosureListUnchecked self rect referenceElement = liftDOM ((self ^. jsf "getEnclosureList" [toJSVal rect, toJSVal referenceElement]) >>= fromJSValUnchecked) -- | checkIntersection :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool checkIntersection self element rect = liftDOM ((self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect]) >>= valToBool) -- | checkIntersection_ :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> Maybe element -> Maybe SVGRect -> m () checkIntersection_ self element rect = liftDOM (void (self ^. jsf "checkIntersection" [toJSVal element, toJSVal rect])) -- | checkEnclosure :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> Maybe element -> Maybe SVGRect -> m Bool checkEnclosure self element rect = liftDOM ((self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect]) >>= valToBool) -- | checkEnclosure_ :: (MonadDOM m, IsSVGElement element) => SVGSVGElement -> Maybe element -> Maybe SVGRect -> m () checkEnclosure_ self element rect = liftDOM (void (self ^. jsf "checkEnclosure" [toJSVal element, toJSVal rect])) -- | deselectAll :: (MonadDOM m) => SVGSVGElement -> m () deselectAll self = liftDOM (void (self ^. jsf "deselectAll" ())) -- | createSVGNumber :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGNumber) createSVGNumber self = liftDOM ((self ^. jsf "createSVGNumber" ()) >>= fromJSVal) -- | createSVGNumber_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGNumber_ self = liftDOM (void (self ^. jsf "createSVGNumber" ())) -- | createSVGNumberUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGNumber createSVGNumberUnsafe self = liftDOM (((self ^. jsf "createSVGNumber" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGNumberUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGNumber createSVGNumberUnchecked self = liftDOM ((self ^. jsf "createSVGNumber" ()) >>= fromJSValUnchecked) -- | createSVGLength :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGLength) createSVGLength self = liftDOM ((self ^. jsf "createSVGLength" ()) >>= fromJSVal) -- | createSVGLength_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGLength_ self = liftDOM (void (self ^. jsf "createSVGLength" ())) -- | createSVGLengthUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGLength createSVGLengthUnsafe self = liftDOM (((self ^. jsf "createSVGLength" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGLengthUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGLength createSVGLengthUnchecked self = liftDOM ((self ^. jsf "createSVGLength" ()) >>= fromJSValUnchecked) -- | createSVGAngle :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAngle) createSVGAngle self = liftDOM ((self ^. jsf "createSVGAngle" ()) >>= fromJSVal) -- | createSVGAngle_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGAngle_ self = liftDOM (void (self ^. jsf "createSVGAngle" ())) -- | createSVGAngleUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAngle createSVGAngleUnsafe self = liftDOM (((self ^. jsf "createSVGAngle" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGAngleUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGAngle createSVGAngleUnchecked self = liftDOM ((self ^. jsf "createSVGAngle" ()) >>= fromJSValUnchecked) -- | createSVGPoint :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint) createSVGPoint self = liftDOM ((self ^. jsf "createSVGPoint" ()) >>= fromJSVal) -- | createSVGPoint_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGPoint_ self = liftDOM (void (self ^. jsf "createSVGPoint" ())) -- | createSVGPointUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGPoint createSVGPointUnsafe self = liftDOM (((self ^. jsf "createSVGPoint" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGPointUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGPoint createSVGPointUnchecked self = liftDOM ((self ^. jsf "createSVGPoint" ()) >>= fromJSValUnchecked) -- | createSVGMatrix :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGMatrix) createSVGMatrix self = liftDOM ((self ^. jsf "createSVGMatrix" ()) >>= fromJSVal) -- | createSVGMatrix_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGMatrix_ self = liftDOM (void (self ^. jsf "createSVGMatrix" ())) -- | createSVGMatrixUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGMatrix createSVGMatrixUnsafe self = liftDOM (((self ^. jsf "createSVGMatrix" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGMatrixUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGMatrix createSVGMatrixUnchecked self = liftDOM ((self ^. jsf "createSVGMatrix" ()) >>= fromJSValUnchecked) -- | createSVGRect :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect) createSVGRect self = liftDOM ((self ^. jsf "createSVGRect" ()) >>= fromJSVal) -- | createSVGRect_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGRect_ self = liftDOM (void (self ^. jsf "createSVGRect" ())) -- | createSVGRectUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGRect createSVGRectUnsafe self = liftDOM (((self ^. jsf "createSVGRect" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGRectUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGRect createSVGRectUnchecked self = liftDOM ((self ^. jsf "createSVGRect" ()) >>= fromJSValUnchecked) -- | createSVGTransform :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGTransform) createSVGTransform self = liftDOM ((self ^. jsf "createSVGTransform" ()) >>= fromJSVal) -- | createSVGTransform_ :: (MonadDOM m) => SVGSVGElement -> m () createSVGTransform_ self = liftDOM (void (self ^. jsf "createSVGTransform" ())) -- | createSVGTransformUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGTransform createSVGTransformUnsafe self = liftDOM (((self ^. jsf "createSVGTransform" ()) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGTransformUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGTransform createSVGTransformUnchecked self = liftDOM ((self ^. jsf "createSVGTransform" ()) >>= fromJSValUnchecked) -- | createSVGTransformFromMatrix :: (MonadDOM m) => SVGSVGElement -> Maybe SVGMatrix -> m (Maybe SVGTransform) createSVGTransformFromMatrix self matrix = liftDOM ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= fromJSVal) -- | createSVGTransformFromMatrix_ :: (MonadDOM m) => SVGSVGElement -> Maybe SVGMatrix -> m () createSVGTransformFromMatrix_ self matrix = liftDOM (void (self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix])) -- | createSVGTransformFromMatrixUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform createSVGTransformFromMatrixUnsafe self matrix = liftDOM (((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | createSVGTransformFromMatrixUnchecked :: (MonadDOM m) => SVGSVGElement -> Maybe SVGMatrix -> m SVGTransform createSVGTransformFromMatrixUnchecked self matrix = liftDOM ((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>= fromJSValUnchecked) -- | getElementById :: (MonadDOM m, ToJSString elementId) => SVGSVGElement -> elementId -> m (Maybe Element) getElementById self elementId = liftDOM ((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal) -- | getElementById_ :: (MonadDOM m, ToJSString elementId) => SVGSVGElement -> elementId -> m () getElementById_ self elementId = liftDOM (void (self ^. jsf "getElementById" [toJSVal elementId])) -- | getElementByIdUnsafe :: (MonadDOM m, ToJSString elementId, HasCallStack) => SVGSVGElement -> elementId -> m Element getElementByIdUnsafe self elementId = liftDOM (((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementByIdUnchecked :: (MonadDOM m, ToJSString elementId) => SVGSVGElement -> elementId -> m Element getElementByIdUnchecked self elementId = liftDOM ((self ^. jsf "getElementById" [toJSVal elementId]) >>= fromJSValUnchecked) -- | getX :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getX self = liftDOM ((self ^. js "x") >>= fromJSVal) -- | getXUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength getXUnsafe self = liftDOM (((self ^. js "x") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getXUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength getXUnchecked self = liftDOM ((self ^. js "x") >>= fromJSValUnchecked) -- | getY :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getY self = liftDOM ((self ^. js "y") >>= fromJSVal) -- | getYUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength getYUnsafe self = liftDOM (((self ^. js "y") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getYUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength getYUnchecked self = liftDOM ((self ^. js "y") >>= fromJSValUnchecked) -- | getWidth :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getWidth self = liftDOM ((self ^. js "width") >>= fromJSVal) -- | getWidthUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength getWidthUnsafe self = liftDOM (((self ^. js "width") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getWidthUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength getWidthUnchecked self = liftDOM ((self ^. js "width") >>= fromJSValUnchecked) -- | getHeight :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGAnimatedLength) getHeight self = liftDOM ((self ^. js "height") >>= fromJSVal) -- | getHeightUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGAnimatedLength getHeightUnsafe self = liftDOM (((self ^. js "height") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getHeightUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGAnimatedLength getHeightUnchecked self = liftDOM ((self ^. js "height") >>= fromJSValUnchecked) -- | setContentScriptType :: (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m () setContentScriptType self val = liftDOM (self ^. jss "contentScriptType" (toJSVal val)) -- | getContentScriptType :: (MonadDOM m, FromJSString result) => SVGSVGElement -> m result getContentScriptType self = liftDOM ((self ^. js "contentScriptType") >>= fromJSValUnchecked) -- | setContentStyleType :: (MonadDOM m, ToJSString val) => SVGSVGElement -> val -> m () setContentStyleType self val = liftDOM (self ^. jss "contentStyleType" (toJSVal val)) -- | getContentStyleType :: (MonadDOM m, FromJSString result) => SVGSVGElement -> m result getContentStyleType self = liftDOM ((self ^. js "contentStyleType") >>= fromJSValUnchecked) -- | getViewport :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGRect) getViewport self = liftDOM ((self ^. js "viewport") >>= fromJSVal) -- | getViewportUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGRect getViewportUnsafe self = liftDOM (((self ^. js "viewport") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getViewportUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGRect getViewportUnchecked self = liftDOM ((self ^. js "viewport") >>= fromJSValUnchecked) -- | getPixelUnitToMillimeterX :: (MonadDOM m) => SVGSVGElement -> m Float getPixelUnitToMillimeterX self = liftDOM (realToFrac <$> ((self ^. js "pixelUnitToMillimeterX") >>= valToNumber)) -- | getPixelUnitToMillimeterY :: (MonadDOM m) => SVGSVGElement -> m Float getPixelUnitToMillimeterY self = liftDOM (realToFrac <$> ((self ^. js "pixelUnitToMillimeterY") >>= valToNumber)) -- | getScreenPixelToMillimeterX :: (MonadDOM m) => SVGSVGElement -> m Float getScreenPixelToMillimeterX self = liftDOM (realToFrac <$> ((self ^. js "screenPixelToMillimeterX") >>= valToNumber)) -- | getScreenPixelToMillimeterY :: (MonadDOM m) => SVGSVGElement -> m Float getScreenPixelToMillimeterY self = liftDOM (realToFrac <$> ((self ^. js "screenPixelToMillimeterY") >>= valToNumber)) -- | getUseCurrentView :: (MonadDOM m) => SVGSVGElement -> m Bool getUseCurrentView self = liftDOM ((self ^. js "useCurrentView") >>= valToBool) -- | getCurrentView :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGViewSpec) getCurrentView self = liftDOM ((self ^. js "currentView") >>= fromJSVal) -- | getCurrentViewUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGViewSpec getCurrentViewUnsafe self = liftDOM (((self ^. js "currentView") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getCurrentViewUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGViewSpec getCurrentViewUnchecked self = liftDOM ((self ^. js "currentView") >>= fromJSValUnchecked) -- | setCurrentScale :: (MonadDOM m) => SVGSVGElement -> Float -> m () setCurrentScale self val = liftDOM (self ^. jss "currentScale" (toJSVal val)) -- | getCurrentScale :: (MonadDOM m) => SVGSVGElement -> m Float getCurrentScale self = liftDOM (realToFrac <$> ((self ^. js "currentScale") >>= valToNumber)) -- | getCurrentTranslate :: (MonadDOM m) => SVGSVGElement -> m (Maybe SVGPoint) getCurrentTranslate self = liftDOM ((self ^. js "currentTranslate") >>= fromJSVal) -- | getCurrentTranslateUnsafe :: (MonadDOM m, HasCallStack) => SVGSVGElement -> m SVGPoint getCurrentTranslateUnsafe self = liftDOM (((self ^. js "currentTranslate") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getCurrentTranslateUnchecked :: (MonadDOM m) => SVGSVGElement -> m SVGPoint getCurrentTranslateUnchecked self = liftDOM ((self ^. js "currentTranslate") >>= fromJSValUnchecked)