···

       
158
       
158
       
 
       
let jsont =

     

       
159
       
159
       
 
       
  let kind = "CiTO intent" in

     

       
160
       
160
       
 
       
  let doc = "A Citation Typing Ontology intent annotation" in

     

       
161
       
161
       
-
       
  let dec = of_string in

     

       
162
       
162
       
-
       
  let enc = to_string in

     

       
163
       
163
       
-
       
  Jsont.map ~kind ~doc ~dec ~enc Jsont.string

     

       
161
       
161
       
+
       
  Jsont.map ~kind ~doc ~dec:of_string ~enc:to_string Jsont.string

     

···

       
147
       
147
       
 
       
    }

     

       
148
       
148
       
 
       
  in

     

       
149
       
149
       
 
       


     

       
150
       
150
       
-
       
  (* Encoders to extract fields from item *)

     

       
151
       
151
       
-
       
  let enc_id t = t.id in

     

       
152
       
152
       
-
       
  let enc_content_html t = content_html t in

     

       
153
       
153
       
-
       
  let enc_content_text t = content_text t in

     

       
154
       
154
       
-
       
  let enc_url t = t.url in

     

       
155
       
155
       
-
       
  let enc_external_url t = t.external_url in

     

       
156
       
156
       
-
       
  let enc_title t = t.title in

     

       
157
       
157
       
-
       
  let enc_summary t = t.summary in

     

       
158
       
158
       
-
       
  let enc_image t = t.image in

     

       
159
       
159
       
-
       
  let enc_banner_image t = t.banner_image in

     

       
160
       
160
       
-
       
  let enc_date_published t = t.date_published in

     

       
161
       
161
       
-
       
  let enc_date_modified t = t.date_modified in

     

       
162
       
162
       
-
       
  let enc_authors t = t.authors in

     

       
163
       
163
       
-
       
  let enc_tags t = t.tags in

     

       
164
       
164
       
-
       
  let enc_language t = t.language in

     

       
165
       
165
       
-
       
  let enc_attachments t = t.attachments in

     

       
166
       
166
       
-
       
  let enc_references t = t.references in

     

       
167
       
167
       
-
       
  let enc_unknown t = t.unknown in

     

       
168
       
168
       
-
       


     

       
169
       
150
       
 
       
  Jsont.Object.map ~kind ~doc make_from_json

     

       
170
       
170
       
-
       
  |> Jsont.Object.mem "id" Jsont.string ~enc:enc_id

     

       
171
       
171
       
-
       
  |> Jsont.Object.opt_mem "content_html" Jsont.string ~enc:enc_content_html

     

       
172
       
172
       
-
       
  |> Jsont.Object.opt_mem "content_text" Jsont.string ~enc:enc_content_text

     

       
173
       
173
       
-
       
  |> Jsont.Object.opt_mem "url" Jsont.string ~enc:enc_url

     

       
174
       
174
       
-
       
  |> Jsont.Object.opt_mem "external_url" Jsont.string ~enc:enc_external_url

     

       
175
       
175
       
-
       
  |> Jsont.Object.opt_mem "title" Jsont.string ~enc:enc_title

     

       
176
       
176
       
-
       
  |> Jsont.Object.opt_mem "summary" Jsont.string ~enc:enc_summary

     

       
177
       
177
       
-
       
  |> Jsont.Object.opt_mem "image" Jsont.string ~enc:enc_image

     

       
178
       
178
       
-
       
  |> Jsont.Object.opt_mem "banner_image" Jsont.string ~enc:enc_banner_image

     

       
179
       
179
       
-
       
  |> Jsont.Object.opt_mem "date_published" Rfc3339.jsont ~enc:enc_date_published

     

       
180
       
180
       
-
       
  |> Jsont.Object.opt_mem "date_modified" Rfc3339.jsont ~enc:enc_date_modified

     

       
181
       
181
       
-
       
  |> Jsont.Object.opt_mem "authors" (Jsont.list Author.jsont) ~enc:enc_authors

     

       
182
       
182
       
-
       
  |> Jsont.Object.opt_mem "tags" (Jsont.list Jsont.string) ~enc:enc_tags

     

       
183
       
183
       
-
       
  |> Jsont.Object.opt_mem "language" Jsont.string ~enc:enc_language

     

       
151
       
151
       
+
       
  |> Jsont.Object.mem "id" Jsont.string ~enc:id

     

       
152
       
152
       
+
       
  |> Jsont.Object.opt_mem "content_html" Jsont.string ~enc:content_html

     

       
153
       
153
       
+
       
  |> Jsont.Object.opt_mem "content_text" Jsont.string ~enc:content_text

     

       
154
       
154
       
+
       
  |> Jsont.Object.opt_mem "url" Jsont.string ~enc:url

     

       
155
       
155
       
+
       
  |> Jsont.Object.opt_mem "external_url" Jsont.string ~enc:external_url

     

       
156
       
156
       
+
       
  |> Jsont.Object.opt_mem "title" Jsont.string ~enc:title

     

       
157
       
157
       
+
       
  |> Jsont.Object.opt_mem "summary" Jsont.string ~enc:summary

     

       
158
       
158
       
+
       
  |> Jsont.Object.opt_mem "image" Jsont.string ~enc:image

     

       
159
       
159
       
+
       
  |> Jsont.Object.opt_mem "banner_image" Jsont.string ~enc:banner_image

     

       
160
       
160
       
+
       
  |> Jsont.Object.opt_mem "date_published" Rfc3339.jsont ~enc:date_published

     

       
161
       
161
       
+
       
  |> Jsont.Object.opt_mem "date_modified" Rfc3339.jsont ~enc:date_modified

     

       
162
       
162
       
+
       
  |> Jsont.Object.opt_mem "authors" (Jsont.list Author.jsont) ~enc:authors

     

       
163
       
163
       
+
       
  |> Jsont.Object.opt_mem "tags" (Jsont.list Jsont.string) ~enc:tags

     

       
164
       
164
       
+
       
  |> Jsont.Object.opt_mem "language" Jsont.string ~enc:language

     

       
184
       
165
       
 
       
  |> Jsont.Object.opt_mem "attachments"

     

       
185
       
166
       
 
       
       (Jsont.list Attachment.jsont)

     

       
186
       
186
       
-
       
       ~enc:enc_attachments

     

       
167
       
167
       
+
       
       ~enc:attachments

     

       
187
       
168
       
 
       
  |> Jsont.Object.opt_mem "_references"

     

       
188
       
169
       
 
       
       (Jsont.list Reference.jsont)

     

       
189
       
189
       
-
       
       ~enc:enc_references

     

       
170
       
170
       
+
       
       ~enc:references

     

       
190
       
171
       
 
       
  |> Jsont.Object.opt_mem "_extensions" Jsont.json_object ~enc:(fun _t -> None)

     

       
191
       
191
       
-
       
  |> Jsont.Object.keep_unknown Jsont.json_mems ~enc:enc_unknown

     

       
172
       
172
       
+
       
  |> Jsont.Object.keep_unknown Jsont.json_mems ~enc:unknown

     

       
192
       
173
       
 
       
  |> Jsont.Object.finish