module JSDOM.Generated.HTMLFormElement
(_get, _get_, _getUnsafe, _getUnchecked, submit, reset,
checkValidity, checkValidity_, requestAutocomplete,
setAcceptCharset, getAcceptCharset, setAction, getAction,
setAutocomplete, getAutocomplete, setEnctype, getEnctype,
getEnctypeUnsafe, getEnctypeUnchecked, setEncoding, getEncoding,
getEncodingUnsafe, getEncodingUnchecked, setMethod, getMethod,
getMethodUnsafe, getMethodUnchecked, setName, getName,
setNoValidate, getNoValidate, setTarget, getTarget, getElements,
getElementsUnsafe, getElementsUnchecked, getLength, setAutocorrect,
getAutocorrect, setAutocapitalize, getAutocapitalize,
getAutocapitalizeUnsafe, getAutocapitalizeUnchecked, autocomplete,
autocompleteerror, HTMLFormElement(..), gTypeHTMLFormElement)
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
_get ::
(MonadDOM m) => HTMLFormElement -> Word -> m (Maybe Element)
_get self index
= liftDOM ((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal)
_get_ :: (MonadDOM m) => HTMLFormElement -> Word -> m ()
_get_ self index
= liftDOM (void (self ^. jsf "_get" [toJSVal index]))
_getUnsafe ::
(MonadDOM m, HasCallStack) => HTMLFormElement -> Word -> m Element
_getUnsafe self index
= liftDOM
(((self ^. jsf "_get" [toJSVal index]) >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
_getUnchecked ::
(MonadDOM m) => HTMLFormElement -> Word -> m Element
_getUnchecked self index
= liftDOM
((self ^. jsf "_get" [toJSVal index]) >>= fromJSValUnchecked)
submit :: (MonadDOM m) => HTMLFormElement -> m ()
submit self = liftDOM (void (self ^. jsf "submit" ()))
reset :: (MonadDOM m) => HTMLFormElement -> m ()
reset self = liftDOM (void (self ^. jsf "reset" ()))
checkValidity :: (MonadDOM m) => HTMLFormElement -> m Bool
checkValidity self
= liftDOM ((self ^. jsf "checkValidity" ()) >>= valToBool)
checkValidity_ :: (MonadDOM m) => HTMLFormElement -> m ()
checkValidity_ self
= liftDOM (void (self ^. jsf "checkValidity" ()))
requestAutocomplete :: (MonadDOM m) => HTMLFormElement -> m ()
requestAutocomplete self
= liftDOM (void (self ^. jsf "requestAutocomplete" ()))
setAcceptCharset ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setAcceptCharset self val
= liftDOM (self ^. jss "acceptCharset" (toJSVal val))
getAcceptCharset ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getAcceptCharset self
= liftDOM ((self ^. js "acceptCharset") >>= fromJSValUnchecked)
setAction ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setAction self val = liftDOM (self ^. jss "action" (toJSVal val))
getAction ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getAction self
= liftDOM ((self ^. js "action") >>= fromJSValUnchecked)
setAutocomplete ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setAutocomplete self val
= liftDOM (self ^. jss "autocomplete" (toJSVal val))
getAutocomplete ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getAutocomplete self
= liftDOM ((self ^. js "autocomplete") >>= fromJSValUnchecked)
setEnctype ::
(MonadDOM m, ToJSString val) =>
HTMLFormElement -> Maybe val -> m ()
setEnctype self val = liftDOM (self ^. jss "enctype" (toJSVal val))
getEnctype ::
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m (Maybe result)
getEnctype self
= liftDOM ((self ^. js "enctype") >>= fromMaybeJSString)
getEnctypeUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLFormElement -> m result
getEnctypeUnsafe self
= liftDOM
(((self ^. js "enctype") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getEnctypeUnchecked ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getEnctypeUnchecked self
= liftDOM ((self ^. js "enctype") >>= fromJSValUnchecked)
setEncoding ::
(MonadDOM m, ToJSString val) =>
HTMLFormElement -> Maybe val -> m ()
setEncoding self val
= liftDOM (self ^. jss "encoding" (toJSVal val))
getEncoding ::
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m (Maybe result)
getEncoding self
= liftDOM ((self ^. js "encoding") >>= fromMaybeJSString)
getEncodingUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLFormElement -> m result
getEncodingUnsafe self
= liftDOM
(((self ^. js "encoding") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getEncodingUnchecked ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getEncodingUnchecked self
= liftDOM ((self ^. js "encoding") >>= fromJSValUnchecked)
setMethod ::
(MonadDOM m, ToJSString val) =>
HTMLFormElement -> Maybe val -> m ()
setMethod self val = liftDOM (self ^. jss "method" (toJSVal val))
getMethod ::
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m (Maybe result)
getMethod self
= liftDOM ((self ^. js "method") >>= fromMaybeJSString)
getMethodUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLFormElement -> m result
getMethodUnsafe self
= liftDOM
(((self ^. js "method") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getMethodUnchecked ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getMethodUnchecked self
= liftDOM ((self ^. js "method") >>= fromJSValUnchecked)
setName ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setName self val = liftDOM (self ^. jss "name" (toJSVal val))
getName ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getName self = liftDOM ((self ^. js "name") >>= fromJSValUnchecked)
setNoValidate :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()
setNoValidate self val
= liftDOM (self ^. jss "noValidate" (toJSVal val))
getNoValidate :: (MonadDOM m) => HTMLFormElement -> m Bool
getNoValidate self
= liftDOM ((self ^. js "noValidate") >>= valToBool)
setTarget ::
(MonadDOM m, ToJSString val) => HTMLFormElement -> val -> m ()
setTarget self val = liftDOM (self ^. jss "target" (toJSVal val))
getTarget ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getTarget self
= liftDOM ((self ^. js "target") >>= fromJSValUnchecked)
getElements ::
(MonadDOM m) => HTMLFormElement -> m (Maybe HTMLCollection)
getElements self = liftDOM ((self ^. js "elements") >>= fromJSVal)
getElementsUnsafe ::
(MonadDOM m, HasCallStack) => HTMLFormElement -> m HTMLCollection
getElementsUnsafe self
= liftDOM
(((self ^. js "elements") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getElementsUnchecked ::
(MonadDOM m) => HTMLFormElement -> m HTMLCollection
getElementsUnchecked self
= liftDOM ((self ^. js "elements") >>= fromJSValUnchecked)
getLength :: (MonadDOM m) => HTMLFormElement -> m Int
getLength self
= liftDOM (round <$> ((self ^. js "length") >>= valToNumber))
setAutocorrect :: (MonadDOM m) => HTMLFormElement -> Bool -> m ()
setAutocorrect self val
= liftDOM (self ^. jss "autocorrect" (toJSVal val))
getAutocorrect :: (MonadDOM m) => HTMLFormElement -> m Bool
getAutocorrect self
= liftDOM ((self ^. js "autocorrect") >>= valToBool)
setAutocapitalize ::
(MonadDOM m, ToJSString val) =>
HTMLFormElement -> Maybe val -> m ()
setAutocapitalize self val
= liftDOM (self ^. jss "autocapitalize" (toJSVal val))
getAutocapitalize ::
(MonadDOM m, FromJSString result) =>
HTMLFormElement -> m (Maybe result)
getAutocapitalize self
= liftDOM ((self ^. js "autocapitalize") >>= fromMaybeJSString)
getAutocapitalizeUnsafe ::
(MonadDOM m, HasCallStack, FromJSString result) =>
HTMLFormElement -> m result
getAutocapitalizeUnsafe self
= liftDOM
(((self ^. js "autocapitalize") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getAutocapitalizeUnchecked ::
(MonadDOM m, FromJSString result) => HTMLFormElement -> m result
getAutocapitalizeUnchecked self
= liftDOM ((self ^. js "autocapitalize") >>= fromJSValUnchecked)
autocomplete :: EventName HTMLFormElement onautocomplete
autocomplete = unsafeEventName (toJSString "autocomplete")
autocompleteerror :: EventName HTMLFormElement onautocompleteerror
autocompleteerror
= unsafeEventName (toJSString "autocompleteerror")