From c3d6e15bb89d4a93a2fa486db6c8e126baf4da2e Mon Sep 17 00:00:00 2001 From: Adelyn Breelove Date: Mon, 21 Jan 2019 08:52:33 -0700 Subject: folder restructure --- lib/models/embed.mli | 79 ---------------------------------------------------- 1 file changed, 79 deletions(-) delete mode 100644 lib/models/embed.mli (limited to 'lib/models/embed.mli') diff --git a/lib/models/embed.mli b/lib/models/embed.mli deleted file mode 100644 index d15c9fd..0000000 --- a/lib/models/embed.mli +++ /dev/null @@ -1,79 +0,0 @@ -type footer = { - text: string; - icon_url: string option; - proxy_icon_url: string option; -} [@@deriving sexp, yojson] - -type image = { - url: string option; - proxy_url: string option; - height: int option; - width: int option; -} [@@deriving sexp, yojson] - -type video = { - url: string option; - height: int option; - width: int option; -} [@@deriving sexp, yojson] - -type provider = { - name: string option; - url: string option; -} [@@deriving sexp, yojson] - -type author = { - name: string option; - url: string option; - icon_url: string option; - proxy_icon_url: string option; -} [@@deriving sexp, yojson] - -type field = { - name: string; - value: string; - inline: bool; -} [@@deriving sexp, yojson] - -type t = { - title: string option; - kind: string option[@key "type"]; - description: string option; - url: string option; - timestamp: string option; - colour: int option[@key "color"]; - footer: footer option; - image: image option; - thumbnail: image option; - video: video option; - provider: provider option; - author: author option; - fields: field list [@default []]; -} [@@deriving sexp, yojson { strict = false }] - -val default : t -val default_footer : footer -val default_image : image -val default_video : video -val default_provider : provider -val default_author : author - -val title : string -> t -> t -val description : string -> t -> t -val url : string -> t -> t -val timestamp : string -> t -> t -val colour : int -> t -> t -val color : int -> t -> t -val footer : (footer -> footer) -> t -> t -val image : string -> t -> t -val thumbnail : string -> t -> t -val author : (author -> author) -> t -> t -val field : string * string * bool -> t -> t -val fields : (string * string * bool) list -> t -> t - -val footer_text : string -> footer -> footer -val footer_icon : string -> footer -> footer - -val author_name : string -> author -> author -val author_url : string -> author -> author -val author_icon : string -> author -> author \ No newline at end of file -- cgit v1.2.3