(let (;(json-object-type 'plist)
(json (json-read-from-string data)))
(mapcar (lambda (x) (cons (assoc 'fullCitation x) x)) json))
(let (;(json-object-type 'plist)
(json (json-read-from-string data)))
(mapcar (lambda (x) (cons (assoc 'fullCitation x) x)) json))