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,
   [> `Attached of
   ([> `Internal of [> `Service ] ], [> `Get ]) Eliom_service.a_s ],
   [ `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,
   [ `Attached of
   ([ `Internal of Eliom_service.servcoserv ], [ `Get ])
   Eliom_service.a_s ],
   [< `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,
   [ `Attached of
   ([ `Internal of [< `Coservice | `Service ] ], [ `Get ])
   Eliom_service.a_s ],
   [< 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