blob: fdeed36e1dd14dc7b44069c4a426cc6e2563591e (
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
122
123
124
125
126
127
128
129
130
|
let string_of_sexp = Base.String.t_of_sexp
let sexp_of_string = Base.String.sexp_of_t
let option_of_sexp = Base.Option.t_of_sexp
let sexp_of_option = Base.Option.sexp_of_t
let int_of_sexp = Base.Int.t_of_sexp
let sexp_of_int = Base.Int.sexp_of_t
let bool_of_sexp = Base.Bool.t_of_sexp
let sexp_of_bool = Base.Bool.sexp_of_t
let list_of_sexp = Base.List.t_of_sexp
let sexp_of_list = Base.List.sexp_of_t
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 (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 }
|