[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)