HTMLAnchorElement.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.HTMLAnchorElement
       (setDownload, getDownload, setPing, getPing, setRel, getRel, getRelList, setText, getText, setReferrerPolicy, getReferrerPolicy, setCoords, getCoords, setCharset, getCharset, setName, getName, setRev, getRev, setShape, getShape, HTMLAnchorElement(..), gTypeHTMLAnchorElement)
       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/HTMLAnchorElement/download MDN HTMLAnchorElement.download documentation>
setDownload :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setDownload self val = liftDOM (void (self ^. jss "download" (toJSVal val)))

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

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

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

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

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

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

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

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

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

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

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-coords HTMLAnchorElement.coords specification>
setCoords :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCoords self val = liftDOM (void (self ^. jss "coords" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-coords HTMLAnchorElement.coords specification>
getCoords :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCoords self = liftDOM (((self ^. js "coords") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-charset HTMLAnchorElement.charset specification>
setCharset :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setCharset self val = liftDOM (void (self ^. jss "charset" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-charset HTMLAnchorElement.charset specification>
getCharset :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getCharset self = liftDOM (((self ^. js "charset") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-name HTMLAnchorElement.name specification>
setName :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-name HTMLAnchorElement.name specification>
getName :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getName self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-rev HTMLAnchorElement.rev specification>
setRev :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setRev self val = liftDOM (void (self ^. jss "rev" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-rev HTMLAnchorElement.rev specification>
getRev :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getRev self = liftDOM (((self ^. js "rev") >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-shape HTMLAnchorElement.shape specification>
setShape :: (MonadDOM m, ToJSString val) => HTMLAnchorElement -> val -> m ()
setShape self val = liftDOM (void (self ^. jss "shape" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-a-shape HTMLAnchorElement.shape specification>
getShape :: (MonadDOM m, FromJSString result) => HTMLAnchorElement -> m result
getShape self = liftDOM (((self ^. js "shape") >>= fromJSValUnchecked))