SVGImageElement.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.SVGImageElement
       (getX, getY, getWidth, getHeight, getPreserveAspectRatio, setCrossOrigin, getCrossOrigin, getCrossOriginUnsafe, getCrossOriginUnchecked, SVGImageElement(..), gTypeSVGImageElement)
       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/SVGImageElement/x MDN SVGImageElement.x documentation>
getX :: (MonadDOM m) => SVGImageElement -> m SVGAnimatedLength
getX self = liftDOM (((self ^. js "x") >>= fromJSValUnchecked))

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/SVGImageElement/preserveAspectRatio MDN SVGImageElement.preserveAspectRatio documentation>
getPreserveAspectRatio :: (MonadDOM m) => SVGImageElement -> m SVGAnimatedPreserveAspectRatio
getPreserveAspectRatio self = liftDOM (((self ^. js "preserveAspectRatio") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGImageElement/crossOrigin MDN SVGImageElement.crossOrigin documentation>
setCrossOrigin :: (MonadDOM m, ToJSString val) => SVGImageElement -> Maybe val -> m ()
setCrossOrigin self val = liftDOM (void (self ^. jss "crossOrigin" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SVGImageElement/crossOrigin MDN SVGImageElement.crossOrigin documentation>
getCrossOrigin :: (MonadDOM m, FromJSString result) => SVGImageElement -> m (Maybe result)
getCrossOrigin self = liftDOM (((self ^. js "crossOrigin") >>= fromMaybeJSString))

-- | <https://developer.mozilla.org/docs/Web/API/SVGImageElement/crossOrigin MDN SVGImageElement.crossOrigin documentation>
getCrossOriginUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => SVGImageElement -> m result
getCrossOriginUnsafe self = liftDOM ((((self ^. js "crossOrigin") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/SVGImageElement/crossOrigin MDN SVGImageElement.crossOrigin documentation>
getCrossOriginUnchecked :: (MonadDOM m, FromJSString result) => SVGImageElement -> m result
getCrossOriginUnchecked self = liftDOM (((self ^. js "crossOrigin") >>= fromJSValUnchecked))