jsaddle-dom-0.10.0.0: src/JSDOM/Generated/HTMLLinkElement.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.HTMLLinkElement
       (setHref, getHref, setCrossOrigin, getCrossOrigin, getCrossOriginUnsafe, getCrossOriginUnchecked, setRel, getRel, setAs, getAs, getRelList, setMedia, getMedia, setIntegrity, getIntegrity, setHreflang, getHreflang, setType, getType, getSizes, setImageSrcset, getImageSrcset, setImageSizes, getImageSizes, setReferrerPolicy, getReferrerPolicy, getBlocking, setDisabled, getDisabled, setFetchPriority, getFetchPriority, setCharset, getCharset, setRev, getRev, setTarget, getTarget, HTMLLinkElement(..), gTypeHTMLLinkElement)
       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/HTMLLinkElement/href MDN HTMLLinkElement.href documentation>
setHref :: (MonadDOM m, ToJSString val) => HTMLLinkElement -> val -> m ()
setHref self val = liftDOM (void (self ^. jss "href" (toJSVal val)))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLLinkElement/disabled MDN HTMLLinkElement.disabled documentation>
setDisabled :: (MonadDOM m) => HTMLLinkElement -> Bool -> m ()
setDisabled self val = liftDOM (void (self ^. jss "disabled" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLLinkElement/disabled MDN HTMLLinkElement.disabled documentation>
getDisabled :: (MonadDOM m) => HTMLLinkElement -> m Bool
getDisabled self = liftDOM (((self ^. js "disabled") >>= valToBool))

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

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

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

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

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

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

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

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-link-target HTMLLinkElement.target specification>
getTarget :: (MonadDOM m, FromJSString result) => HTMLLinkElement -> m result
getTarget self = liftDOM (((self ^. js "target") >>= fromJSValUnchecked))