{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.HTMLTextAreaElement (checkValidity, checkValidity_, setCustomValidity, select, setRangeText, setRangeText4, setSelectionRange, setAutofocus, getAutofocus, setCols, getCols, setDirName, getDirName, setDisabled, getDisabled, getForm, getFormUnsafe, getFormUnchecked, setMaxLength, getMaxLength, setName, getName, setPlaceholder, getPlaceholder, setReadOnly, getReadOnly, setRequired, getRequired, setRows, getRows, setWrap, getWrap, getType, setDefaultValue, getDefaultValue, getDefaultValueUnsafe, getDefaultValueUnchecked, setValue, getValue, getValueUnsafe, getValueUnchecked, getTextLength, getWillValidate, getValidity, getValidityUnsafe, getValidityUnchecked, getValidationMessage, getLabels, getLabelsUnsafe, getLabelsUnchecked, setSelectionStart, getSelectionStart, setSelectionEnd, getSelectionEnd, setSelectionDirection, getSelectionDirection, setAutocorrect, getAutocorrect, setAutocapitalize, getAutocapitalize, getAutocapitalizeUnsafe, getAutocapitalizeUnchecked, HTMLTextAreaElement(..), gTypeHTMLTextAreaElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..)) import qualified Prelude (error) import Data.Typeable (Typeable) import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array) import Data.Int (Int64) import Data.Word (Word, Word64) import JSDOM.Types import Control.Applicative ((<$>)) import Control.Monad (void) import Control.Lens.Operators ((^.)) import JSDOM.EventTargetClosures (EventName, unsafeEventName) import JSDOM.Enums -- | checkValidity :: (MonadDOM m) => HTMLTextAreaElement -> m Bool checkValidity self = liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool) -- | checkValidity_ :: (MonadDOM m) => HTMLTextAreaElement -> m () checkValidity_ self = liftDOM (void (self ^. jsf "checkValidity" ())) -- | setCustomValidity :: (MonadDOM m, ToJSString error) => HTMLTextAreaElement -> Maybe error -> m () setCustomValidity self error = liftDOM (void (self ^. jsf "setCustomValidity" [toJSVal error])) -- | select :: (MonadDOM m) => HTMLTextAreaElement -> m () select self = liftDOM (void (self ^. jsf "select" ())) -- | setRangeText :: (MonadDOM m, ToJSString replacement) => HTMLTextAreaElement -> replacement -> m () setRangeText self replacement = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement])) -- | setRangeText4 :: (MonadDOM m, ToJSString replacement, ToJSString selectionMode) => HTMLTextAreaElement -> replacement -> Word -> Word -> selectionMode -> m () setRangeText4 self replacement start end selectionMode = liftDOM (void (self ^. jsf "setRangeText" [toJSVal replacement, toJSVal start, toJSVal end, toJSVal selectionMode])) -- | setSelectionRange :: (MonadDOM m, ToJSString direction) => HTMLTextAreaElement -> Int -> Int -> direction -> m () setSelectionRange self start end direction = liftDOM (void (self ^. jsf "setSelectionRange" [toJSVal start, toJSVal end, toJSVal direction])) -- | setAutofocus :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m () setAutofocus self val = liftDOM (self ^. jss "autofocus" (toJSVal val)) -- | getAutofocus :: (MonadDOM m) => HTMLTextAreaElement -> m Bool getAutofocus self = liftDOM ((self ^. js "autofocus") >>= valToBool) -- | setCols :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () setCols self val = liftDOM (self ^. jss "cols" (toJSVal val)) -- | getCols :: (MonadDOM m) => HTMLTextAreaElement -> m Int getCols self = liftDOM (round <$> ((self ^. js "cols") >>= valToNumber)) -- | setDirName :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m () setDirName self val = liftDOM (self ^. jss "dirName" (toJSVal val)) -- | getDirName :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getDirName self = liftDOM ((self ^. js "dirName") >>= fromJSValUnchecked) -- | setDisabled :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m () setDisabled self val = liftDOM (self ^. jss "disabled" (toJSVal val)) -- | getDisabled :: (MonadDOM m) => HTMLTextAreaElement -> m Bool getDisabled self = liftDOM ((self ^. js "disabled") >>= valToBool) -- | getForm :: (MonadDOM m) => HTMLTextAreaElement -> m (Maybe HTMLFormElement) getForm self = liftDOM ((self ^. js "form") >>= fromJSVal) -- | getFormUnsafe :: (MonadDOM m, HasCallStack) => HTMLTextAreaElement -> m HTMLFormElement getFormUnsafe self = liftDOM (((self ^. js "form") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getFormUnchecked :: (MonadDOM m) => HTMLTextAreaElement -> m HTMLFormElement getFormUnchecked self = liftDOM ((self ^. js "form") >>= fromJSValUnchecked) -- | setMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () setMaxLength self val = liftDOM (self ^. jss "maxLength" (toJSVal val)) -- | getMaxLength :: (MonadDOM m) => HTMLTextAreaElement -> m Int getMaxLength self = liftDOM (round <$> ((self ^. js "maxLength") >>= valToNumber)) -- | setName :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m () setName self val = liftDOM (self ^. jss "name" (toJSVal val)) -- | getName :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked) -- | setPlaceholder :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m () setPlaceholder self val = liftDOM (self ^. jss "placeholder" (toJSVal val)) -- | getPlaceholder :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getPlaceholder self = liftDOM ((self ^. js "placeholder") >>= fromJSValUnchecked) -- | setReadOnly :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m () setReadOnly self val = liftDOM (self ^. jss "readOnly" (toJSVal val)) -- | getReadOnly :: (MonadDOM m) => HTMLTextAreaElement -> m Bool getReadOnly self = liftDOM ((self ^. js "readOnly") >>= valToBool) -- | setRequired :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m () setRequired self val = liftDOM (self ^. jss "required" (toJSVal val)) -- | getRequired :: (MonadDOM m) => HTMLTextAreaElement -> m Bool getRequired self = liftDOM ((self ^. js "required") >>= valToBool) -- | setRows :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () setRows self val = liftDOM (self ^. jss "rows" (toJSVal val)) -- | getRows :: (MonadDOM m) => HTMLTextAreaElement -> m Int getRows self = liftDOM (round <$> ((self ^. js "rows") >>= valToNumber)) -- | setWrap :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m () setWrap self val = liftDOM (self ^. jss "wrap" (toJSVal val)) -- | getWrap :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getWrap self = liftDOM ((self ^. js "wrap") >>= fromJSValUnchecked) -- | getType :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getType self = liftDOM ((self ^. js "type") >>= fromJSValUnchecked) -- | setDefaultValue :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> Maybe val -> m () setDefaultValue self val = liftDOM (self ^. jss "defaultValue" (toJSVal val)) -- | getDefaultValue :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m (Maybe result) getDefaultValue self = liftDOM ((self ^. js "defaultValue") >>= fromMaybeJSString) -- | getDefaultValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => HTMLTextAreaElement -> m result getDefaultValueUnsafe self = liftDOM (((self ^. js "defaultValue") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getDefaultValueUnchecked :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getDefaultValueUnchecked self = liftDOM ((self ^. js "defaultValue") >>= fromJSValUnchecked) -- | setValue :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> Maybe val -> m () setValue self val = liftDOM (self ^. jss "value" (toJSVal val)) -- | getValue :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m (Maybe result) getValue self = liftDOM ((self ^. js "value") >>= fromMaybeJSString) -- | getValueUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => HTMLTextAreaElement -> m result getValueUnsafe self = liftDOM (((self ^. js "value") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getValueUnchecked :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getValueUnchecked self = liftDOM ((self ^. js "value") >>= fromJSValUnchecked) -- | getTextLength :: (MonadDOM m) => HTMLTextAreaElement -> m Word getTextLength self = liftDOM (round <$> ((self ^. js "textLength") >>= valToNumber)) -- | getWillValidate :: (MonadDOM m) => HTMLTextAreaElement -> m Bool getWillValidate self = liftDOM ((self ^. js "willValidate") >>= valToBool) -- | getValidity :: (MonadDOM m) => HTMLTextAreaElement -> m (Maybe ValidityState) getValidity self = liftDOM ((self ^. js "validity") >>= fromJSVal) -- | getValidityUnsafe :: (MonadDOM m, HasCallStack) => HTMLTextAreaElement -> m ValidityState getValidityUnsafe self = liftDOM (((self ^. js "validity") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getValidityUnchecked :: (MonadDOM m) => HTMLTextAreaElement -> m ValidityState getValidityUnchecked self = liftDOM ((self ^. js "validity") >>= fromJSValUnchecked) -- | getValidationMessage :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getValidationMessage self = liftDOM ((self ^. js "validationMessage") >>= fromJSValUnchecked) -- | getLabels :: (MonadDOM m) => HTMLTextAreaElement -> m (Maybe NodeList) getLabels self = liftDOM ((self ^. js "labels") >>= fromJSVal) -- | getLabelsUnsafe :: (MonadDOM m, HasCallStack) => HTMLTextAreaElement -> m NodeList getLabelsUnsafe self = liftDOM (((self ^. js "labels") >>= fromJSVal) >>= maybe (Prelude.error "Nothing to return") return) -- | getLabelsUnchecked :: (MonadDOM m) => HTMLTextAreaElement -> m NodeList getLabelsUnchecked self = liftDOM ((self ^. js "labels") >>= fromJSValUnchecked) -- | setSelectionStart :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () setSelectionStart self val = liftDOM (self ^. jss "selectionStart" (toJSVal val)) -- | getSelectionStart :: (MonadDOM m) => HTMLTextAreaElement -> m Int getSelectionStart self = liftDOM (round <$> ((self ^. js "selectionStart") >>= valToNumber)) -- | setSelectionEnd :: (MonadDOM m) => HTMLTextAreaElement -> Int -> m () setSelectionEnd self val = liftDOM (self ^. jss "selectionEnd" (toJSVal val)) -- | getSelectionEnd :: (MonadDOM m) => HTMLTextAreaElement -> m Int getSelectionEnd self = liftDOM (round <$> ((self ^. js "selectionEnd") >>= valToNumber)) -- | setSelectionDirection :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> val -> m () setSelectionDirection self val = liftDOM (self ^. jss "selectionDirection" (toJSVal val)) -- | getSelectionDirection :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getSelectionDirection self = liftDOM ((self ^. js "selectionDirection") >>= fromJSValUnchecked) -- | setAutocorrect :: (MonadDOM m) => HTMLTextAreaElement -> Bool -> m () setAutocorrect self val = liftDOM (self ^. jss "autocorrect" (toJSVal val)) -- | getAutocorrect :: (MonadDOM m) => HTMLTextAreaElement -> m Bool getAutocorrect self = liftDOM ((self ^. js "autocorrect") >>= valToBool) -- | setAutocapitalize :: (MonadDOM m, ToJSString val) => HTMLTextAreaElement -> Maybe val -> m () setAutocapitalize self val = liftDOM (self ^. jss "autocapitalize" (toJSVal val)) -- | getAutocapitalize :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m (Maybe result) getAutocapitalize self = liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString) -- | getAutocapitalizeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => HTMLTextAreaElement -> m result getAutocapitalizeUnsafe self = liftDOM (((self ^. js "autocapitalize") >>= fromMaybeJSString) >>= maybe (Prelude.error "Nothing to return") return) -- | getAutocapitalizeUnchecked :: (MonadDOM m, FromJSString result) => HTMLTextAreaElement -> m result getAutocapitalizeUnchecked self = liftDOM ((self ^. js "autocapitalize") >>= fromJSValUnchecked)