Format JSON in emacs

I wrote an elisp function to yank JSON off my clipboard, prettify it, and then return it to my clipboard ready to be pasted wherever.

(defun simpson-pretty-json()
  "ideal for getting pretty JSON from JSON that is copied from a XHR request"
  (interactive)
  (with-temp-buffer
    (clipboard-yank)
    (json-pretty-print-buffer)
    (kill-new (buffer-string))
  )
)