SVGElement.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.SVGElement
       (getClassName, getOwnerSVGElement, getOwnerSVGElementUnsafe, getOwnerSVGElementUnchecked, getViewportElement, getViewportElementUnsafe, getViewportElementUnchecked, SVGElement(..), gTypeSVGElement, IsSVGElement, toSVGElement)
       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://w3c.github.io/svgwg/svg2-draft/types.html#__svg__SVGElement__className SVGElement.className specification>
getClassName :: (MonadDOM m, IsSVGElement self) => self -> m SVGAnimatedString
getClassName self = liftDOM ((((Types.toSVGElement self) ^. js "className") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGElement/ownerSVGElement MDN SVGElement.ownerSVGElement documentation>
getOwnerSVGElement :: (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGSVGElement)
getOwnerSVGElement self = liftDOM ((((Types.toSVGElement self) ^. js "ownerSVGElement") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGElement/ownerSVGElement MDN SVGElement.ownerSVGElement documentation>
getOwnerSVGElementUnsafe :: (MonadDOM m, IsSVGElement self, HasCallStack) => self -> m SVGSVGElement
getOwnerSVGElementUnsafe self = liftDOM (((((Types.toSVGElement self) ^. js "ownerSVGElement") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/SVGElement/ownerSVGElement MDN SVGElement.ownerSVGElement documentation>
getOwnerSVGElementUnchecked :: (MonadDOM m, IsSVGElement self) => self -> m SVGSVGElement
getOwnerSVGElementUnchecked self = liftDOM ((((Types.toSVGElement self) ^. js "ownerSVGElement") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGElement/viewportElement MDN SVGElement.viewportElement documentation>
getViewportElement :: (MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGElement)
getViewportElement self = liftDOM ((((Types.toSVGElement self) ^. js "viewportElement") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SVGElement/viewportElement MDN SVGElement.viewportElement documentation>
getViewportElementUnsafe :: (MonadDOM m, IsSVGElement self, HasCallStack) => self -> m SVGElement
getViewportElementUnsafe self = liftDOM (((((Types.toSVGElement self) ^. js "viewportElement") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/SVGElement/viewportElement MDN SVGElement.viewportElement documentation>
getViewportElementUnchecked :: (MonadDOM m, IsSVGElement self) => self -> m SVGElement
getViewportElementUnchecked self = liftDOM ((((Types.toSVGElement self) ^. js "viewportElement") >>= fromJSValUnchecked))