jsaddle-dom-0.10.0.0: src/JSDOM/Generated/HTMLTextAreaElement.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.HTMLTextAreaElement
       (checkValidity, checkValidity_, reportValidity, reportValidity_, select, setCustomValidity, setRangeText, setRangeText4, setSelectionRange, setAutocomplete, getAutocomplete, setCols, getCols, setDirName, getDirName, setDisabled, getDisabled, getForm, getFormUnsafe, getFormUnchecked, setMaxLength, getMaxLength, setMinLength, getMinLength, setName, getName, setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, setRequired, getRequired, setRows, getRows, setWrap, getWrap, getType, setDefaultValue, getDefaultValue, setValue, getValue, getTextLength, getWillValidate, getValidity, getValidationMessage, getLabels, setSelectionStart, getSelectionStart, setSelectionEnd, getSelectionEnd, setSelectionDirection, getSelectionDirection, HTMLTextAreaElement(..), gTypeHTMLTextAreaElement)
       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/HTMLTextAreaElement/checkValidity MDN HTMLTextAreaElement.checkValidity documentation>
checkValidity :: (MonadDOM m) => HTMLTextAreaElement -> m Bool
checkValidity self = liftDOM (((self ^. jsf "checkValidity" ()) >>= valToBool))

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/setCustomValidity MDN HTMLTextAreaElement.setCustomValidity documentation>
setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLTextAreaElement -> error -> m ()
setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/setRangeText MDN HTMLTextAreaElement.setRangeText documentation>
setRangeText :: (MonadDOM m, ToJSString replacement) => HTMLTextAreaElement -> replacement -> m ()
setRangeText self replacement = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement]))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/setRangeText MDN HTMLTextAreaElement.setRangeText documentation>
setRangeText4 :: (MonadDOM m, ToJSString replacement) => HTMLTextAreaElement -> replacement -> Word -> Word -> Maybe SelectionMode -> m ()
setRangeText4 self replacement start end selectionMode = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement, toJSVal start, toJSVal end, P.maybe (P.return jsUndefined) toJSVal selectionMode]))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/setSelectionRange MDN HTMLTextAreaElement.setSelectionRange documentation>
setSelectionRange :: (MonadDOM m, ToJSString direction) => HTMLTextAreaElement -> Word -> Word -> Maybe direction -> m ()
setSelectionRange self start end direction = liftDOM (void (self ^. jsf "setSelectionRange" [toJSVal start, toJSVal end, P.maybe (P.return jsUndefined) toJSVal direction]))

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

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

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

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

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

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

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

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

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/form MDN HTMLTextAreaElement.form documentation>
getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLTextAreaElement -> 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/HTMLTextAreaElement/form MDN HTMLTextAreaElement.form documentation>
getFormUnchecked :: (MonadDOM m) => HTMLTextAreaElement -> m HTMLFormElement
getFormUnchecked self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/maxLength MDN HTMLTextAreaElement.maxLength documentation>
setMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()
setMaxLength self val = liftDOM (void (self ^. jss "maxLength" (toJSVal val)))

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

-- | <https://developer.mozilla.org/docs/Web/API/HTMLTextAreaElement/minLength MDN HTMLTextAreaElement.minLength documentation>
setMinLength :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m ()
setMinLength self val = liftDOM (void (self ^. jss "minLength" (toJSVal val)))

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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