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.