Ditto.Lucid

Documentation

encodeFormId :: FormId -> Text

formGenGET

Arguments

:: Applicative m

=> Text

action url

-> [(Text, Text)]

hidden fields to add to form

-> HtmlT m b

-> HtmlT m b

create <form action=action method="GET" enctype="application/xxx-form-urlencoded">

formGenPOST

Arguments

:: Applicative m

=> Text

action url

-> [(Text, Text)]

hidden fields to add to form

-> HtmlT m b

-> HtmlT m b

create <form action=action method="POST" enctype="application/xxx-form-urlencoded">

setAttr :: (Monad m, Functor m, Applicative f) => [Attribute] -> Form m input error (HtmlT f ()) a -> Form m input error (HtmlT f ()) a

add an attribute to the Html for a form element.

errorList :: (Monad m, ToHtml error, Monad f) => Form m input error (HtmlT f ()) ()

create a <ul> which contains all the errors related to the Form.

The ul will have the attribute class="ditto-error-list".

childErrorList :: (Monad m, ToHtml error, Monad f) => Form m input error (HtmlT f ()) ()

create a <ul> which contains all the errors related to the Form.

Includes errors from child forms.

The ul will have the attribute class="ditto-error-list".

withErrors :: (Monad m, ToHtml error, Monad f) => (HtmlT f () -> [error] -> HtmlT f ()) -> Form m input error (HtmlT f ()) a -> Form m input error (HtmlT f ()) a

create a sibling element to the formlet which includes its error message

The ul will have the attribute class="ditto-error-list".

br :: (Monad m, Applicative f) => Form m input error (HtmlT f ()) ()

create a <br> tag.

fieldset :: (Monad m, Functor m, Applicative f) => Form m input error (HtmlT f ()) a -> Form m input error (HtmlT f ()) a

wrap a <fieldset class="ditto"> around a Form

ol :: (Monad m, Functor m, Applicative f) => Form m input error (HtmlT f ()) a -> Form m input error (HtmlT f ()) a

wrap an <ol class="ditto"> around a Form

ul :: (Monad m, Functor m, Applicative f) => Form m input error (HtmlT f ()) a -> Form m input error (HtmlT f ()) a

wrap a <ul class="ditto"> around a Form

li :: (Monad m, Functor m, Applicative f) => Form m input error (HtmlT f ()) a -> Form m input error (HtmlT f ()) a

wrap a <li class="ditto"> around a Form