anil.recoil.org
OCaml library for JSONfeed parsing and creation
code cleanups
+1
-3
lib/cito.ml
+1
-3
lib/cito.ml
+17
-36
lib/item.ml
+17
-36
lib/item.ml
···
147
}
148
in
149
150
-
(* Encoders to extract fields from item *)
151
-
let enc_id t = t.id in
152
-
let enc_content_html t = content_html t in
153
-
let enc_content_text t = content_text t in
154
-
let enc_url t = t.url in
155
-
let enc_external_url t = t.external_url in
156
-
let enc_title t = t.title in
157
-
let enc_summary t = t.summary in
158
-
let enc_image t = t.image in
159
-
let enc_banner_image t = t.banner_image in
160
-
let enc_date_published t = t.date_published in
161
-
let enc_date_modified t = t.date_modified in
162
-
let enc_authors t = t.authors in
163
-
let enc_tags t = t.tags in
164
-
let enc_language t = t.language in
165
-
let enc_attachments t = t.attachments in
166
-
let enc_references t = t.references in
167
-
let enc_unknown t = t.unknown in
168
-
169
Jsont.Object.map ~kind ~doc make_from_json
170
-
|> Jsont.Object.mem "id" Jsont.string ~enc:enc_id
171
-
|> Jsont.Object.opt_mem "content_html" Jsont.string ~enc:enc_content_html
172
-
|> Jsont.Object.opt_mem "content_text" Jsont.string ~enc:enc_content_text
173
-
|> Jsont.Object.opt_mem "url" Jsont.string ~enc:enc_url
174
-
|> Jsont.Object.opt_mem "external_url" Jsont.string ~enc:enc_external_url
175
-
|> Jsont.Object.opt_mem "title" Jsont.string ~enc:enc_title
176
-
|> Jsont.Object.opt_mem "summary" Jsont.string ~enc:enc_summary
177
-
|> Jsont.Object.opt_mem "image" Jsont.string ~enc:enc_image
178
-
|> Jsont.Object.opt_mem "banner_image" Jsont.string ~enc:enc_banner_image
179
-
|> Jsont.Object.opt_mem "date_published" Rfc3339.jsont ~enc:enc_date_published
180
-
|> Jsont.Object.opt_mem "date_modified" Rfc3339.jsont ~enc:enc_date_modified
181
-
|> Jsont.Object.opt_mem "authors" (Jsont.list Author.jsont) ~enc:enc_authors
182
-
|> Jsont.Object.opt_mem "tags" (Jsont.list Jsont.string) ~enc:enc_tags
183
-
|> Jsont.Object.opt_mem "language" Jsont.string ~enc:enc_language
184
|> Jsont.Object.opt_mem "attachments"
185
(Jsont.list Attachment.jsont)
186
-
~enc:enc_attachments
187
|> Jsont.Object.opt_mem "_references"
188
(Jsont.list Reference.jsont)
189
-
~enc:enc_references
190
|> Jsont.Object.opt_mem "_extensions" Jsont.json_object ~enc:(fun _t -> None)
191
-
|> Jsont.Object.keep_unknown Jsont.json_mems ~enc:enc_unknown
192
|> Jsont.Object.finish
···
147
}
148
in
149
150
Jsont.Object.map ~kind ~doc make_from_json
151
+
|> Jsont.Object.mem "id" Jsont.string ~enc:id
152
+
|> Jsont.Object.opt_mem "content_html" Jsont.string ~enc:content_html
153
+
|> Jsont.Object.opt_mem "content_text" Jsont.string ~enc:content_text
154
+
|> Jsont.Object.opt_mem "url" Jsont.string ~enc:url
155
+
|> Jsont.Object.opt_mem "external_url" Jsont.string ~enc:external_url
156
+
|> Jsont.Object.opt_mem "title" Jsont.string ~enc:title
157
+
|> Jsont.Object.opt_mem "summary" Jsont.string ~enc:summary
158
+
|> Jsont.Object.opt_mem "image" Jsont.string ~enc:image
159
+
|> Jsont.Object.opt_mem "banner_image" Jsont.string ~enc:banner_image
160
+
|> Jsont.Object.opt_mem "date_published" Rfc3339.jsont ~enc:date_published
161
+
|> Jsont.Object.opt_mem "date_modified" Rfc3339.jsont ~enc:date_modified
162
+
|> Jsont.Object.opt_mem "authors" (Jsont.list Author.jsont) ~enc:authors
163
+
|> Jsont.Object.opt_mem "tags" (Jsont.list Jsont.string) ~enc:tags
164
+
|> Jsont.Object.opt_mem "language" Jsont.string ~enc:language
165
|> Jsont.Object.opt_mem "attachments"
166
(Jsont.list Attachment.jsont)
167
+
~enc:attachments
168
|> Jsont.Object.opt_mem "_references"
169
(Jsont.list Reference.jsont)
170
+
~enc:references
171
|> Jsont.Object.opt_mem "_extensions" Jsont.json_object ~enc:(fun _t -> None)
172
+
|> Jsont.Object.keep_unknown Jsont.json_mems ~enc:unknown
173
|> Jsont.Object.finish