anil.recoil.org
OCaml library for JSONfeed parsing and creation
code cleanups
+1
-3
lib/cito.ml
+1
-3
lib/cito.ml
···
158
158
let jsont =
159
159
let kind = "CiTO intent" in
160
160
let doc = "A Citation Typing Ontology intent annotation" in
161
-
let dec = of_string in
162
-
let enc = to_string in
163
-
Jsont.map ~kind ~doc ~dec ~enc Jsont.string
161
+
Jsont.map ~kind ~doc ~dec:of_string ~enc:to_string Jsont.string
+17
-36
lib/item.ml
+17
-36
lib/item.ml
···
147
147
}
148
148
in
149
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
150
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
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
184
165
|> Jsont.Object.opt_mem "attachments"
185
166
(Jsont.list Attachment.jsont)
186
-
~enc:enc_attachments
167
+
~enc:attachments
187
168
|> Jsont.Object.opt_mem "_references"
188
169
(Jsont.list Reference.jsont)
189
-
~enc:enc_references
170
+
~enc:references
190
171
|> Jsont.Object.opt_mem "_extensions" Jsont.json_object ~enc:(fun _t -> None)
191
-
|> Jsont.Object.keep_unknown Jsont.json_mems ~enc:enc_unknown
172
+
|> Jsont.Object.keep_unknown Jsont.json_mems ~enc:unknown
192
173
|> Jsont.Object.finish