Module Eliom_duce_tools


module Eliom_duce_tools: sig .. end

val attrib_list : string list -> string
val menu : ?classe:string list ->
(unit, unit, [< Eliom_services.get_service_kind ] as 'a,
[< Eliom_services.suff ] as 'b, 'c, 'd,
[< Eliom_services.registrable ] as 'e)
Eliom_services.service * {{Eliom_duce.Blocks.a_content_elt_list}} ->
((unit, unit, 'a, 'b, 'c, 'd, 'e) Eliom_services.service *
{{Eliom_duce.Blocks.a_content_elt_list}})
list ->
?service:(unit, unit, 'a, 'b, 'c, 'd, 'e) Eliom_services.service ->
sp:Eliom_sessions.server_params -> {{ul}}
val find_in_hierarchy : ('a, 'b) Eliom_tools_common.one_page option ->
'c * ('d * ('a, 'b, 'd) Eliom_tools_common.hierarchical_site_item) list ->
int list
val hierarchical_menu_depth_first : ?classe:string list ->
?whole_tree:bool ->
'a *
({{Eliom_duce.Blocks.a_content_elt_list}} *
([< Eliom_services.get_service_kind ] as 'b,
[< Eliom_services.registrable ] as 'c,
{{Eliom_duce.Blocks.a_content_elt_list}})
Eliom_tools_common.hierarchical_site_item)
list ->
?service:('b, 'c) Eliom_tools_common.one_page ->
sp:Eliom_sessions.server_params -> {{[ ul* ]}}
val hierarchical_menu_breadth_first : ?classe:string list ->
([< Eliom_services.get_service_kind ] as 'a,
[< Eliom_services.registrable ] as 'b, Eliom_duce.Blocks.a_content_elt_list)
Eliom_tools_common.hierarchical_site ->
?service:('a, 'b) Eliom_tools_common.one_page ->
sp:Eliom_sessions.server_params -> {{[ ul* ]}}
val structure_links : ([< Eliom_services.get_service_kind ] as 'a,
[< Eliom_services.registrable ] as 'b, 'c)
Eliom_tools_common.main_page *
('d * ('a, 'b, 'd) Eliom_tools_common.hierarchical_site_item) list ->
?service:('a, 'b) Eliom_tools_common.one_page ->
sp:Eliom_sessions.server_params -> {{[ link* ]}}