Fix Duplicate Windows With ob-restclient

NOTE: This first fix only works with some :jq calls from ob-restclient. Specifcally, it doesn't work with `value` - there's another attempt lower that is in progress

When running restcliet in org mode via ob-restclient on my spacemacs install it would make a second window showing whatever buffer I was running the process in.

I put together this hack to close it.

Specifically, I add these two lines into my own copy of the `org-babel-restclient--wrap-result` funciton

(other-window 2)

The full things looks like this:

That's an update to the code in this file

Doing this fix by throwing content into a variable, probably make idomatic to use a buffer.

(defvar aws-restclient-content nil
  "Holder for the contents so you can
close the temporary buffer windows as
a hack"

(defun org-babel-execute:restclient (body params)
  "Execute a block of Restclient code with org-babel.
This function is called by `org-babel-execute-src-block'"
  (message "AWS MODIFIED: org-babel-execute:restclient")
  (message "executing Restclient source code block")
    (let ((results-buffer (current-buffer))
          (restclient-same-buffer-response t)
          (restclient-same-buffer-response-name (buffer-name))
            '("\\*temp\\*" display-buffer-no-window (allow-no-window . t))

      (insert (buffer-name))
        (dolist (p params)
          (let ((key (car p))
                (value (cdr p)))
            (when (eql key :var)
              (insert (format ":%s = <<\n%s\n#\n" (car value) (cdr value))))))
        (insert body)
        (goto-char (point-min))
        (goto-char (point-min))
         'restclient-http-do (org-babel-restclient--raw-payload-p params) t))

      (while restclient-within-call
        (sleep-for 0.05))

      (goto-char (point-min))
      (when (equal (buffer-name) (buffer-string))
        (error "Restclient encountered an error"))

      (when (or (org-babel-restclient--return-pure-payload-result-p params)
                (assq :noheaders params)
                (assq :jq params))

       (when-let* ((jq-header (assoc :jq params))
                  (jq-path "jq"))
         (format "%s %s" org-babel-restclient--jq-path
                         (shell-quote-argument (cdr jq-header)))

       ;; widen if jq but not pure payload
      (when (and (assq :jq params)
                 (not (assq :noheaders params))
                 (not (org-babel-restclient--return-pure-payload-result-p params)))

      (when (not (org-babel-restclient--return-pure-payload-result-p params))

      (setq aws-restclient-content (buffer-string))



  (other-window 1)
  (prin1-to-string aws-restclient-content t)