HTMLAreaElement.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.HTMLAreaElement
       (setAlt, getAlt, setCoords, getCoords, setShape, getShape, setDownload, getDownload, setPing, getPing, setRel, getRel, getRelList, setReferrerPolicy, getReferrerPolicy, setNoHref, getNoHref, HTMLAreaElement(..), gTypeHTMLAreaElement)
       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/HTMLAreaElement/alt MDN HTMLAreaElement.alt documentation>
setAlt :: (MonadDOM m, ToJSString val) => HTMLAreaElement -> val -> m ()
setAlt self val = liftDOM (void (self ^. jss "alt" (toJSVal val)))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-area-nohref HTMLAreaElement.noHref specification>
setNoHref :: (MonadDOM m) => HTMLAreaElement -> Bool -> m ()
setNoHref self val = liftDOM (void (self ^. jss "noHref" (toJSVal val)))

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-area-nohref HTMLAreaElement.noHref specification>
getNoHref :: (MonadDOM m) => HTMLAreaElement -> m Bool
getNoHref self = liftDOM (((self ^. js "noHref") >>= valToBool))