1 files changed, 168 insertions, 0 deletions
diff --git a/lib/models/gen/embed_j.mli b/lib/models/gen/embed_j.mli
new file mode 100644
index 0000000..8872d89
--- /dev/null
+++ b/lib/models/gen/embed_j.mli
@@ -0,0 +1,168 @@
+(* Auto-generated from "embed.atd" *)
+[@@@ocaml.warning "-27-32-35-39"]
+
+type video = Embed_t.video = {
+  url: string option;
+  height: int option;
+  width: int option
+}
+
+type provider = Embed_t.provider = {
+  name: string option;
+  url: string option
+}
+
+type image = Embed_t.image = {
+  url: string option;
+  proxy_url: string option;
+  height: int option;
+  width: int option
+}
+
+type footer = Embed_t.footer = {
+  text: string;
+  icon_url: string option;
+  proxy_icon_url: string option
+}
+
+type field = Embed_t.field = {
+  name: string;
+  value: string;
+  inline: bool option
+}
+
+type t = Embed_t.t = {
+  title: string option;
+  kind: string option;
+  description: string option;
+  url: string option;
+  timestamp: string option;
+  colour: int option;
+  footer: footer option;
+  image: image option;
+  thumbnail: image option;
+  video: video option;
+  provider: provider option;
+  fields: field list option
+}
+
+val write_video :
+  Bi_outbuf.t -> video -> unit
+  (** Output a JSON value of type {!video}. *)
+
+val string_of_video :
+  ?len:int -> video -> string
+  (** Serialize a value of type {!video}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_video :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> video
+  (** Input JSON data of type {!video}. *)
+
+val video_of_string :
+  string -> video
+  (** Deserialize JSON data of type {!video}. *)
+
+val write_provider :
+  Bi_outbuf.t -> provider -> unit
+  (** Output a JSON value of type {!provider}. *)
+
+val string_of_provider :
+  ?len:int -> provider -> string
+  (** Serialize a value of type {!provider}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_provider :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> provider
+  (** Input JSON data of type {!provider}. *)
+
+val provider_of_string :
+  string -> provider
+  (** Deserialize JSON data of type {!provider}. *)
+
+val write_image :
+  Bi_outbuf.t -> image -> unit
+  (** Output a JSON value of type {!image}. *)
+
+val string_of_image :
+  ?len:int -> image -> string
+  (** Serialize a value of type {!image}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_image :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> image
+  (** Input JSON data of type {!image}. *)
+
+val image_of_string :
+  string -> image
+  (** Deserialize JSON data of type {!image}. *)
+
+val write_footer :
+  Bi_outbuf.t -> footer -> unit
+  (** Output a JSON value of type {!footer}. *)
+
+val string_of_footer :
+  ?len:int -> footer -> string
+  (** Serialize a value of type {!footer}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_footer :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> footer
+  (** Input JSON data of type {!footer}. *)
+
+val footer_of_string :
+  string -> footer
+  (** Deserialize JSON data of type {!footer}. *)
+
+val write_field :
+  Bi_outbuf.t -> field -> unit
+  (** Output a JSON value of type {!field}. *)
+
+val string_of_field :
+  ?len:int -> field -> string
+  (** Serialize a value of type {!field}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_field :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> field
+  (** Input JSON data of type {!field}. *)
+
+val field_of_string :
+  string -> field
+  (** Deserialize JSON data of type {!field}. *)
+
+val write_t :
+  Bi_outbuf.t -> t -> unit
+  (** Output a JSON value of type {!t}. *)
+
+val string_of_t :
+  ?len:int -> t -> string
+  (** Serialize a value of type {!t}
+      into a JSON string.
+      @param len specifies the initial length
+                 of the buffer used internally.
+                 Default: 1024. *)
+
+val read_t :
+  Yojson.Safe.lexer_state -> Lexing.lexbuf -> t
+  (** Input JSON data of type {!t}. *)
+
+val t_of_string :
+  string -> t
+  (** Deserialize JSON data of type {!t}. *)
+