ElementInternals.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.ElementInternals
       (checkValidity, checkValidity_, reportValidity, reportValidity_, setFormValue, setValidity, getShadowRoot, getShadowRootUnsafe, getShadowRootUnchecked, getForm, getFormUnsafe, getFormUnchecked, getWillValidate, getValidity, getValidationMessage, getLabels, getStates, ElementInternals(..), gTypeElementInternals)
       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/ElementInternals/checkValidity MDN ElementInternals.checkValidity documentation>
checkValidity :: (MonadDOM m) => ElementInternals -> m Bool
checkValidity self = liftDOM (((self ^. jsf "checkValidity" ()) >>= valToBool))

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

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/reportValidity MDN ElementInternals.reportValidity documentation>
reportValidity :: (MonadDOM m) => ElementInternals -> m Bool
reportValidity self = liftDOM (((self ^. jsf "reportValidity" ()) >>= valToBool))

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

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/setFormValue MDN ElementInternals.setFormValue documentation>
setFormValue :: (MonadDOM m, IsFileOrStringOrFormData value, IsFileOrStringOrFormData state) => ElementInternals -> Maybe value -> Maybe state -> m ()
setFormValue self value state = liftDOM (void (self ^. jsf "setFormValue" [toJSVal value, toJSVal state]))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/setValidity MDN ElementInternals.setValidity documentation>
setValidity :: (MonadDOM m, ToJSString message, IsHTMLElement anchor) => ElementInternals -> Maybe ValidityStateFlags -> Maybe message -> Maybe anchor -> m ()
setValidity self flags message anchor = liftDOM (void (self ^. jsf "setValidity" [P.maybe (P.return jsUndefined) toJSVal flags, P.maybe (P.return jsUndefined) toJSVal message, P.maybe (P.return jsUndefined) toJSVal anchor]))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>
getShadowRoot :: (MonadDOM m) => ElementInternals -> m (Maybe ShadowRoot)
getShadowRoot self = liftDOM (((self ^. js "shadowRoot") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>
getShadowRootUnsafe :: (MonadDOM m, HasCallStack) => ElementInternals -> m ShadowRoot
getShadowRootUnsafe self = liftDOM ((((self ^. js "shadowRoot") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/shadowRoot MDN ElementInternals.shadowRoot documentation>
getShadowRootUnchecked :: (MonadDOM m) => ElementInternals -> m ShadowRoot
getShadowRootUnchecked self = liftDOM (((self ^. js "shadowRoot") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>
getForm :: (MonadDOM m) => ElementInternals -> m (Maybe HTMLFormElement)
getForm self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>
getFormUnsafe :: (MonadDOM m, HasCallStack) => ElementInternals -> m HTMLFormElement
getFormUnsafe self = liftDOM ((((self ^. js "form") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/form MDN ElementInternals.form documentation>
getFormUnchecked :: (MonadDOM m) => ElementInternals -> m HTMLFormElement
getFormUnchecked self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/validity MDN ElementInternals.validity documentation>
getValidity :: (MonadDOM m) => ElementInternals -> m ValidityState
getValidity self = liftDOM (((self ^. js "validity") >>= fromJSValUnchecked))

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

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/labels MDN ElementInternals.labels documentation>
getLabels :: (MonadDOM m) => ElementInternals -> m NodeList
getLabels self = liftDOM (((self ^. js "labels") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/ElementInternals/states MDN ElementInternals.states documentation>
getStates :: (MonadDOM m) => ElementInternals -> m CustomStateSet
getStates self = liftDOM (((self ^. js "states") >>= fromJSValUnchecked))