[nongnu] elpa/gptel 5f616d123a: gptel: Make response separator customizable (#599)

[ELPA Syncer]

branch: elpa/gptel
commit 5f616d123ac4686803ab28e88b5ce28cfa6bf38b
Author: Psionic K <73710933+psioni...@users.noreply.github.com>
Commit: GitHub <nore...@github.com>

    gptel: Make response separator customizable (#599)
    
    This pulls out the double-newlines that separate request from response and
    allow customization.
    
    With fancy graphical headings, empty lines are unneeded and actually quite 
bad.
---
 gptel-curl.el | 2 +-
 gptel.el      | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/gptel-curl.el b/gptel-curl.el
index 6524a05670..03e748b464 100644
--- a/gptel-curl.el
+++ b/gptel-curl.el
@@ -239,7 +239,7 @@ See `gptel--url-get-response' for details."
           (unless tracking-marker
             (goto-char start-marker)
             (unless (or (bobp) (plist-get info :in-place))
-              (insert "\n\n")
+              (insert gptel-response-separator)
               (when gptel-mode
                 ;; Put prefix before AI response.
                 (insert (gptel-response-prefix-string)))
diff --git a/gptel.el b/gptel.el
index c95bd85dcf..c6fc5bac55 100644
--- a/gptel.el
+++ b/gptel.el
@@ -372,6 +372,9 @@ This is an alist mapping major modes to the reply prefix 
strings.  This
 is only inserted in dedicated gptel buffers before the AI's response."
   :type '(alist :key-type symbol :value-type string))
 
+(defcustom gptel-response-separator "\n\n"
+  "String inserted before responses.")
+
 (defcustom gptel-use-header-line t
   "Whether `gptel-mode' should use header-line for status information.
 
@@ -2331,7 +2334,7 @@ See `gptel--url-get-response' for details."
         (when-let* ((transformer (plist-get info :transformer)))
           (setq response (funcall transformer response)))
         (when tracking-marker           ;separate from previous response
-          (setq response (concat "\n\n" response)))
+          (setq response (concat gptel-response-separator response)))
         (save-excursion
           (add-text-properties
            0 (length response) '(gptel response front-sticky (gptel)) response)
@@ -2340,7 +2343,7 @@ See `gptel--url-get-response' for details."
             ;; (run-hooks 'gptel-pre-response-hook)
             (unless (or (bobp) (plist-get info :in-place)
                         tracking-marker)
-              (insert "\n\n")
+              (insert gptel-response-separator)
               (when gptel-mode
                 (insert (gptel-response-prefix-string)))
               (move-marker start-marker (point)))