HTMLImageElement.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.HTMLImageElement
       (decode, setAlt, getAlt, setSrc, getSrc, setSrcset, getSrcset, setSizes, getSizes, setCrossOrigin, getCrossOrigin, getCrossOriginUnsafe, getCrossOriginUnchecked, setUseMap, getUseMap, setIsMap, getIsMap, setWidth, getWidth, setHeight, getHeight, getNaturalWidth, getNaturalHeight, getComplete, getCurrentSrc, setReferrerPolicy, getReferrerPolicy, setDecoding, getDecoding, setLoading, getLoading, setFetchPriority, getFetchPriority, getX, getY, setName, getName, setLowsrc, getLowsrc, setAlign, getAlign, setHspace, getHspace, setVspace, getVspace, setLongDesc, getLongDesc, setBorder, getBorder, HTMLImageElement(..), gTypeHTMLImageElement)
       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/HTMLImageElement/decode MDN HTMLImageElement.decode documentation>
decode :: (MonadDOM m) => HTMLImageElement -> m ()
decode self = liftDOM (void (((self ^. jsf "decode" ()) >>= readPromise)))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/width MDN HTMLImageElement.width documentation>
setWidth :: (MonadDOM m) => HTMLImageElement -> Word -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/width MDN HTMLImageElement.width documentation>
getWidth :: (MonadDOM m) => HTMLImageElement -> m Word
getWidth self = liftDOM ((P.round <$> ((self ^. js "width") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/height MDN HTMLImageElement.height documentation>
setHeight :: (MonadDOM m) => HTMLImageElement -> Word -> m ()
setHeight self val = liftDOM (void (self ^. jss "height" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/height MDN HTMLImageElement.height documentation>
getHeight :: (MonadDOM m) => HTMLImageElement -> m Word
getHeight self = liftDOM ((P.round <$> ((self ^. js "height") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/naturalWidth MDN HTMLImageElement.naturalWidth documentation>
getNaturalWidth :: (MonadDOM m) => HTMLImageElement -> m Word
getNaturalWidth self = liftDOM ((P.round <$> ((self ^. js "naturalWidth") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/naturalHeight MDN HTMLImageElement.naturalHeight documentation>
getNaturalHeight :: (MonadDOM m) => HTMLImageElement -> m Word
getNaturalHeight self = liftDOM ((P.round <$> ((self ^. js "naturalHeight") >>= valToNumber)))

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

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/x MDN HTMLImageElement.x documentation>
getX :: (MonadDOM m) => HTMLImageElement -> m Int
getX self = liftDOM ((P.round <$> ((self ^. js "x") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/y MDN HTMLImageElement.y documentation>
getY :: (MonadDOM m) => HTMLImageElement -> m Int
getY self = liftDOM ((P.round <$> ((self ^. js "y") >>= valToNumber)))

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

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

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

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-img-lowsrc HTMLImageElement.lowsrc specification>
getLowsrc :: (MonadDOM m, FromJSString result) => HTMLImageElement -> m result
getLowsrc self = liftDOM (((self ^. js "lowsrc") >>= fromJSValUnchecked))

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/hspace MDN HTMLImageElement.hspace documentation>
setHspace :: (MonadDOM m) => HTMLImageElement -> Word -> m ()
setHspace self val = liftDOM (void (self ^. jss "hspace" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/hspace MDN HTMLImageElement.hspace documentation>
getHspace :: (MonadDOM m) => HTMLImageElement -> m Word
getHspace self = liftDOM ((P.round <$> ((self ^. js "hspace") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/vspace MDN HTMLImageElement.vspace documentation>
setVspace :: (MonadDOM m) => HTMLImageElement -> Word -> m ()
setVspace self val = liftDOM (void (self ^. jss "vspace" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLImageElement/vspace MDN HTMLImageElement.vspace documentation>
getVspace :: (MonadDOM m) => HTMLImageElement -> m Word
getVspace self = liftDOM ((P.round <$> ((self ^. js "vspace") >>= valToNumber)))

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

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

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

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