diff options
| author | Adelyn Breelove <[email protected]> | 2019-01-10 13:12:49 -0700 |
|---|---|---|
| committer | Adelyn Breelove <[email protected]> | 2019-01-10 13:12:49 -0700 |
| commit | b9ee77f8153090e9d47e73ab195540d10720c7b6 (patch) | |
| tree | d36bdb7ce17e03ee1bdb60d6b638f8ac6e022711 /lib/models/embed.ml | |
| parent | Why are events so confusing (diff) | |
| download | disml-b9ee77f8153090e9d47e73ab195540d10720c7b6.tar.xz disml-b9ee77f8153090e9d47e73ab195540d10720c7b6.zip | |
AAAAAAAAAAAAAAAAAAAAAAAA
Diffstat (limited to 'lib/models/embed.ml')
| -rw-r--r-- | lib/models/embed.ml | 52 |
1 files changed, 44 insertions, 8 deletions
diff --git a/lib/models/embed.ml b/lib/models/embed.ml index ce25e78..789e959 100644 --- a/lib/models/embed.ml +++ b/lib/models/embed.ml @@ -1,8 +1,44 @@ -module Make(Http : S.Http) = struct - type footer = Embed_t.footer - type image = Embed_t.image - type video = Embed_t.video - type provider = Embed_t.provider - type field = Embed_t.field - type t = Embed_t.t -end
\ No newline at end of file +type footer = { + text: string; + icon_url: string option [@default None]; + proxy_icon_url: string option [@default None]; +} [@@deriving yojson] + +type image = { + url: string option [@default None]; + proxy_url: string option [@default None]; + height: int option [@default None]; + width: int option [@default None]; +} [@@deriving yojson] + +type video = { + url: string option [@default None]; + height: int option [@default None]; + width: int option [@default None]; +} [@@deriving yojson] + +type provider = { + name: string option [@default None]; + url: string option [@default None]; +} [@@deriving yojson] + +type field = { + name: string; + value: string; + inline: bool option [@default None]; +} [@@deriving yojson] + +type t = { + title: string option [@default None]; + kind: string option [@default None]; + description: string option [@default None]; + url: string option [@default None]; + timestamp: string option [@default None]; + colour: int option [@default None]; + footer: footer option [@default None]; + image: image option [@default None]; + thumbnail: image option [@default None]; + video: video option [@default None]; + provider: provider option [@default None]; + fields: field list [@default []]; +} [@@deriving yojson]
\ No newline at end of file |