Warning: Reason support is experimental. We are looking for beta-tester and contributors.

Module Wiki_services

module Wiki_services : sig..end

These are all the services related to wikis


val send_wikipage : 
  rights:Wiki_types.wiki_rights ->
  wiki:Wiki_types.wiki ->
  ?menu_style:Wiki_widgets_interface.menu_style ->
  page:string * string list ->
  unit ->
  Ocsimore_appl.appl Eliom_registration.application_content
  Eliom_registration.kind Lwt.t
val send_wikibox : 
  rights:Wiki_types.wiki_rights ->
  wiki:Wiki_types.wiki ->
  ?menu_style:Wiki_widgets_interface.menu_style ->
  ?page:Wiki_types.wiki * string list option ->
  wb:Wiki_types.wikibox ->
  unit ->
  [> Html5_types.div ] Eliom_content.Html5.F.elt list option Lwt.t
val register_wiki : 
  rights:Wiki_types.wiki_rights ->
  ?sp:'a ->
  path:Eliom_lib.Url.path ->
  wiki:Wiki_types.wiki -> siteids:'b * 'b -> unit -> unit

Register the services for the wiki wiki

val save_then_redirect : 
  ?error:(exn -> unit Lwt.t) ->
  [< `BasePage | `SamePage ] ->
  (unit -> 'a Lwt.t) ->
  Eliom_registration.browser_content Eliom_registration.kind Lwt.t
val error_handler_wb_opt : Wiki_types.wikibox option -> exn -> unit Lwt.t
val error_handler_wb : Wiki_types.wikibox -> exn -> unit Lwt.t
val add_remove_to_string : [< `Add | `Remove ] -> string
val eliom_add_remove : 
  string ->
  ([ `Add | `Remove ], [ `WithoutSuffix ],
   [ `One of [ `Add | `Remove ] ] Eliom_parameter.param_name)
  Eliom_parameter.params_type
val action_edit_css : 
  (Wiki_types.wikibox *
   (Wiki_widgets_interface.css_wikibox * (string * int32) option),
   unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ((([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name) *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of int32 ] Eliom_parameter.param_name)),
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_edit_css_list : 
  (Wiki_types.wikibox * (Wiki_types.wiki * string option), unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name),
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_edit_wikibox : 
  (Wiki_types.wikibox, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_delete_wikibox : 
  (Wiki_types.wikibox * int32, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of int32 ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_edit_wikibox_permissions : 
  (Wiki_types.wikibox, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_edit_wiki_options : 
  (Wiki_types.wikibox * Wiki_types.wiki, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of Wiki_types.wiki ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_wikibox_history : 
  (Wiki_types.wikibox, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_css_history : 
  (Wiki_types.wikibox * Wiki_widgets_interface.css_wikibox, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   (([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name),
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_css_permissions : 
  (Wiki_types.wikibox * Wiki_widgets_interface.css_wikibox, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   (([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name),
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_old_wikibox : 
  (Wiki_types.wikibox * int32, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of int32 ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_old_wikiboxcss : 
  (Wiki_types.wikibox * (Wiki_widgets_interface.css_wikibox * int32),
   unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ((([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name) *
   [ `One of int32 ] Eliom_parameter.param_name),
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_src_wikibox : 
  (Wiki_types.wikibox * int32, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of int32 ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_edit_wikipage_properties : 
  (Wiki_types.wikibox * Wiki_types.wikipage, unit,
   [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name),
   unit, [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_send_wikiboxtext : 
  (unit,
   string *
   ((Wiki_types.wiki * (unit, string list) Eliom_parameter.binsum) *
   ((Wiki_types.wikibox * Int32.t) * string)),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of string ] Eliom_parameter.param_name *
   (([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   ([ `One of unit ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name
   Eliom_parameter.listnames)) *
   (([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of int32 ] Eliom_parameter.param_name) *
   [ `One of string ] Eliom_parameter.param_name)),
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_send_css : 
  (unit,
   (Wiki_types.wikibox * (Wiki_widgets_interface.css_wikibox * Int32.t)) *
   string, [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ((([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name) *
   [ `One of int32 ] Eliom_parameter.param_name)) *
   [ `One of string ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_set_wikibox_special_permissions : 
  (unit, Wiki_types.wikibox * bool,
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of bool ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val pagecss_service : 
  (Wiki_types.wikipage * (Wiki_types.wikibox * int32 option) list,
   unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   ([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   [ `One of int32 ] Eliom_parameter.param_name)
   Eliom_parameter.listnames, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_create_page : 
  (unit, Wiki_types.wikibox option * Wiki_types.wikipage,
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name),
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val action_upload_file : 
  (unit,
   Wiki_types.wiki *
   (Wiki_types.wikibox option * (string * Eliom_lib.file_info)),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   ([ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of Eliom_lib.file_info ] Eliom_parameter.param_name)),
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.non_ocaml_service ])
  Eliom_service.service
val action_create_css : 
  (unit,
   Wiki_types.wikibox *
   ((Wiki_types.wiki * string option) *
   (Wiki_types.media_type * Wiki_types.wikibox option)),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   (([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   ([ `Set of Wiki_types.media_type_elem ] Eliom_parameter.param_name *
   [ `One of Wiki_types.wikibox option ] Eliom_parameter.param_name)),
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_send_css_options : 
  (unit,
   Wiki_types.wikibox *
   (((Wiki_widgets_interface.css_wikibox * Wiki_types.wikibox option) *
   Wiki_types.media_type) *
   int32),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ((((([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name) *
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name) *
   [ `Set of Wiki_types.media_type_elem ] Eliom_parameter.param_name) *
   [ `One of int32 ] Eliom_parameter.param_name),
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val edit_wiki : 
  (Wiki_types.wiki, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Wiki_types.wiki ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val view_wikis : 
  (bool, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of bool ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val view_wikis_preapplyed : 
  (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
val view_boxes : 
  (Wiki_types.wiki, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Wiki_types.wiki ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val view_box : 
  (Wiki_types.wikibox * int32 option, 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 *
   [ `One of int32 ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val batch_edit_boxes : 
  (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.appl_service ])
  Eliom_service.service
val action_send_wikipage_properties : 
  (unit,
   Wiki_types.wikibox *
   (Wiki_types.wikipage *
   (string * (Wiki_types.wikibox option * string))),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   (([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name) *
   ([ `One of string ] Eliom_parameter.param_name *
   ([ `One of Wiki_types.wikibox option ] Eliom_parameter.param_name *
   [ `One of string ] Eliom_parameter.param_name))),
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val action_send_wiki_metadata : 
  (unit,
   Wiki_types.wikibox option *
   (Wiki_types.wiki * (string * Wiki_types.wikibox option)),
   [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of Wiki_types.wikibox ] Eliom_parameter.param_name *
   ([ `One of Wiki_types.wiki ] Eliom_parameter.param_name *
   ([ `One of string ] Eliom_parameter.param_name *
   [ `One of Wiki_types.wikibox option ] Eliom_parameter.param_name)),
   [< Eliom_service.registrable > `Registrable ], 'a)
  Eliom_service.service
val edit_wiki_permissions_admin : 
  (Wiki_types.wiki, unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Attached ],
   [< Eliom_service.service_kind > `Service ], [ `WithoutSuffix ],
   [ `One of Wiki_types.wiki ] Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.appl_service ])
  Eliom_service.service
val wikibox_contents : 
  (Wiki_types.wikibox * (Wiki_types.wiki * string list option) *
   (Wiki_types.wikibox * Wiki_widgets_interface.wikibox_override) option,
   unit, [< Eliom_service.service_method > `Get ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ],
   [ `One of
   (Wiki_types.wikibox * (Wiki_types.wiki * string list option) *
   (Wiki_types.wikibox * Wiki_widgets_interface.wikibox_override)
   option)
   Eliom_parameter.ocaml ]
   Eliom_parameter.param_name, unit,
   [< Eliom_service.registrable > `Registrable ],
   Html5_types.div Eliom_content.Html5.F.elt list option
   Eliom_service.ocaml_service)
  Eliom_service.service

a service serving the content of wikiboxes:

val delete_wiki : 
  (unit, int32 * bool, [< Eliom_service.service_method > `Post ],
   [< Eliom_service.attached > `Nonattached ],
   [< Eliom_service.service_kind > `NonattachedCoservice ],
   [ `WithoutSuffix ], unit,
   [ `One of int32 ] Eliom_parameter.param_name *
   [ `One of bool ] Eliom_parameter.param_name,
   [< Eliom_service.registrable > `Registrable ],
   [> Eliom_service.http_service ])
  Eliom_service.service
val wiki_css_header : Page_site.Header.header
val add_wiki_css_header : unit -> unit Lwt.t
val wiki_page_args : 
  (Wiki_types.wiki * string list option, [ `WithoutSuffix ],
   [ `One of Wiki_types.wiki Eliom_parameter.ocaml ]
   Eliom_parameter.param_name *
   [ `One of string list option Eliom_parameter.ocaml ]
   Eliom_parameter.param_name)
  Eliom_parameter.params_type
module Ui : sig..end
module API : sig..end

This module exports methods of [Wiki_data] et al.