blob: 0dd73430811603c75f73f36280afafd3c496f525 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
open Core
type footer = {
text: string;
icon_url: string option [@default None];
proxy_icon_url: string option [@default None];
} [@@deriving sexp, yojson { strict = false; exn = true }]
type image = {
url: string option [@default None];
proxy_url: string option [@default None];
height: int option [@default None];
width: int option [@default None];
} [@@deriving sexp, yojson { strict = false; exn = true }]
type video = {
url: string option [@default None];
height: int option [@default None];
width: int option [@default None];
} [@@deriving sexp, yojson { strict = false; exn = true }]
type provider = {
name: string option [@default None];
url: string option [@default None];
} [@@deriving sexp, yojson { strict = false; exn = true }]
type author = {
name: string option [@default None];
url: string option [@default None];
icon_url: string option [@default None];
proxy_icon_url: string option [@default None];
} [@@deriving sexp, yojson { strict = false; exn = true }]
type field = {
name: string;
value: string;
inline: bool [@default false];
} [@@deriving sexp, yojson { strict = false; exn = true }]
type t = {
title: string option [@default None];
kind: string option [@default None][@key "type"];
description: string option [@default None];
url: string option [@default None];
timestamp: string option [@default None];
colour: int option [@default None][@key "color"];
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];
author: author option [@default None];
fields: field list [@default []];
} [@@deriving sexp, yojson { strict = false; exn = true }]
let default = {
title = None;
kind = None;
description = None;
url = None;
timestamp = None;
colour = None;
footer = None;
image = None;
thumbnail = None;
video = None;
provider = None;
author = None;
fields = [];
}
let default_footer = {
text = "";
icon_url = None;
proxy_icon_url = None;
}
let default_image = {
url = None;
proxy_url = None;
height = None;
width = None;
}
let default_video = {
url = None;
width = None;
height = None;
}
let default_provider = {
name = None;
url = None;
}
let default_author = {
name = None;
url = None;
icon_url = None;
proxy_icon_url = None;
}
let title v e = { e with title = Some v }
let description v e = { e with description = Some v }
let url v e = { e with url = Some v }
let timestamp v e = { e with timestamp = Some v }
let colour v e = { e with colour = Some v }
let color v e = { e with colour = Some v }
let footer f e = { e with footer = Some (f default_footer) }
let image v e = { e with image = Some { default_image with url = Some v } }
let thumbnail v e = { e with thumbnail = Some { default_image with url = Some v } }
let author f e = { e with author = Some (f default_author) }
let field (name, value, inline) e = { e with fields = { name; value; inline; }::e.fields }
let fields l e = { e with fields = List.map ~f:(fun (name, value, inline) -> { name; value; inline; }) l }
let footer_text v f : footer = { f with text = v }
let footer_icon v f : footer = { f with icon_url = Some v }
let author_name v a : author = { a with name = Some v }
let author_url v a : author = { a with url = Some v }
let author_icon v a : author = { a with icon_url = Some v }
|