Module Wiki_site

module Wiki_site : sig..end

Author(s): Vincent Balat, Boris Yakobowski

val wiki_naming : Wiki_types.wiki -> string Lwt.t

val body_to_div : 
  Html5_types.body_content Eliom_content.Html5.F.elt list ->
  Html5_types.flow5 Eliom_content.Html5.F.elt list

val siteid : string option

val error_box : Wiki_widgets.wikibox_error_box

val wiki_rights : Wiki.wiki_rights

val wikibox_widget : Wiki_widgets.dynamic_wikibox

val wikicreole_model : Wiki_types.wiki_model

We create the default wiki model, called "wikicreole"

We register auxiliary services for administration boxes

val service_edit_wikibox : 
  (Wiki_types.wikibox, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service

val wiki_admin : Wiki_types.wiki_info

(We create the wiki containing the administration boxes

val wiki_admin_id : Wiki_types.wiki

val register_named_wikibox : 
  page:string ->
  content:string ->
  content_type:'a Wiki_types.content_type ->
  comment:string -> (unit -> string Lwt.t) Lwt.t

This function registers a page inside the administration wiki if it does not exists, and returns a function giving the current value of the corresponding wikibox

val path_input : 
  ?a:Html5_types.input_attrib Eliom_content.Html5.F.attrib list ->
  string option ->
  ([> Html5_types.input ] Eliom_content.Html5.F.elt, string option)
  Xform.XformLwt.t

val staticdir_input : 
  ?a:Html5_types.input_attrib Eliom_content.Html5.F.attrib list ->
  string option ->
  ([> Html5_types.input ] Eliom_content.Html5.F.elt, string option)
  Xform.XformLwt.t

val cast_service : 
  (unit, unit, [< Eliom_service.get_service_kind ],
   [< Eliom_service.attached ], [< Eliom_service.service_kind ],
   [< `WithoutSuffix ], unit, unit, [< Eliom_service.registrable ],
   [< Eliom_registration.non_ocaml_service ])
  Eliom_service.service -> Page_site.menu_link_service

val model_input : 
  Wiki_types.wiki_model ->
  ([> Html5_types.select ] Eliom_content.Html5.F.elt,
   Wiki_types.wiki_model)
  Xform.XformLwt.t Lwt.t

val siteid_input : 
  string Eliom_lib.Option.t ->
  ([> Html5_types.select ] Eliom_content.Html5.F.elt, string option)
  Xform.XformLwt.t

val create_wiki_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 ->
  title:string ->
  descr:string ->
  path:string option ->
  boxrights:bool ->
  staticdir:string option ->
  admins:string list ->
  readers:'b ->
  model:Wiki_types.wiki_model ->
  siteid:string Eliom_lib.Option.t ->
  ?err_handler:(exn -> string option) ->
  (string *
   (string *
    (string option *
     (string option *
      (User_sql.Types.user list *
       (User_sql.Types.user list *
        (bool * (Wiki_types.wiki_model * (string option * bool)))))))) ->
   unit -> Eliom_registration.Html5.page Lwt.t) ->
  Eliom_content.Html5.F.html Lwt.t

val create_wiki : 
  (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 edit_wiki_form : 
  service:(bool, unit, Eliom_service.get_service_kind,
           Eliom_service.attached_kind,
           [< `AttachedCoservice | `Service ], [< Eliom_service.suff ],
           'a, unit, [< `Registrable ], Eliom_registration.http_service)
          Eliom_service.service ->
  arg:bool ->
  wiki:Wiki_types.wiki ->
  descr:string ->
  path:string option ->
  boxrights:bool ->
  staticdir:string option ->
  container:'b Opaque.int32_t option ->
  model:Wiki_types.wiki_model ->
  siteid:string option ->
  ?err_handler:(exn -> string option) ->
  (Wiki_types.wiki_arg Opaque.int32_t *
   (string *
    ('b Opaque.int32_t option *
     (string option *
      (bool *
       (string option * (Wiki_types.wiki_model * (string option * bool))))))) ->
   unit -> Eliom_registration.Html5.page Lwt.t) ->
  Eliom_content.Html5.F.html Lwt.t

val edit_wiki : unit

val replace_links : 
  (unit, unit, [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `AttachedCoservice ],
   [ `WithoutSuffix ], unit, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service

val normalize_old_page_link : 
  Wiki_types.wiki ->
  Wiki_types.wikibox ->
  string -> string option -> 'a -> 'b -> string option Lwt.t

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