Module Forum_site

module Forum_site : sig..end

Author(s): Vincent Balat, Boris Yakobowski

val forum_wiki_rights : Forum.wiki_rights

val title_syntax : 
  Html5_types.phrasing Eliom_content.Html5.F.elt list
  Wiki_types.content_type

val wikicreole_forum_model : Wiki_types.wiki_model

val forum_root : 
  (unit, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ], 
   unit, unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service

val ($) : 
  'a User_sql.Types.parameterized_group ->
  'a Opaque.int32_t -> User_sql.Types.user

val content_type_input : 
  'a Wiki_types.content_type ->
  ([> Html5_types.input ] Eliom_content.Html5.F.elt,
   'b Wiki_types.content_type)
  Xform.XformLwt.t

val edit_forum_form : 
  serv_path:'a ->
  service:(unit, unit, Eliom_service.get_service_kind,
           Eliom_service.attached_kind,
           [< `AttachedCoservice | `Service ], [< `WithoutSuffix ],
           unit, unit, [< `Registrable ],
           Eliom_registration.http_service)
          Eliom_service.service ->
  arg:unit ->
  forum:Forum_types.forum ->
  title:string ->
  descr:string ->
  arborescent:bool ->
  title_syntax:'b Wiki_types.content_type ->
  messages_wiki:'c Opaque.int32_t ->
  comments_wiki:'d Opaque.int32_t ->
  ?err_handler:(exn -> string option) ->
  (Forum_types.forum_arg Opaque.int32_t *
   (string *
    (string *
     (bool *
      ('d Opaque.int32_t *
       ('c Opaque.int32_t * ('e Wiki_types.content_type * bool)))))) ->
   unit -> Eliom_registration.Html5.page Lwt.t) ->
  Eliom_content.Html5.F.html Lwt.t

val edit_forum : unit

val create_forum_form : 
  serv_path:'a ->
  service:('b, unit, [ `Get ], Eliom_service.attached_kind,
           [< `AttachedCoservice | `Service ], [< Eliom_service.suff ],
           'c, unit, [< `Registrable ], Eliom_registration.http_service)
          Eliom_service.service ->
  arg:'b ->
  ?err_handler:(exn -> string option) ->
  (string * (string * (bool * ('d Wiki_types.content_type * bool))) ->
   unit -> Eliom_registration.Html5.page Lwt.t) ->
  Eliom_content.Html5.F.html Lwt.t

val create_forum : unit

We register the service that lists all the forums