(codegpt-mode)

(erase-buffer)

(insert ,instruction "\n\n")

,@body)))

(insert text "\n\n")

(funcall

(cl-case codegpt-tunnel

(`completion #'openai-completion)

(`chat #'openai-chat))

(cl-case codegpt-tunnel

(`completion (buffer-string))

(`chat `[(("role" . "user")

("content" . ,(buffer-string)))]))

(lambda (data)

(setq codegpt-requesting-p nil)

(codegpt-mode--cancel-timer)

(openai--with-buffer codegpt-buffer-name

(openai--pop-to-buffer codegpt-buffer-name)

(let ((original-point (point)))

(cl-case codegpt-tunnel

(`completion

(let* ((choices (openai--data-choices data))

(result (openai--get-choice choices)))

(insert (string-trim result) "\n")))

(`chat

(let ((choices (let-alist data .choices))

(result))

(mapc (lambda (choice)

(let-alist choice

(let-alist .message

(setq result (string-trim .content)))))

choices)

(insert (string-trim result) "\n"))))

(codegpt--fill-region original-point (point))))

(unless codegpt-focus-p

(select-window original-window)))

:model codegpt-model

:max-tokens codegpt-max-tokens

:temperature codegpt-temperature)

(unless codegpt-focus-p

(select-window original-window)))))