module MakeForms: functor (
Pages
:
FORMCREATE
) ->
ELIOMFORMSIG
with
type form_content_elt = Pages.form_content_elt
and type form_content_elt_list = Pages.form_content_elt_list
and type form_elt = Pages.form_elt
and type a_content_elt = Pages.a_content_elt
and type a_content_elt_list = Pages.a_content_elt_list
and type a_elt = Pages.a_elt
and type a_elt_list = Pages.a_elt_list
and type div_content_elt = Pages.div_content_elt
and type div_content_elt_list = Pages.div_content_elt_list
and type uri = Pages.uri
and type link_elt = Pages.link_elt
and type script_elt = Pages.script_elt
and type textarea_elt = Pages.textarea_elt
and type select_elt = Pages.select_elt
and type input_elt = Pages.input_elt
and type pcdata_elt = Pages.pcdata_elt
and type a_attrib_t = Pages.a_attrib_t
and type form_attrib_t = Pages.form_attrib_t
and type input_attrib_t = Pages.input_attrib_t
and type textarea_attrib_t = Pages.textarea_attrib_t
and type select_attrib_t = Pages.select_attrib_t
and type link_attrib_t = Pages.link_attrib_t
and type script_attrib_t = Pages.script_attrib_t
and type input_type_t = Pages.input_type_t
type
form_content_elt
type
form_content_elt_list
type
form_elt
type
a_content_elt
type
a_content_elt_list
type
a_elt
type
a_elt_list
type
div_content_elt
type
div_content_elt_list
type
uri
type
link_elt
type
script_elt
type
textarea_elt
type
select_elt
type
input_elt
type
pcdata_elt
type
a_attrib_t
type
form_attrib_t
type
input_attrib_t
type
textarea_attrib_t
type
select_attrib_t
type
link_attrib_t
type
script_attrib_t
type
input_type_t
val a : ?a:a_attrib_t ->
('a, unit, [< Eliom.get_service_kind ], [< Eliom.suff ], 'b,
unit Eliom.param_name, [< Eliom.registrable ])
Eliom.service ->
Eliom.server_params ->
a_content_elt_list -> 'a -> a_elt
val get_form : ?a:form_attrib_t ->
('a, unit, [< Eliom.get_service_kind ], [< Eliom.suff ], 'b,
unit Eliom.param_name, [< Eliom.registrable ])
Eliom.service ->
Eliom.server_params ->
('b -> form_content_elt_list) ->
form_elt
val post_form : ?a:form_attrib_t ->
('a, 'b, [< Eliom.post_service_kind ], [< Eliom.suff ], 'c, 'd,
[< Eliom.registrable ])
Eliom.service ->
Eliom.server_params ->
('d -> form_content_elt_list) ->
'a -> form_elt
val make_uri : ('a, unit, [< Eliom.get_service_kind ], [< Eliom.suff ], 'b,
unit Eliom.param_name, [< Eliom.registrable ])
Eliom.service -> Eliom.server_params -> 'a -> uri
val js_script : ?a:script_attrib_t ->
uri -> script_elt
val css_link : ?a:link_attrib_t ->
uri -> link_elt
val int_input : ?a:input_attrib_t ->
?value:int -> int Eliom.param_name -> input_elt
val float_input : ?a:input_attrib_t ->
?value:float -> float Eliom.param_name -> input_elt
val string_input : ?a:input_attrib_t ->
?value:string -> string Eliom.param_name -> input_elt
val user_type_input : ?a:input_attrib_t ->
?value:'a ->
('a -> string) -> 'a Eliom.param_name -> input_elt
val int_password_input : ?a:input_attrib_t ->
?value:int -> int Eliom.param_name -> input_elt
val float_password_input : ?a:input_attrib_t ->
?value:float -> float Eliom.param_name -> input_elt
val string_password_input : ?a:input_attrib_t ->
?value:string -> string Eliom.param_name -> input_elt
val user_type_password_input : ?a:input_attrib_t ->
?value:'a ->
('a -> string) -> 'a Eliom.param_name -> input_elt
val hidden_int_input : ?a:input_attrib_t ->
int Eliom.param_name -> int -> input_elt
val hidden_float_input : ?a:input_attrib_t ->
float Eliom.param_name -> float -> input_elt
val hidden_string_input : ?a:input_attrib_t ->
string Eliom.param_name -> string -> input_elt
val hidden_user_type_input : ?a:input_attrib_t ->
('a -> string) -> 'a Eliom.param_name -> 'a -> input_elt
val bool_checkbox : ?a:input_attrib_t ->
?checked:bool -> bool Eliom.param_name -> input_elt
val string_radio : ?a:input_attrib_t ->
?checked:bool ->
string option Eliom.param_name -> string -> input_elt
val int_radio : ?a:input_attrib_t ->
?checked:bool ->
int option Eliom.param_name -> int -> input_elt
val float_radio : ?a:input_attrib_t ->
?checked:bool ->
float option Eliom.param_name -> float -> input_elt
val user_type_radio : ?a:input_attrib_t ->
?checked:bool ->
('a -> string) ->
'a option Eliom.param_name -> 'a -> input_elt
val textarea : ?a:textarea_attrib_t ->
string Eliom.param_name ->
rows:int ->
cols:int -> pcdata_elt -> textarea_elt
val select : ?a:select_attrib_t ->
?selected:(string option * string) option ->
string option * string ->
(string option * string) list ->
string Eliom.param_name -> select_elt
val submit_input : ?a:input_attrib_t ->
string -> input_elt
val file_input : ?a:input_attrib_t ->
?value:string ->
Extensions.file_info Eliom.param_name -> input_elt