jsaddle-dom-0.10.0.0: src/JSDOM/Generated/HTMLInputElement.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.HTMLInputElement
(checkValidity, checkValidity_, reportValidity, reportValidity_, select, setCustomValidity, setRangeText, setRangeText4, setSelectionRange, showPicker, stepDown, stepUp, setAccept, getAccept, setAlt, getAlt, setAutocomplete, getAutocomplete, setDefaultChecked, getDefaultChecked, setChecked, getChecked, setColorSpace, getColorSpace, setDirName, getDirName, setDisabled, getDisabled, getForm, getFormUnsafe, getFormUnchecked, setFiles, getFiles, getFilesUnsafe, getFilesUnchecked, setFormAction, getFormAction, setFormEnctype, getFormEnctype, setFormMethod, getFormMethod, setFormNoValidate, getFormNoValidate, setFormTarget, getFormTarget, setHeight, getHeight, setIndeterminate, getIndeterminate, getList, getListUnsafe, getListUnchecked, setMax, getMax, setMaxLength, getMaxLength, setMin, getMin, setMinLength, getMinLength, setMultiple, getMultiple, setName, getName, setPattern, getPattern, setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, setRequired, getRequired, setSize, getSize, setSrc, getSrc, setStep, getStep, setType, getType, setDefaultValue, getDefaultValue, setValue, getValue, setValueAsDate, getValueAsDate, getValueAsDateUnsafe, getValueAsDateUnchecked, setValueAsNumber, getValueAsNumber, setWidth, getWidth, getWillValidate, getValidity, getValidationMessage, getLabels, getLabelsUnsafe, getLabelsUnchecked, setSelectionStart, getSelectionStart, getSelectionStartUnsafe, getSelectionStartUnchecked, setSelectionEnd, getSelectionEnd, getSelectionEndUnsafe, getSelectionEndUnchecked, setSelectionDirection, getSelectionDirection, getSelectionDirectionUnsafe, getSelectionDirectionUnchecked, setWebkitdirectory, getWebkitdirectory, getWebkitEntries, setAlign, getAlign, setUseMap, getUseMap, HTMLInputElement(..), gTypeHTMLInputElement)
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/HTMLInputElement/checkValidity MDN HTMLInputElement.checkValidity documentation>
checkValidity :: (MonadDOM m) => HTMLInputElement -> m Bool
checkValidity self = liftDOM (((self ^. jsf "checkValidity" ()) >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/checkValidity MDN HTMLInputElement.checkValidity documentation>
checkValidity_ :: (MonadDOM m) => HTMLInputElement -> m ()
checkValidity_ self = liftDOM (void (self ^. jsf "checkValidity" ()))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/reportValidity MDN HTMLInputElement.reportValidity documentation>
reportValidity :: (MonadDOM m) => HTMLInputElement -> m Bool
reportValidity self = liftDOM (((self ^. jsf "reportValidity" ()) >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/reportValidity MDN HTMLInputElement.reportValidity documentation>
reportValidity_ :: (MonadDOM m) => HTMLInputElement -> m ()
reportValidity_ self = liftDOM (void (self ^. jsf "reportValidity" ()))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/select MDN HTMLInputElement.select documentation>
select :: (MonadDOM m) => HTMLInputElement -> m ()
select self = liftDOM (void (self ^. jsf "select" ()))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/setCustomValidity MDN HTMLInputElement.setCustomValidity documentation>
setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLInputElement -> error -> m ()
setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error]))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/setRangeText MDN HTMLInputElement.setRangeText documentation>
setRangeText :: (MonadDOM m, ToJSString replacement) => HTMLInputElement -> replacement -> m ()
setRangeText self replacement = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement]))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/setRangeText MDN HTMLInputElement.setRangeText documentation>
setRangeText4 :: (MonadDOM m, ToJSString replacement) => HTMLInputElement -> 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/HTMLInputElement/setSelectionRange MDN HTMLInputElement.setSelectionRange documentation>
setSelectionRange :: (MonadDOM m, ToJSString direction) => HTMLInputElement -> 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/HTMLInputElement/showPicker MDN HTMLInputElement.showPicker documentation>
showPicker :: (MonadDOM m) => HTMLInputElement -> m ()
showPicker self = liftDOM (void (self ^. jsf "showPicker" ()))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/stepDown MDN HTMLInputElement.stepDown documentation>
stepDown :: (MonadDOM m) => HTMLInputElement -> Maybe Int -> m ()
stepDown self n = liftDOM (void (self ^. jsf "stepDown" [P.maybe (P.return jsUndefined) toJSVal n]))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/stepUp MDN HTMLInputElement.stepUp documentation>
stepUp :: (MonadDOM m) => HTMLInputElement -> Maybe Int -> m ()
stepUp self n = liftDOM (void (self ^. jsf "stepUp" [P.maybe (P.return jsUndefined) toJSVal n]))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/accept MDN HTMLInputElement.accept documentation>
setAccept :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setAccept self val = liftDOM (void (self ^. jss "accept" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/accept MDN HTMLInputElement.accept documentation>
getAccept :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getAccept self = liftDOM (((self ^. js "accept") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/alt MDN HTMLInputElement.alt documentation>
setAlt :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setAlt self val = liftDOM (void (self ^. jss "alt" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/alt MDN HTMLInputElement.alt documentation>
getAlt :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getAlt self = liftDOM (((self ^. js "alt") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/autocomplete MDN HTMLInputElement.autocomplete documentation>
setAutocomplete :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setAutocomplete self val = liftDOM (void (self ^. jss "autocomplete" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/autocomplete MDN HTMLInputElement.autocomplete documentation>
getAutocomplete :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getAutocomplete self = liftDOM (((self ^. js "autocomplete") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/defaultChecked MDN HTMLInputElement.defaultChecked documentation>
setDefaultChecked :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setDefaultChecked self val = liftDOM (void (self ^. jss "defaultChecked" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/defaultChecked MDN HTMLInputElement.defaultChecked documentation>
getDefaultChecked :: (MonadDOM m) => HTMLInputElement -> m Bool
getDefaultChecked self = liftDOM (((self ^. js "defaultChecked") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/checked MDN HTMLInputElement.checked documentation>
setChecked :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setChecked self val = liftDOM (void (self ^. jss "checked" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/checked MDN HTMLInputElement.checked documentation>
getChecked :: (MonadDOM m) => HTMLInputElement -> m Bool
getChecked self = liftDOM (((self ^. js "checked") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/colorSpace MDN HTMLInputElement.colorSpace documentation>
setColorSpace :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setColorSpace self val = liftDOM (void (self ^. jss "colorSpace" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/colorSpace MDN HTMLInputElement.colorSpace documentation>
getColorSpace :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getColorSpace self = liftDOM (((self ^. js "colorSpace") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/dirName MDN HTMLInputElement.dirName documentation>
setDirName :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setDirName self val = liftDOM (void (self ^. jss "dirName" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/dirName MDN HTMLInputElement.dirName documentation>
getDirName :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getDirName self = liftDOM (((self ^. js "dirName") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/disabled MDN HTMLInputElement.disabled documentation>
setDisabled :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setDisabled self val = liftDOM (void (self ^. jss "disabled" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/disabled MDN HTMLInputElement.disabled documentation>
getDisabled :: (MonadDOM m) => HTMLInputElement -> m Bool
getDisabled self = liftDOM (((self ^. js "disabled") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/form MDN HTMLInputElement.form documentation>
getForm :: (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLFormElement)
getForm self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/form MDN HTMLInputElement.form documentation>
getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> 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/HTMLInputElement/form MDN HTMLInputElement.form documentation>
getFormUnchecked :: (MonadDOM m) => HTMLInputElement -> m HTMLFormElement
getFormUnchecked self = liftDOM (((self ^. js "form") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/files MDN HTMLInputElement.files documentation>
setFiles :: (MonadDOM m) => HTMLInputElement -> Maybe FileList -> m ()
setFiles self val = liftDOM (void (self ^. jss "files" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/files MDN HTMLInputElement.files documentation>
getFiles :: (MonadDOM m) => HTMLInputElement -> m (Maybe FileList)
getFiles self = liftDOM (((self ^. js "files") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/files MDN HTMLInputElement.files documentation>
getFilesUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> m FileList
getFilesUnsafe self = liftDOM ((((self ^. js "files") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/files MDN HTMLInputElement.files documentation>
getFilesUnchecked :: (MonadDOM m) => HTMLInputElement -> m FileList
getFilesUnchecked self = liftDOM (((self ^. js "files") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formAction MDN HTMLInputElement.formAction documentation>
setFormAction :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setFormAction self val = liftDOM (void (self ^. jss "formAction" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formAction MDN HTMLInputElement.formAction documentation>
getFormAction :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getFormAction self = liftDOM (((self ^. js "formAction") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formEnctype MDN HTMLInputElement.formEnctype documentation>
setFormEnctype :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setFormEnctype self val = liftDOM (void (self ^. jss "formEnctype" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formEnctype MDN HTMLInputElement.formEnctype documentation>
getFormEnctype :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getFormEnctype self = liftDOM (((self ^. js "formEnctype") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formMethod MDN HTMLInputElement.formMethod documentation>
setFormMethod :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setFormMethod self val = liftDOM (void (self ^. jss "formMethod" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formMethod MDN HTMLInputElement.formMethod documentation>
getFormMethod :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getFormMethod self = liftDOM (((self ^. js "formMethod") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formNoValidate MDN HTMLInputElement.formNoValidate documentation>
setFormNoValidate :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setFormNoValidate self val = liftDOM (void (self ^. jss "formNoValidate" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formNoValidate MDN HTMLInputElement.formNoValidate documentation>
getFormNoValidate :: (MonadDOM m) => HTMLInputElement -> m Bool
getFormNoValidate self = liftDOM (((self ^. js "formNoValidate") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formTarget MDN HTMLInputElement.formTarget documentation>
setFormTarget :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setFormTarget self val = liftDOM (void (self ^. jss "formTarget" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/formTarget MDN HTMLInputElement.formTarget documentation>
getFormTarget :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getFormTarget self = liftDOM (((self ^. js "formTarget") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/height MDN HTMLInputElement.height documentation>
setHeight :: (MonadDOM m) => HTMLInputElement -> Word -> m ()
setHeight self val = liftDOM (void (self ^. jss "height" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/height MDN HTMLInputElement.height documentation>
getHeight :: (MonadDOM m) => HTMLInputElement -> m Word
getHeight self = liftDOM ((P.round <$> ((self ^. js "height") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/indeterminate MDN HTMLInputElement.indeterminate documentation>
setIndeterminate :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setIndeterminate self val = liftDOM (void (self ^. jss "indeterminate" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/indeterminate MDN HTMLInputElement.indeterminate documentation>
getIndeterminate :: (MonadDOM m) => HTMLInputElement -> m Bool
getIndeterminate self = liftDOM (((self ^. js "indeterminate") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/list MDN HTMLInputElement.list documentation>
getList :: (MonadDOM m) => HTMLInputElement -> m (Maybe HTMLDataListElement)
getList self = liftDOM (((self ^. js "list") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/list MDN HTMLInputElement.list documentation>
getListUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> m HTMLDataListElement
getListUnsafe self = liftDOM ((((self ^. js "list") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/list MDN HTMLInputElement.list documentation>
getListUnchecked :: (MonadDOM m) => HTMLInputElement -> m HTMLDataListElement
getListUnchecked self = liftDOM (((self ^. js "list") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/max MDN HTMLInputElement.max documentation>
setMax :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setMax self val = liftDOM (void (self ^. jss "max" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/max MDN HTMLInputElement.max documentation>
getMax :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getMax self = liftDOM (((self ^. js "max") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/maxLength MDN HTMLInputElement.maxLength documentation>
setMaxLength :: (MonadDOM m) => HTMLInputElement -> Int -> m ()
setMaxLength self val = liftDOM (void (self ^. jss "maxLength" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/maxLength MDN HTMLInputElement.maxLength documentation>
getMaxLength :: (MonadDOM m) => HTMLInputElement -> m Int
getMaxLength self = liftDOM ((P.round <$> ((self ^. js "maxLength") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/min MDN HTMLInputElement.min documentation>
setMin :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setMin self val = liftDOM (void (self ^. jss "min" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/min MDN HTMLInputElement.min documentation>
getMin :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getMin self = liftDOM (((self ^. js "min") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/minLength MDN HTMLInputElement.minLength documentation>
setMinLength :: (MonadDOM m) => HTMLInputElement -> Int -> m ()
setMinLength self val = liftDOM (void (self ^. jss "minLength" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/minLength MDN HTMLInputElement.minLength documentation>
getMinLength :: (MonadDOM m) => HTMLInputElement -> m Int
getMinLength self = liftDOM ((P.round <$> ((self ^. js "minLength") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/multiple MDN HTMLInputElement.multiple documentation>
setMultiple :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setMultiple self val = liftDOM (void (self ^. jss "multiple" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/multiple MDN HTMLInputElement.multiple documentation>
getMultiple :: (MonadDOM m) => HTMLInputElement -> m Bool
getMultiple self = liftDOM (((self ^. js "multiple") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/name MDN HTMLInputElement.name documentation>
setName :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setName self val = liftDOM (void (self ^. jss "name" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/name MDN HTMLInputElement.name documentation>
getName :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getName self = liftDOM (((self ^. js "name") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/pattern MDN HTMLInputElement.pattern documentation>
setPattern :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setPattern self val = liftDOM (void (self ^. jss "pattern" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/pattern MDN HTMLInputElement.pattern documentation>
getPattern :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getPattern self = liftDOM (((self ^. js "pattern") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/placeholder MDN HTMLInputElement.placeholder documentation>
setPlaceholder :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setPlaceholder self val = liftDOM (void (self ^. jss "placeholder" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/placeholder MDN HTMLInputElement.placeholder documentation>
getPlaceholder :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getPlaceholder self = liftDOM (((self ^. js "placeholder") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/readOnly MDN HTMLInputElement.readOnly documentation>
setReadOnly :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setReadOnly self val = liftDOM (void (self ^. jss "readOnly" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/readOnly MDN HTMLInputElement.readOnly documentation>
getReadOnly :: (MonadDOM m) => HTMLInputElement -> m Bool
getReadOnly self = liftDOM (((self ^. js "readOnly") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/required MDN HTMLInputElement.required documentation>
setRequired :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setRequired self val = liftDOM (void (self ^. jss "required" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/required MDN HTMLInputElement.required documentation>
getRequired :: (MonadDOM m) => HTMLInputElement -> m Bool
getRequired self = liftDOM (((self ^. js "required") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/size MDN HTMLInputElement.size documentation>
setSize :: (MonadDOM m) => HTMLInputElement -> Word -> m ()
setSize self val = liftDOM (void (self ^. jss "size" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/size MDN HTMLInputElement.size documentation>
getSize :: (MonadDOM m) => HTMLInputElement -> m Word
getSize self = liftDOM ((P.round <$> ((self ^. js "size") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/src MDN HTMLInputElement.src documentation>
setSrc :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setSrc self val = liftDOM (void (self ^. jss "src" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/src MDN HTMLInputElement.src documentation>
getSrc :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getSrc self = liftDOM (((self ^. js "src") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/step MDN HTMLInputElement.step documentation>
setStep :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setStep self val = liftDOM (void (self ^. jss "step" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/step MDN HTMLInputElement.step documentation>
getStep :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getStep self = liftDOM (((self ^. js "step") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/type MDN HTMLInputElement.type documentation>
setType :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setType self val = liftDOM (void (self ^. jss "type" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/type MDN HTMLInputElement.type documentation>
getType :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getType self = liftDOM (((self ^. js "type") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/defaultValue MDN HTMLInputElement.defaultValue documentation>
setDefaultValue :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setDefaultValue self val = liftDOM (void (self ^. jss "defaultValue" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/defaultValue MDN HTMLInputElement.defaultValue documentation>
getDefaultValue :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getDefaultValue self = liftDOM (((self ^. js "defaultValue") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/value MDN HTMLInputElement.value documentation>
setValue :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setValue self val = liftDOM (void (self ^. jss "value" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/value MDN HTMLInputElement.value documentation>
getValue :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getValue self = liftDOM (((self ^. js "value") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/valueAsDate MDN HTMLInputElement.valueAsDate documentation>
setValueAsDate :: (MonadDOM m) => HTMLInputElement -> Maybe GObject -> m ()
setValueAsDate self val = liftDOM (void (self ^. jss "valueAsDate" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/valueAsDate MDN HTMLInputElement.valueAsDate documentation>
getValueAsDate :: (MonadDOM m) => HTMLInputElement -> m (Maybe GObject)
getValueAsDate self = liftDOM (((self ^. js "valueAsDate") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/valueAsDate MDN HTMLInputElement.valueAsDate documentation>
getValueAsDateUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> m GObject
getValueAsDateUnsafe self = liftDOM ((((self ^. js "valueAsDate") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/valueAsDate MDN HTMLInputElement.valueAsDate documentation>
getValueAsDateUnchecked :: (MonadDOM m) => HTMLInputElement -> m GObject
getValueAsDateUnchecked self = liftDOM (((self ^. js "valueAsDate") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/valueAsNumber MDN HTMLInputElement.valueAsNumber documentation>
setValueAsNumber :: (MonadDOM m) => HTMLInputElement -> Double -> m ()
setValueAsNumber self val = liftDOM (void (self ^. jss "valueAsNumber" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/valueAsNumber MDN HTMLInputElement.valueAsNumber documentation>
getValueAsNumber :: (MonadDOM m) => HTMLInputElement -> m Double
getValueAsNumber self = liftDOM (((self ^. js "valueAsNumber") >>= valToNumber))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/width MDN HTMLInputElement.width documentation>
setWidth :: (MonadDOM m) => HTMLInputElement -> Word -> m ()
setWidth self val = liftDOM (void (self ^. jss "width" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/width MDN HTMLInputElement.width documentation>
getWidth :: (MonadDOM m) => HTMLInputElement -> m Word
getWidth self = liftDOM ((P.round <$> ((self ^. js "width") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/willValidate MDN HTMLInputElement.willValidate documentation>
getWillValidate :: (MonadDOM m) => HTMLInputElement -> m Bool
getWillValidate self = liftDOM (((self ^. js "willValidate") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/validity MDN HTMLInputElement.validity documentation>
getValidity :: (MonadDOM m) => HTMLInputElement -> m ValidityState
getValidity self = liftDOM (((self ^. js "validity") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/validationMessage MDN HTMLInputElement.validationMessage documentation>
getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getValidationMessage self = liftDOM (((self ^. js "validationMessage") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/labels MDN HTMLInputElement.labels documentation>
getLabels :: (MonadDOM m) => HTMLInputElement -> m (Maybe NodeList)
getLabels self = liftDOM (((self ^. js "labels") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/labels MDN HTMLInputElement.labels documentation>
getLabelsUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> m NodeList
getLabelsUnsafe self = liftDOM ((((self ^. js "labels") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/labels MDN HTMLInputElement.labels documentation>
getLabelsUnchecked :: (MonadDOM m) => HTMLInputElement -> m NodeList
getLabelsUnchecked self = liftDOM (((self ^. js "labels") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionStart MDN HTMLInputElement.selectionStart documentation>
setSelectionStart :: (MonadDOM m) => HTMLInputElement -> Maybe Word -> m ()
setSelectionStart self val = liftDOM (void (self ^. jss "selectionStart" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionStart MDN HTMLInputElement.selectionStart documentation>
getSelectionStart :: (MonadDOM m) => HTMLInputElement -> m (Maybe Word)
getSelectionStart self = liftDOM (((self ^. js "selectionStart") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionStart MDN HTMLInputElement.selectionStart documentation>
getSelectionStartUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> m Word
getSelectionStartUnsafe self = liftDOM ((((self ^. js "selectionStart") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionStart MDN HTMLInputElement.selectionStart documentation>
getSelectionStartUnchecked :: (MonadDOM m) => HTMLInputElement -> m Word
getSelectionStartUnchecked self = liftDOM ((P.round <$> ((self ^. js "selectionStart") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionEnd MDN HTMLInputElement.selectionEnd documentation>
setSelectionEnd :: (MonadDOM m) => HTMLInputElement -> Maybe Word -> m ()
setSelectionEnd self val = liftDOM (void (self ^. jss "selectionEnd" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionEnd MDN HTMLInputElement.selectionEnd documentation>
getSelectionEnd :: (MonadDOM m) => HTMLInputElement -> m (Maybe Word)
getSelectionEnd self = liftDOM (((self ^. js "selectionEnd") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionEnd MDN HTMLInputElement.selectionEnd documentation>
getSelectionEndUnsafe :: (MonadDOM m, HasCallStack) => HTMLInputElement -> m Word
getSelectionEndUnsafe self = liftDOM ((((self ^. js "selectionEnd") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionEnd MDN HTMLInputElement.selectionEnd documentation>
getSelectionEndUnchecked :: (MonadDOM m) => HTMLInputElement -> m Word
getSelectionEndUnchecked self = liftDOM ((P.round <$> ((self ^. js "selectionEnd") >>= valToNumber)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionDirection MDN HTMLInputElement.selectionDirection documentation>
setSelectionDirection :: (MonadDOM m, ToJSString val) => HTMLInputElement -> Maybe val -> m ()
setSelectionDirection self val = liftDOM (void (self ^. jss "selectionDirection" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionDirection MDN HTMLInputElement.selectionDirection documentation>
getSelectionDirection :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m (Maybe result)
getSelectionDirection self = liftDOM (((self ^. js "selectionDirection") >>= fromMaybeJSString))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionDirection MDN HTMLInputElement.selectionDirection documentation>
getSelectionDirectionUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => HTMLInputElement -> m result
getSelectionDirectionUnsafe self = liftDOM ((((self ^. js "selectionDirection") >>= fromMaybeJSString) >>= P.maybe (P.error "Nothing to return") P.return))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/selectionDirection MDN HTMLInputElement.selectionDirection documentation>
getSelectionDirectionUnchecked :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getSelectionDirectionUnchecked self = liftDOM (((self ^. js "selectionDirection") >>= fromJSValUnchecked))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/webkitdirectory MDN HTMLInputElement.webkitdirectory documentation>
setWebkitdirectory :: (MonadDOM m) => HTMLInputElement -> Bool -> m ()
setWebkitdirectory self val = liftDOM (void (self ^. jss "webkitdirectory" (toJSVal val)))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/webkitdirectory MDN HTMLInputElement.webkitdirectory documentation>
getWebkitdirectory :: (MonadDOM m) => HTMLInputElement -> m Bool
getWebkitdirectory self = liftDOM (((self ^. js "webkitdirectory") >>= valToBool))
-- | <https://developer.mozilla.org/docs/Web/API/HTMLInputElement/webkitEntries MDN HTMLInputElement.webkitEntries documentation>
getWebkitEntries :: (MonadDOM m) => HTMLInputElement -> m [FileSystemEntry]
getWebkitEntries self = liftDOM (((self ^. js "webkitEntries") >>= fromJSValUnchecked))
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-input-align HTMLInputElement.align specification>
setAlign :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setAlign self val = liftDOM (void (self ^. jss "align" (toJSVal val)))
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-input-align HTMLInputElement.align specification>
getAlign :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getAlign self = liftDOM (((self ^. js "align") >>= fromJSValUnchecked))
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-input-usemap HTMLInputElement.useMap specification>
setUseMap :: (MonadDOM m, ToJSString val) => HTMLInputElement -> val -> m ()
setUseMap self val = liftDOM (void (self ^. jss "useMap" (toJSVal val)))
-- | <https://html.spec.whatwg.org/multipage/obsolete.html#dom-input-usemap HTMLInputElement.useMap specification>
getUseMap :: (MonadDOM m, FromJSString result) => HTMLInputElement -> m result
getUseMap self = liftDOM (((self ^. js "useMap") >>= fromJSValUnchecked))