My agentic slop goes here. Not intended for anyone else!
anil.recoil.org
1(** JMAP Identity Type *)
2
3open Jmap_core
4
5(** Identity object type (RFC 8621 Section 6.1) *)
6type t = {
7 id : Id.t;
8 name : string;
9 email : string;
10 reply_to : Jmap_email.EmailAddress.t list option;
11 bcc : Jmap_email.EmailAddress.t list option;
12 text_signature : string;
13 html_signature : string;
14 may_delete : bool;
15}
16
17(** Accessors *)
18val id : t -> Id.t
19val name : t -> string
20val email : t -> string
21val reply_to : t -> Jmap_email.EmailAddress.t list option
22val bcc : t -> Jmap_email.EmailAddress.t list option
23val text_signature : t -> string
24val html_signature : t -> string
25val may_delete : t -> bool
26
27(** Constructor *)
28val v :
29 id:Id.t ->
30 name:string ->
31 email:string ->
32 ?reply_to:Jmap_email.EmailAddress.t list ->
33 ?bcc:Jmap_email.EmailAddress.t list ->
34 text_signature:string ->
35 html_signature:string ->
36 may_delete:bool ->
37 unit ->
38 t
39
40(** Standard /get method *)
41module Get : sig
42 type request = t Standard_methods.Get.request
43 type response = t Standard_methods.Get.response
44
45 val request_of_json : Ezjsonm.value -> request
46 val response_of_json : Ezjsonm.value -> response
47end
48
49(** Standard /changes method *)
50module Changes : sig
51 type request = Standard_methods.Changes.request
52 type response = Standard_methods.Changes.response
53
54 val request_of_json : Ezjsonm.value -> request
55 val response_of_json : Ezjsonm.value -> response
56end
57
58(** Standard /set method *)
59module Set : sig
60 type request = t Standard_methods.Set.request
61 type response = t Standard_methods.Set.response
62
63 val request_of_json : Ezjsonm.value -> request
64 val response_of_json : Ezjsonm.value -> response
65end
66
67(** Parser submodule *)
68module Parser : sig
69 val of_json : Ezjsonm.value -> t
70 val to_json : t -> Ezjsonm.value
71end