SimpleForm.Digestive.Combined

SimpleForm implementation that works along with digestive-functors

The Combined module both renders to Html and also parses input.

Documentation

data SimpleForm r a

A form for producing something of type r

Instances

Monad (SimpleForm r)

Functor (SimpleForm r)

MonadFix (SimpleForm r)

Applicative (SimpleForm r)

Monoid a => Monoid (SimpleForm r a)

type SimpleForm' m a = SimpleForm a (Form Html m a)

Convenience type synonym for combined forms

postSimpleForm

Arguments

:: Monad m

=> Renderer

-> m (Env m)

The digestive-functors input environment

-> SimpleForm' m a

The simple form to render

-> m (Html, Maybe a)

Render a SimpleForm to Html in the presence of input

This also parses the input to the correct datatype.

The Html is the contents of the form, but you must still wrap it in the actual <form> element.

getSimpleForm

Arguments

:: Monad m

=> Renderer

-> Maybe a

Default values for the form

-> SimpleForm' m a

The simple form to render

-> m Html

Render a SimpleForm to Html

This produces the contents of the form, but you must still wrap it in the actual <form> element.

simpleForm'

Arguments

:: ToMarkup v

=> Renderer

-> (View v, Maybe a)

Results of running a digestive-functors Form

-> SimpleForm a r

The simple form to render

-> (r, Html)

Render a SimpleForm to Html and get the return value

This produces the contents of the form, but you must still wrap it in the actual <form> element.

Create forms

input

Arguments

:: (Eq a, Monad m)

=> Text

Form element name

-> (r -> Maybe a)

Get value from parsed data

-> (Widget a, Validation a)

Widget and validation to use

-> InputOptions

Other options

-> SimpleForm r (Form Html m a)

Create an input element for a SimpleForm

input "username" (Just . username) (wdef,vdef) mempty

input_

Arguments

:: (DefaultWidget a, DefaultValidation a, Eq a, Monad m)

=> Text

Form element name

-> (r -> Maybe a)

Get value from parsed data

-> SimpleForm r (Form Html m a)

Same as input, but just use the default options

toForm :: ToMarkup h => h -> SimpleForm a ()

Add some raw markup to a SimpleForm

Subforms

withFields

Arguments

:: Monad m

=> Text

Subview name

-> (r' -> r)

Projection function

-> SimpleForm r (Form Html m a)

-> SimpleForm r' (Form Html m a)

Project out some part of the parsed data and name the subview

withFields'

Arguments

:: Maybe Text

Optional subview name

-> (r' -> r)

Projection function

-> SimpleForm r a

-> SimpleForm r' a

Project out some part of the parsed data (does not add name to subview)

wrap :: (Html -> Html) -> SimpleForm r a -> SimpleForm r a

Wrap a SimpleForm in an Html tag

fieldset :: Monad m => Text -> (r' -> r) -> SimpleForm r (Form Html m a) -> SimpleForm r' (Form Html m a)

Like withFields, but also wrap in fieldset tag