module JSDOM.Generated.HTMLFormElement
(_get, submit, reset, checkValidity, requestAutocomplete,
setAcceptCharset, getAcceptCharset, setAction, getAction,
setAutocomplete, getAutocomplete, setEnctype, getEnctype,
setEncoding, getEncoding, setMethod, getMethod, setName, getName,
setNoValidate, getNoValidate, setTarget, getTarget, getElements,
getLength, setAutocorrect, getAutocorrect, setAutocapitalize,
getAutocapitalize, autocomplete, autocompleteerror,
HTMLFormElement, castToHTMLFormElement, gTypeHTMLFormElement)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
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)
submit :: (MonadDOM m) => HTMLFormElement -> m ()
submit self = liftDOM (void (self ^. js "submit"))
reset :: (MonadDOM m) => HTMLFormElement -> m ()
reset self = liftDOM (void (self ^. js "reset"))
checkValidity :: (MonadDOM m) => HTMLFormElement -> m Bool
checkValidity self
= liftDOM ((self ^. js "checkValidity") >>= valToBool)
requestAutocomplete :: (MonadDOM m) => HTMLFormElement -> m ()
requestAutocomplete self
= liftDOM (void (self ^. js "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)
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)
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)
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)
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)
autocomplete :: EventName HTMLFormElement onautocomplete
autocomplete = unsafeEventName (toJSString "autocomplete")
autocompleteerror :: EventName HTMLFormElement onautocompleteerror
autocompleteerror
= unsafeEventName (toJSString "autocompleteerror")