<commit_before>(* This file was generated by Eliom-base-app.
   Feel free to use it, modify it, and redistribute it as you wish. *)

(** Connexion box, box with connected user information and menu *)

[%%shared.start]

  type uploader = unit Ow_pic_uploader.t



[%%server.start]
  val uploader : string list -> uploader



[%%shared.start]

 (** Box for connected users, with picture, name, and menu *)
val connected_user_box :
  Eba_user.t -> uploader -> [> Html5_types.div ] Eliom_content.Html5.D.elt

(** Connection box *)
val connection_box :
  unit -> [> Html5_types.div ] Eliom_content.Html5.D.elt Lwt.t

(** Connected user box or connexion box, depending whether user
    is connected or not *)
val userbox :
  Eba_user.t option ->
  uploader ->
  [> Html5_types.div ] Eliom_content.Html5.D.elt Lwt.t

(** Link to upload a picture.
    The client function given as first parameter will be called first,
    for example to close the menu containing the link. *)
val upload_pic_link :
  ?a:[< Html5_types.a_attrib ] Eliom_content.Html5.D.Raw.attrib list ->
  ?content:Html5_types.a_content Eliom_content.Html5.D.Raw.elt list ->
  (unit -> unit) Eliom_client_common.client_value ->
  uploader -> [> `A of Html5_types.a_content ] Eliom_content.Html5.D.Raw.elt

(** Link to start to see the help from the begining.
    The client function given as first parameter will be called first,
    for example to close the menu containing the link. *)
val reset_tips_link :
  (unit -> unit) Eliom_client_common.client_value ->
  [> `A of [> `PCDATA ] ] Eliom_content.Html5.D.Raw.elt

(** Display user menu *)
val user_menu :
  Eba_user.t ->
  uploader -> [> Html5_types.div ] Eliom_content.Html5.F.elt


[%%client.start]

(** Personnalize user menu *)
val set_user_menu :
  ((unit -> unit) ->
   Eba_user.t ->
   uploader ->
   Html5_types.div_content Eliom_content.Html5.D.elt
     Eliom_content.Html5.D.list_wrap) ->
  unit


<commit_msg>Eliom_client_common.client_value -> Eliom_client_value.t<commit_after>(* This file was generated by Eliom-base-app.
   Feel free to use it, modify it, and redistribute it as you wish. *)

(** Connexion box, box with connected user information and menu *)

[%%shared.start]

  type uploader = unit Ow_pic_uploader.t



[%%server.start]
  val uploader : string list -> uploader



[%%shared.start]

 (** Box for connected users, with picture, name, and menu *)
val connected_user_box :
  Eba_user.t -> uploader -> [> Html5_types.div ] Eliom_content.Html5.D.elt

(** Connection box *)
val connection_box :
  unit -> [> Html5_types.div ] Eliom_content.Html5.D.elt Lwt.t

(** Connected user box or connexion box, depending whether user
    is connected or not *)
val userbox :
  Eba_user.t option ->
  uploader ->
  [> Html5_types.div ] Eliom_content.Html5.D.elt Lwt.t

(** Link to upload a picture.
    The client function given as first parameter will be called first,
    for example to close the menu containing the link. *)
val upload_pic_link :
  ?a:[< Html5_types.a_attrib ] Eliom_content.Html5.D.Raw.attrib list ->
  ?content:Html5_types.a_content Eliom_content.Html5.D.Raw.elt list ->
  (unit -> unit) Eliom_client_value.t ->
  uploader -> [> `A of Html5_types.a_content ] Eliom_content.Html5.D.Raw.elt

(** Link to start to see the help from the begining.
    The client function given as first parameter will be called first,
    for example to close the menu containing the link. *)
val reset_tips_link :
  (unit -> unit) Eliom_client_value.t ->
  [> `A of [> `PCDATA ] ] Eliom_content.Html5.D.Raw.elt

(** Display user menu *)
val user_menu :
  Eba_user.t ->
  uploader -> [> Html5_types.div ] Eliom_content.Html5.F.elt


[%%client.start]

(** Personnalize user menu *)
val set_user_menu :
  ((unit -> unit) ->
   Eba_user.t ->
   uploader ->
   Html5_types.div_content Eliom_content.Html5.D.elt
     Eliom_content.Html5.D.list_wrap) ->
  unit



{'fraction_non_alphanumeric': 0.11571097968629468, 'fraction_numerical': 0.009256878374903575, 'mean_word_length': 3.544392523364486, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 58, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5794784', 'n_tokens_mistral': 1376, 'n_tokens_neox': 1344, 'n_words': 379}