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")