(defmacro send-with-json-contents ((name uri) normal-func-args)
  (let ((x (defun-args-to-strings normal-func-args))
        (y (extract-passed-var-no-nested normal-func-args '&key)))
    `(defun ,name ,normal-func-args
       (send ,uri (cl-json:encode-json-to-string (list-to-alist `(,@x ,@y)))))))