HTMLSourceElement.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.HTMLSourceElement
       (setSrc, getSrc, setType, getType, setSrcset, getSrcset, setSizes, getSizes, setMedia, getMedia, setWidth, getWidth, setHeight, getHeight, HTMLSourceElement(..), gTypeHTMLSourceElement)
       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/HTMLSourceElement/src MDN HTMLSourceElement.src documentation>
setSrc :: (MonadDOM m, ToJSString val) => HTMLSourceElement -> val -> m ()
setSrc self val = liftDOM (void (self ^. jss "src" (toJSVal val)))

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

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

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

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

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

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

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

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

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

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

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

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

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