|
@@ -24,6 +24,9 @@
|
|
:parser 'json-read
|
|
:parser 'json-read
|
|
:complete (cl-function (lambda (&key data &allow-other-keys)
|
|
:complete (cl-function (lambda (&key data &allow-other-keys)
|
|
(with-current-buffer openai-response-buffer
|
|
(with-current-buffer openai-response-buffer
|
|
|
|
+ (when (not (get-buffer-window (buffer-name openai-response-buffer)))
|
|
|
|
+ (let ((window (split-window)))
|
|
|
|
+ (set-window-buffer window openai-response-buffer)))
|
|
(goto-char (point-max))
|
|
(goto-char (point-max))
|
|
(insert (format ">>> %s -- Response: %s"
|
|
(insert (format ">>> %s -- Response: %s"
|
|
(format-time-string "%Y-%m-%d %H:%M:%S")
|
|
(format-time-string "%Y-%m-%d %H:%M:%S")
|