emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/ellama 37c5e342d2 2/4: Merge pull request #43 from tvra


From: ELPA Syncer
Subject: [elpa] externals/ellama 37c5e342d2 2/4: Merge pull request #43 from tvraman/main
Date: Sun, 7 Jan 2024 12:57:49 -0500 (EST)

branch: externals/ellama
commit 37c5e342d2291ee155089752d12d95ae8be4e5d9
Merge: 4bf9c6c08d 6c8491bfc0
Author: Sergey Kostyaev <s-kostyaev@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #43 from tvraman/main
    
    Factor out callback in ellama-chat to a separate named
---
 ellama.el | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ellama.el b/ellama.el
index 5c888a5625..b1c9e2b863 100644
--- a/ellama.el
+++ b/ellama.el
@@ -269,6 +269,11 @@ when the request completes (with BUFFER current)."
                                (cancel-change-group ellama--change-group)
                                (spinner-stop)
                                (funcall errcb msg))))))))
+(defun ellama-chat-done (_)
+  "Chat done."
+  (save-excursion
+    (goto-char (point-max))
+    (insert "\n\n")))
 
 ;;;###autoload
 (defun ellama-chat (prompt)
@@ -286,9 +291,7 @@ when the request completes (with BUFFER current)."
              "## " ellama-assistant-nick ":\n")
       (ellama-stream prompt
                     :session t
-                    :on-done (lambda (_) (save-excursion
-                                     (goto-char (point-max))
-                                     (insert "\n\n")))))))
+                    :on-done #'ellama-chat-done))))
 
 ;;;###autoload
 (defalias 'ellama-ask 'ellama-chat)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]