SVGAElement.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.SVGAElement
       (getTarget, setDownload, getDownload, setPing, getPing, setRel, getRel, getRelList, setReferrerPolicy, getReferrerPolicy, SVGAElement(..), gTypeSVGAElement)
       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/SVGAElement/target MDN SVGAElement.target documentation>
getTarget :: (MonadDOM m) => SVGAElement -> m SVGAnimatedString
getTarget self = liftDOM (((self ^. js "target") >>= fromJSValUnchecked))

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/SVGAElement/relList MDN SVGAElement.relList documentation>
getRelList :: (MonadDOM m) => SVGAElement -> m DOMTokenList
getRelList self = liftDOM (((self ^. js "relList") >>= fromJSValUnchecked))

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

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