(*---------------------------------------------------------------------------
   Copyright (c) 2025 Anil Madhavapeddy. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

(** VacationResponse type as defined in RFC 8621 Section 8 

    @canonical Jmap.Proto.Vacation *)

type t = {
  id : Proto_id.t;
  (** Always "singleton" - there is only one vacation response. *)
  is_enabled : bool;
  (** Whether the vacation response is active. *)
  from_date : Ptime.t option;
  (** When to start sending responses. *)
  to_date : Ptime.t option;
  (** When to stop sending responses. *)
  subject : string option;
  (** Subject for the auto-reply. *)
  text_body : string option;
  (** Plain text body. *)
  html_body : string option;
  (** HTML body. *)
}

val id : t -> Proto_id.t
val is_enabled : t -> bool
val from_date : t -> Ptime.t option
val to_date : t -> Ptime.t option
val subject : t -> string option
val text_body : t -> string option
val html_body : t -> string option

val jsont : t Jsont.t

(** The singleton id for VacationResponse. *)
val singleton_id : Proto_id.t