Module Eliom_duce_tools

module Eliom_duce_tools: sig..end

val Eliom_duce_tools.​attrib_list : string list -> string

type ('a, 'b) one_page = (unit, unit, 'a, [ `WithoutSuffix ], unit, unit, 'b) Eliom_services.service

val Eliom_duce_tools.​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 * Images not enabled in this syntax} Images not enabled in this syntax} sp:Eliom_sessions.server_params -> {{ul}}

type ('a, 'b, 'c) hierarchical_site_item =

|Disabled
|Site_tree of ('a, 'b, 'c) hierarchical_site

type ('a, 'b, 'c) main_page =

|Main_page of ('a, 'b) one_page
|Default_page of ('a, 'b) one_page
|Not_clickable

type ('a, 'b, 'c) hierarchical_site =
   ('a, 'b, 'c) main_page *
    ('c * ('a, 'b, 'c) hierarchical_site_item) list

val Eliom_duce_tools.​find_in_hierarchy :
   ('a, 'b) one_page option ->
    'c * ('d * ('a, 'b, 'd) hierarchical_site_item) list ->
    int list

val Eliom_duce_tools.​hierarchical_menu_depth_first :
   ?classe:string list ->
    ?whole_tree:bool ->
    'a *
    (Images not enabled in this syntax} [< Eliom_services.registrable ] as 'c,
    Images not enabled in this syntax} list ->
    ?service:('b, 'c) one_page ->
    sp:Eliom_sessions.server_params -> {{ul}} list

val Eliom_duce_tools.​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)
    hierarchical_site ->
    ?service:('a, 'b) one_page ->
    sp:Eliom_sessions.server_params -> Xhtmltypes_duce.ul list