(let ((value (jsown:val-safe v "display_name")))
  (push (cons (if (null value) k value)
              k)
        list))