{-# LANGUAGE PatternSynonyms #-} {-# LANGUAGE ForeignFunctionInterface #-} {-# LANGUAGE JavaScriptFFI #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} module GHCJS.DOM.JSFFI.Generated.HTMLFormElement (js__get, _get, _get_, _getUnsafe, _getUnchecked, js_submit, submit, js_reset, reset, js_checkValidity, checkValidity, checkValidity_, js_requestAutocomplete, requestAutocomplete, js_setAcceptCharset, setAcceptCharset, js_getAcceptCharset, getAcceptCharset, js_setAction, setAction, js_getAction, getAction, js_setAutocomplete, setAutocomplete, js_getAutocomplete, getAutocomplete, js_setEnctype, setEnctype, js_getEnctype, getEnctype, getEnctypeUnsafe, getEnctypeUnchecked, js_setEncoding, setEncoding, js_getEncoding, getEncoding, getEncodingUnsafe, getEncodingUnchecked, js_setMethod, setMethod, js_getMethod, getMethod, getMethodUnsafe, getMethodUnchecked, js_setName, setName, js_getName, getName, js_setNoValidate, setNoValidate, js_getNoValidate, getNoValidate, js_setTarget, setTarget, js_getTarget, getTarget, js_getElements, getElements, getElementsUnsafe, getElementsUnchecked, js_getLength, getLength, js_setAutocorrect, setAutocorrect, js_getAutocorrect, getAutocorrect, js_setAutocapitalize, setAutocapitalize, js_getAutocapitalize, getAutocapitalize, getAutocapitalizeUnsafe, getAutocapitalizeUnchecked, autocomplete, autocompleteerror, HTMLFormElement(..), gTypeHTMLFormElement) where import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, fmap, Show, Read, Eq, Ord) import qualified Prelude (error) import Data.Typeable (Typeable) import GHCJS.Types (JSVal(..), JSString) import GHCJS.Foreign (jsNull) import GHCJS.Foreign.Callback (syncCallback, asyncCallback, syncCallback1, asyncCallback1, syncCallback2, asyncCallback2, OnBlocked(..)) import GHCJS.Marshal (ToJSVal(..), FromJSVal(..)) import GHCJS.Marshal.Pure (PToJSVal(..), PFromJSVal(..)) import Control.Monad (void) import Control.Monad.IO.Class (MonadIO(..)) import Data.Int (Int64) import Data.Word (Word, Word64) import Data.Maybe (fromJust) import GHCJS.DOM.Types import Control.Applicative ((<$>)) import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName) import GHCJS.DOM.JSFFI.Generated.Enums foreign import javascript unsafe "$1[\"_get\"]($2)" js__get :: HTMLFormElement -> Word -> IO (Nullable Element) -- | _get :: (MonadIO m) => HTMLFormElement -> Word -> m (Maybe Element) _get self index = liftIO (nullableToMaybe <$> (js__get (self) index)) -- | _get_ :: (MonadIO m) => HTMLFormElement -> Word -> m () _get_ self index = liftIO (void (js__get (self) index)) -- | _getUnsafe :: (MonadIO m, HasCallStack) => HTMLFormElement -> Word -> m Element _getUnsafe self index = liftIO ((nullableToMaybe <$> (js__get (self) index)) >>= maybe (Prelude.error "Nothing to return") return) -- | _getUnchecked :: (MonadIO m) => HTMLFormElement -> Word -> m Element _getUnchecked self index = liftIO (fromJust . nullableToMaybe <$> (js__get (self) index)) foreign import javascript unsafe "$1[\"submit\"]()" js_submit :: HTMLFormElement -> IO () -- | submit :: (MonadIO m) => HTMLFormElement -> m () submit self = liftIO (js_submit (self)) foreign import javascript unsafe "$1[\"reset\"]()" js_reset :: HTMLFormElement -> IO () -- | reset :: (MonadIO m) => HTMLFormElement -> m () reset self = liftIO (js_reset (self)) foreign import javascript unsafe "($1[\"checkValidity\"]() ? 1 : 0)" js_checkValidity :: HTMLFormElement -> IO Bool -- | checkValidity :: (MonadIO m) => HTMLFormElement -> m Bool checkValidity self = liftIO (js_checkValidity (self)) -- | checkValidity_ :: (MonadIO m) => HTMLFormElement -> m () checkValidity_ self = liftIO (void (js_checkValidity (self))) foreign import javascript unsafe "$1[\"requestAutocomplete\"]()" js_requestAutocomplete :: HTMLFormElement -> IO () -- | requestAutocomplete :: (MonadIO m) => HTMLFormElement -> m () requestAutocomplete self = liftIO (js_requestAutocomplete (self)) foreign import javascript unsafe "$1[\"acceptCharset\"] = $2;" js_setAcceptCharset :: HTMLFormElement -> JSString -> IO () -- | setAcceptCharset :: (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAcceptCharset self val = liftIO (js_setAcceptCharset (self) (toJSString val)) foreign import javascript unsafe "$1[\"acceptCharset\"]" js_getAcceptCharset :: HTMLFormElement -> IO JSString -- | getAcceptCharset :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAcceptCharset self = liftIO (fromJSString <$> (js_getAcceptCharset (self))) foreign import javascript unsafe "$1[\"action\"] = $2;" js_setAction :: HTMLFormElement -> JSString -> IO () -- | setAction :: (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAction self val = liftIO (js_setAction (self) (toJSString val)) foreign import javascript unsafe "$1[\"action\"]" js_getAction :: HTMLFormElement -> IO JSString -- | getAction :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAction self = liftIO (fromJSString <$> (js_getAction (self))) foreign import javascript unsafe "$1[\"autocomplete\"] = $2;" js_setAutocomplete :: HTMLFormElement -> JSString -> IO () -- | setAutocomplete :: (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setAutocomplete self val = liftIO (js_setAutocomplete (self) (toJSString val)) foreign import javascript unsafe "$1[\"autocomplete\"]" js_getAutocomplete :: HTMLFormElement -> IO JSString -- | getAutocomplete :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAutocomplete self = liftIO (fromJSString <$> (js_getAutocomplete (self))) foreign import javascript unsafe "$1[\"enctype\"] = $2;" js_setEnctype :: HTMLFormElement -> Nullable JSString -> IO () -- | setEnctype :: (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setEnctype self val = liftIO (js_setEnctype (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"enctype\"]" js_getEnctype :: HTMLFormElement -> IO (Nullable JSString) -- | getEnctype :: (MonadIO m, FromJSString result) => HTMLFormElement -> m (Maybe result) getEnctype self = liftIO (fromMaybeJSString <$> (js_getEnctype (self))) -- | getEnctypeUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => HTMLFormElement -> m result getEnctypeUnsafe self = liftIO ((fromMaybeJSString <$> (js_getEnctype (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getEnctypeUnchecked :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getEnctypeUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getEnctype (self))) foreign import javascript unsafe "$1[\"encoding\"] = $2;" js_setEncoding :: HTMLFormElement -> Nullable JSString -> IO () -- | setEncoding :: (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setEncoding self val = liftIO (js_setEncoding (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"encoding\"]" js_getEncoding :: HTMLFormElement -> IO (Nullable JSString) -- | getEncoding :: (MonadIO m, FromJSString result) => HTMLFormElement -> m (Maybe result) getEncoding self = liftIO (fromMaybeJSString <$> (js_getEncoding (self))) -- | getEncodingUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => HTMLFormElement -> m result getEncodingUnsafe self = liftIO ((fromMaybeJSString <$> (js_getEncoding (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getEncodingUnchecked :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getEncodingUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getEncoding (self))) foreign import javascript unsafe "$1[\"method\"] = $2;" js_setMethod :: HTMLFormElement -> Nullable JSString -> IO () -- | setMethod :: (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setMethod self val = liftIO (js_setMethod (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"method\"]" js_getMethod :: HTMLFormElement -> IO (Nullable JSString) -- | getMethod :: (MonadIO m, FromJSString result) => HTMLFormElement -> m (Maybe result) getMethod self = liftIO (fromMaybeJSString <$> (js_getMethod (self))) -- | getMethodUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => HTMLFormElement -> m result getMethodUnsafe self = liftIO ((fromMaybeJSString <$> (js_getMethod (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getMethodUnchecked :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getMethodUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getMethod (self))) foreign import javascript unsafe "$1[\"name\"] = $2;" js_setName :: HTMLFormElement -> JSString -> IO () -- | setName :: (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setName self val = liftIO (js_setName (self) (toJSString val)) foreign import javascript unsafe "$1[\"name\"]" js_getName :: HTMLFormElement -> IO JSString -- | getName :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getName self = liftIO (fromJSString <$> (js_getName (self))) foreign import javascript unsafe "$1[\"noValidate\"] = $2;" js_setNoValidate :: HTMLFormElement -> Bool -> IO () -- | setNoValidate :: (MonadIO m) => HTMLFormElement -> Bool -> m () setNoValidate self val = liftIO (js_setNoValidate (self) val) foreign import javascript unsafe "($1[\"noValidate\"] ? 1 : 0)" js_getNoValidate :: HTMLFormElement -> IO Bool -- | getNoValidate :: (MonadIO m) => HTMLFormElement -> m Bool getNoValidate self = liftIO (js_getNoValidate (self)) foreign import javascript unsafe "$1[\"target\"] = $2;" js_setTarget :: HTMLFormElement -> JSString -> IO () -- | setTarget :: (MonadIO m, ToJSString val) => HTMLFormElement -> val -> m () setTarget self val = liftIO (js_setTarget (self) (toJSString val)) foreign import javascript unsafe "$1[\"target\"]" js_getTarget :: HTMLFormElement -> IO JSString -- | getTarget :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getTarget self = liftIO (fromJSString <$> (js_getTarget (self))) foreign import javascript unsafe "$1[\"elements\"]" js_getElements :: HTMLFormElement -> IO (Nullable HTMLCollection) -- | getElements :: (MonadIO m) => HTMLFormElement -> m (Maybe HTMLCollection) getElements self = liftIO (nullableToMaybe <$> (js_getElements (self))) -- | getElementsUnsafe :: (MonadIO m, HasCallStack) => HTMLFormElement -> m HTMLCollection getElementsUnsafe self = liftIO ((nullableToMaybe <$> (js_getElements (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getElementsUnchecked :: (MonadIO m) => HTMLFormElement -> m HTMLCollection getElementsUnchecked self = liftIO (fromJust . nullableToMaybe <$> (js_getElements (self))) foreign import javascript unsafe "$1[\"length\"]" js_getLength :: HTMLFormElement -> IO Int -- | getLength :: (MonadIO m) => HTMLFormElement -> m Int getLength self = liftIO (js_getLength (self)) foreign import javascript unsafe "$1[\"autocorrect\"] = $2;" js_setAutocorrect :: HTMLFormElement -> Bool -> IO () -- | setAutocorrect :: (MonadIO m) => HTMLFormElement -> Bool -> m () setAutocorrect self val = liftIO (js_setAutocorrect (self) val) foreign import javascript unsafe "($1[\"autocorrect\"] ? 1 : 0)" js_getAutocorrect :: HTMLFormElement -> IO Bool -- | getAutocorrect :: (MonadIO m) => HTMLFormElement -> m Bool getAutocorrect self = liftIO (js_getAutocorrect (self)) foreign import javascript unsafe "$1[\"autocapitalize\"] = $2;" js_setAutocapitalize :: HTMLFormElement -> Nullable JSString -> IO () -- | setAutocapitalize :: (MonadIO m, ToJSString val) => HTMLFormElement -> Maybe val -> m () setAutocapitalize self val = liftIO (js_setAutocapitalize (self) (toMaybeJSString val)) foreign import javascript unsafe "$1[\"autocapitalize\"]" js_getAutocapitalize :: HTMLFormElement -> IO (Nullable JSString) -- | getAutocapitalize :: (MonadIO m, FromJSString result) => HTMLFormElement -> m (Maybe result) getAutocapitalize self = liftIO (fromMaybeJSString <$> (js_getAutocapitalize (self))) -- | getAutocapitalizeUnsafe :: (MonadIO m, HasCallStack, FromJSString result) => HTMLFormElement -> m result getAutocapitalizeUnsafe self = liftIO ((fromMaybeJSString <$> (js_getAutocapitalize (self))) >>= maybe (Prelude.error "Nothing to return") return) -- | getAutocapitalizeUnchecked :: (MonadIO m, FromJSString result) => HTMLFormElement -> m result getAutocapitalizeUnchecked self = liftIO (fromJust . fromMaybeJSString <$> (js_getAutocapitalize (self))) -- | autocomplete :: EventName HTMLFormElement onautocomplete autocomplete = unsafeEventName (toJSString "autocomplete") -- | autocompleteerror :: EventName HTMLFormElement onautocompleteerror autocompleteerror = unsafeEventName (toJSString "autocompleteerror")