HTMLEmbedElement.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.HTMLEmbedElement
       (getSVGDocument, getSVGDocument_, getSVGDocumentUnsafe, getSVGDocumentUnchecked, setSrc, getSrc, setType, getType, setWidth, getWidth, setHeight, getHeight, setAlign, getAlign, setName, getName, HTMLEmbedElement(..), gTypeHTMLEmbedElement)
       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/HTMLEmbedElement/getSVGDocument MDN HTMLEmbedElement.getSVGDocument documentation>
getSVGDocument :: (MonadDOM m) => HTMLEmbedElement -> m (Maybe Document)
getSVGDocument self = liftDOM (((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLEmbedElement/getSVGDocument MDN HTMLEmbedElement.getSVGDocument documentation>
getSVGDocument_ :: (MonadDOM m) => HTMLEmbedElement -> m ()
getSVGDocument_ self = liftDOM (void (self ^. jsf "getSVGDocument" ()))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLEmbedElement/getSVGDocument MDN HTMLEmbedElement.getSVGDocument documentation>
getSVGDocumentUnsafe :: (MonadDOM m, HasCallStack) => HTMLEmbedElement -> m Document
getSVGDocumentUnsafe self = liftDOM ((((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLEmbedElement/getSVGDocument MDN HTMLEmbedElement.getSVGDocument documentation>
getSVGDocumentUnchecked :: (MonadDOM m) => HTMLEmbedElement -> m Document
getSVGDocumentUnchecked self = liftDOM (((self ^. jsf "getSVGDocument" ()) >>= fromJSValUnchecked))

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

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

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

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

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

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

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

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

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

-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-embed-align HTMLEmbedElement.align specification>
getAlign :: (MonadDOM m, FromJSString result) => HTMLEmbedElement -> m result
getAlign self = liftDOM (((self ^. js "align") >>= fromJSValUnchecked))

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

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