Module Wiki_self_services

module Wiki_self_services : sig..end

This file define some tables that contain the services that are dynamically associated to a given wiki:

• the service that answers for a page of the wiki (two services: attached and non-attached).
• the service that answers for the css of the wiki

The other services for wikis take the wiki as argument, and are defined in Wiki_services.

The tables below are updated in the function register_wiki of Wiki_services.

module Servpages : Hashtbl.Make(sig  type t = Wiki_types.wiki  val Wiki_self_services.​Servpages.​equal : 'a -> 'a -> bool  val Wiki_self_services.​Servpages.​hash : 'a -> intend)

val Wiki_self_services.​naservpages : 
  (string, unit, [ `Nonattached of [ `Get ] Eliom_service.na_s ],
   [ `WithoutSuffix ], [ `One of string ] Eliom_parameter.param_name,
   unit, [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service Servpages.t

val Wiki_self_services.​servpages : 
  (string list, unit, Eliom_service.get_service_kind, [ `WithSuffix ],
   [ `One of string list ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service Servpages.t

val Wiki_self_services.​servwikicss : 
  ((Wiki_types.wikibox * int32 option) list, unit,
   [ `Attached of
       ([ `External | `Internal of [ `Coservice | `Service ] ],
        [ `Get ])
       Eliom_service.a_s ],
   [ `WithoutSuffix ],
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
    [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit, [ `Registrable ],
   Eliom_registration.CssText.return)
  Eliom_service.service Servpages.t

val Wiki_self_services.​add_naservpage : 
  Servpages.key ->
  (string, unit, [ `Nonattached of [ `Get ] Eliom_service.na_s ],
   [ `WithoutSuffix ], [ `One of string ] Eliom_parameter.param_name,
   unit, [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service -> unit

val Wiki_self_services.​add_servpage : 
  Servpages.key ->
  (string list, unit, Eliom_service.get_service_kind, [ `WithSuffix ],
   [ `One of string list ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service -> unit

val Wiki_self_services.​add_servwikicss : 
  Servpages.key ->
  ((Wiki_types.wikibox * int32 option) list, unit,
   [ `Attached of
       ([ `External | `Internal of [ `Coservice | `Service ] ],
        [ `Get ])
       Eliom_service.a_s ],
   [ `WithoutSuffix ],
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
    [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit, [ `Registrable ],
   Eliom_registration.CssText.return)
  Eliom_service.service -> unit

val Wiki_self_services.​find_naservpage : 
  Servpages.key ->
  (string, unit, [ `Nonattached of [ `Get ] Eliom_service.na_s ],
   [ `WithoutSuffix ], [ `One of string ] Eliom_parameter.param_name,
   unit, [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service

val Wiki_self_services.​find_servpage : 
  Servpages.key ->
  (string list, unit, Eliom_service.get_service_kind, [ `WithSuffix ],
   [ `One of string list ] Eliom_parameter.param_name, unit,
   [ `Registrable ], Eliom_registration.appl_service)
  Eliom_service.service option

val Wiki_self_services.​find_servwikicss : 
  Servpages.key ->
  ((Wiki_types.wikibox * int32 option) list, unit,
   [ `Attached of
       ([ `External | `Internal of [ `Coservice | `Service ] ],
        [ `Get ])
       Eliom_service.a_s ],
   [ `WithoutSuffix ],
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
    [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit, [ `Registrable ],
   Eliom_registration.CssText.return)
  Eliom_service.service option