···

       
73
       
 
       
  let* mailboxes_result = Jmap_mail.get_mailboxes conn ~account_id in

     

       
74
       
 
       
  match mailboxes_result with

     

       
75
       
 
       
  | Error err ->

     

       
76
       
-
       
      Printf.printf "Error getting mailboxes: %s\n" 

     

       
77
       
-
       
        (match err with

     

       
78
       
-
       
        | Jmap.Api.Connection_error msg -> "Connection error: " ^ msg

     

       
79
       
-
       
        | Jmap.Api.HTTP_error (code, body) -> Printf.sprintf "HTTP error %d: %s" code body

     

       
80
       
-
       
        | Jmap.Api.Parse_error msg -> "Parse error: " ^ msg

     

       
81
       
-
       
        | Jmap.Api.Authentication_error -> "Authentication error");

     

       
82
       
 
       
      Lwt.return_unit

     

       
83
       
 
       
      

     

       
84
       
 
       
  | Ok mailboxes ->

     
···

       
102
       
 
       
          

     

       
103
       
 
       
          match emails_result with

     

       
104
       
 
       
          | Error err ->

     

       
105
       
-
       
              Printf.printf "Error getting emails: %s\n" 

     

       
106
       
-
       
                (match err with

     

       
107
       
-
       
                | Jmap.Api.Connection_error msg -> "Connection error: " ^ msg

     

       
108
       
-
       
                | Jmap.Api.HTTP_error (code, body) -> Printf.sprintf "HTTP error %d: %s" code body

     

       
109
       
-
       
                | Jmap.Api.Parse_error msg -> "Parse error: " ^ msg

     

       
110
       
-
       
                | Jmap.Api.Authentication_error -> "Authentication error");

     

       
111
       
 
       
              Lwt.return_unit

     

       
112
       
 
       
              

     

       
113
       
 
       
          | Ok emails ->

     
···

       
185
       
 
       
      in

     

       
186
       
 
       
      match result with

     

       
187
       
 
       
      | Error err -> 

     

       
188
       
-
       
          (match err with

     

       
189
       
-
       
          | Api.Connection_error msg -> 

     

       
190
       
-
       
              Printf.eprintf "Connection error: %s\n" msg

     

       
191
       
-
       
          | Api.HTTP_error (code, body) -> 

     

       
192
       
-
       
              Printf.eprintf "HTTP error %d: %s\n" code body

     

       
193
       
-
       
          | Api.Parse_error msg -> 

     

       
194
       
-
       
              Printf.eprintf "Parse error: %s\n" msg

     

       
195
       
-
       
          | Api.Authentication_error -> 

     

       
196
       
-
       
              Printf.eprintf "Authentication error. Check your API token.\n");

     

       
197
       
 
       
          Lwt.return 1

     

       
198
       
 
       
      | Ok conn ->

     

       
199
       
 
       
          (* Get the primary account ID *)

     
···

       
221
       
 
       
          let* mailboxes_result = get_mailboxes conn ~account_id:primary_account_id in

     

       
222
       
 
       
          match mailboxes_result with

     

       
223
       
 
       
          | Error err -> 

     

       
224
       
-
       
              Printf.eprintf "Failed to get mailboxes: %s\n" 

     

       
225
       
-
       
                (match err with

     

       
226
       
-
       
                | Api.Connection_error msg -> "Connection error: " ^ msg

     

       
227
       
-
       
                | Api.HTTP_error (code, body) -> Printf.sprintf "HTTP error %d: %s" code body

     

       
228
       
-
       
                | Api.Parse_error msg -> "Parse error: " ^ msg

     

       
229
       
-
       
                | Api.Authentication_error -> "Authentication error");

     

       
230
       
 
       
              Lwt.return 1

     

       
231
       
 
       
          | Ok mailboxes ->

     

       
232
       
 
       
              (* If there's a mailbox list, just use the first one for this example *)

     
···

       
248
       
 
       
              in

     

       
249
       
 
       
              match emails_result with

     

       
250
       
 
       
              | Error err -> 

     

       
251
       
-
       
                  Printf.eprintf "Failed to get emails: %s\n" 

     

       
252
       
-
       
                    (match err with

     

       
253
       
-
       
                    | Api.Connection_error msg -> "Connection error: " ^ msg

     

       
254
       
-
       
                    | Api.HTTP_error (code, body) -> Printf.sprintf "HTTP error %d: %s" code body

     

       
255
       
-
       
                    | Api.Parse_error msg -> "Parse error: " ^ msg

     

       
256
       
-
       
                    | Api.Authentication_error -> "Authentication error");

     

       
257
       
 
       
                  Lwt.return 1

     

       
258
       
 
       
              | Ok emails ->

     

       
259
       
 
       
                  (* Apply filters based on command line arguments *)

     

···

       
73
       
 
       
  let* mailboxes_result = Jmap_mail.get_mailboxes conn ~account_id in

     

       
74
       
 
       
  match mailboxes_result with

     

       
75
       
 
       
  | Error err ->

     

       
76
       
+
       
      Printf.printf "Error getting mailboxes: %s\n" (Api.string_of_error err);

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
77
       
 
       
      Lwt.return_unit

     

       
78
       
 
       
      

     

       
79
       
 
       
  | Ok mailboxes ->

     
···

       
97
       
 
       
          

     

       
98
       
 
       
          match emails_result with

     

       
99
       
 
       
          | Error err ->

     

       
100
       
+
       
              Printf.printf "Error getting emails: %s\n" (Api.string_of_error err);

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
101
       
 
       
              Lwt.return_unit

     

       
102
       
 
       
              

     

       
103
       
 
       
          | Ok emails ->

     
···

       
175
       
 
       
      in

     

       
176
       
 
       
      match result with

     

       
177
       
 
       
      | Error err -> 

     

       
178
       
+
       
          Printf.eprintf "%s\n" (Api.string_of_error err);

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
179
       
 
       
          Lwt.return 1

     

       
180
       
 
       
      | Ok conn ->

     

       
181
       
 
       
          (* Get the primary account ID *)

     
···

       
203
       
 
       
          let* mailboxes_result = get_mailboxes conn ~account_id:primary_account_id in

     

       
204
       
 
       
          match mailboxes_result with

     

       
205
       
 
       
          | Error err -> 

     

       
206
       
+
       
              Printf.eprintf "Failed to get mailboxes: %s\n" (Api.string_of_error err);

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
207
       
 
       
              Lwt.return 1

     

       
208
       
 
       
          | Ok mailboxes ->

     

       
209
       
 
       
              (* If there's a mailbox list, just use the first one for this example *)

     
···

       
225
       
 
       
              in

     

       
226
       
 
       
              match emails_result with

     

       
227
       
 
       
              | Error err -> 

     

       
228
       
+
       
                  Printf.eprintf "Failed to get emails: %s\n" (Api.string_of_error err);

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
229
       
 
       
                  Lwt.return 1

     

       
230
       
 
       
              | Ok emails ->

     

       
231
       
 
       
                  (* Apply filters based on command line arguments *)

     

···

       
442
       
 
       


     

       
443
       
 
       
  (** Result type for API operations *)

     

       
444
       
 
       
  type 'a result = ('a, error) Stdlib.result

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
445
       
 
       


     

       
446
       
 
       
  (** Configuration for a JMAP API client *)

     

       
447
       
 
       
  type config = {

     

···

       
442
       
 
       


     

       
443
       
 
       
  (** Result type for API operations *)

     

       
444
       
 
       
  type 'a result = ('a, error) Stdlib.result

     

       
445
       
+
       
  

     

       
446
       
+
       
  (** Convert an error to a human-readable string *)

     

       
447
       
+
       
  let string_of_error = function

     

       
448
       
+
       
    | Connection_error msg -> "Connection error: " ^ msg

     

       
449
       
+
       
    | HTTP_error (code, body) -> Printf.sprintf "HTTP error %d: %s" code body

     

       
450
       
+
       
    | Parse_error msg -> "Parse error: " ^ msg

     

       
451
       
+
       
    | Authentication_error -> "Authentication error"

     

       
452
       
+
       
  

     

       
453
       
+
       
  (** Pretty-print an error to a formatter *)

     

       
454
       
+
       
  let pp_error ppf err =

     

       
455
       
+
       
    Format.fprintf ppf "%s" (string_of_error err)

     

       
456
       
 
       


     

       
457
       
 
       
  (** Configuration for a JMAP API client *)

     

       
458
       
 
       
  type config = {

     

···

       
579
       
 
       
  (** Result type for API operations *)

     

       
580
       
 
       
  type 'a result = ('a, error) Stdlib.result

     

       
581
       
 
       
  

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
0
       
 
       

     

       
582
       
 
       
  (** Configuration for a JMAP API client as defined in RFC8620 Section 3.1

     

       
583
       
 
       
      @see <https://datatracker.ietf.org/doc/html/rfc8620#section-3.1>

     

       
584
       
 
       
  *)

     

···

       
579
       
 
       
  (** Result type for API operations *)

     

       
580
       
 
       
  type 'a result = ('a, error) Stdlib.result

     

       
581
       
 
       
  

     

       
582
       
+
       
  (** Convert an error to a human-readable string 

     

       
583
       
+
       
      @param err The error to convert

     

       
584
       
+
       
      @return A string representation of the error

     

       
585
       
+
       
  *)

     

       
586
       
+
       
  val string_of_error : error -> string

     

       
587
       
+
       
  

     

       
588
       
+
       
  (** Pretty-print an error to a formatter

     

       
589
       
+
       
      @param ppf The formatter to print to

     

       
590
       
+
       
      @param err The error to print

     

       
591
       
+
       
  *)

     

       
592
       
+
       
  val pp_error : Format.formatter -> error -> unit

     

       
593
       
+
       
  

     

       
594
       
 
       
  (** Configuration for a JMAP API client as defined in RFC8620 Section 3.1

     

       
595
       
 
       
      @see <https://datatracker.ietf.org/doc/html/rfc8620#section-3.1>

     

       
596
       
 
       
  *)