[elpa] externals/ellama 3bfb3b383c 1/4: Add ability to call ellama functions with selected session

[ELPA Syncer]

branch: externals/ellama
commit 3bfb3b383c76f3cc9b5eaa97d288f7bb72e373eb
Author: Sergey Kostyaev <sskostyaev@gmail.com>
Commit: Sergey Kostyaev <sskostyaev@gmail.com>

    Add ability to call ellama functions with selected session
---
 ellama.el | 76 ++++++++++++++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 56 insertions(+), 20 deletions(-)

diff --git a/ellama.el b/ellama.el
index 705d26bab2..73fd43240f 100644
--- a/ellama.el
+++ b/ellama.el
@@ -1248,6 +1248,24 @@ If EPHEMERAL non nil new session will not be associated 
with any file."
   (with-current-buffer buffer
     (not (not ellama--current-session))))
 
+(defun ellama-get-current-session-id ()
+  "Return current session id.
+If buffer contains ellama session return its id.
+Otherwire return id of current active session."
+  (if ellama--current-session
+      (ellama-session-id ellama--current-session)
+    ellama--current-session-id))
+
+(defun ellama-get-current-session ()
+  "Return current session.
+If buffer contains ellama session return it.
+Otherwire return current active session."
+  (if ellama--current-session
+      ellama--current-session
+    (when ellama--current-session-id
+      (with-current-buffer (ellama-get-session-buffer 
ellama--current-session-id)
+       ellama--current-session))))
+
 (defun ellama-stream (prompt &rest args)
   "Query ellama for PROMPT.
 ARGS contains keys for fine control.
@@ -1264,6 +1282,8 @@ strings before they're inserted into the BUFFER.
 
 :session SESSION -- SESSION is a ellama conversation session.
 
+:session-id ID -- ID is a ellama session unique identifier.
+
 :ephemeral-session BOOL -- if BOOL is set session will not be saved to named
 file by default.
 
@@ -1272,7 +1292,11 @@ failure (with BUFFER current).
 
 :on-done ON-DONE -- ON-DONE a function or list of functions that's called with
  the full response text when the request completes (with BUFFER current)."
-  (let* ((session (plist-get args :session))
+  (let* ((session-id (plist-get args :session-id))
+        (session (or (plist-get args :session)
+                     (when session-id
+                       (with-current-buffer (ellama-get-session-buffer 
session-id)
+                         ellama--current-session))))
         (provider (if session
                       (ellama-session-provider session)
                     (or (plist-get args :provider) ellama-provider)))
@@ -1372,6 +1396,8 @@ prompt.  FUCTION will be called with two arguments 
INITIAL-PROMPT and ACC.
 
 :session SESSION - use SESSION in current step.
 
+:session-id ID -- ID is a ellama session unique identifier.
+
 :chat BOOL - if BOOL use chat buffer, otherwise use temp buffer.  Make sense 
for
 last step only.
 
@@ -1383,7 +1409,11 @@ last step only.
         (prompt (if transform
                     (apply transform (list initial-prompt acc))
                   initial-prompt))
-        (session (plist-get hd :session))
+        (session-id (plist-get hd :session-id))
+        (session (or (plist-get hd :session)
+                     (when session-id
+                       (with-current-buffer (ellama-get-session-buffer 
session-id)
+                         ellama--current-session))))
         (chat (plist-get hd :chat))
         (show (or (plist-get hd :show) ellama-always-show-chain-steps))
         (buf (if (or (and (not chat)) (not session))
@@ -1549,6 +1579,10 @@ ARGS contains keys for fine control.
 
 :provider PROVIDER -- PROVIDER is an llm provider for generation.
 
+:session SESSION -- SESSION is a ellama conversation session.
+
+:session-id ID -- ID is a ellama session unique identifier.
+
 :on-done ON-DONE -- ON-DONE a function that's called with
 the full response text when the request completes (with BUFFER current)."
   (interactive "sAsk ellama: ")
@@ -1569,24 +1603,26 @@ the full response text when the request completes (with 
BUFFER current)."
                                providers nil nil #'string=)))
                     (or (plist-get args :provider)
                         ellama-provider)))
-        (session (if (or create-session
-                         current-prefix-arg
-                         (and provider
-                              (or (plist-get args :provider)
-                                  (not (equal provider ellama-provider)))
-                              ellama--current-session-id
-                              (with-current-buffer (ellama-get-session-buffer
-                                                    ellama--current-session-id)
-                                (not (equal
-                                      provider
-                                      (ellama-session-provider 
ellama--current-session)))))
-                         (and (not ellama--current-session)
-                              (not ellama--current-session-id)))
-                     (ellama-new-session provider prompt)
-                   (or ellama--current-session
-                       (with-current-buffer (ellama-get-session-buffer
-                                             ellama--current-session-id)
-                         ellama--current-session))))
+        (session (or (plist-get args :session)
+                     (if (or create-session
+                             current-prefix-arg
+                             (and provider
+                                  (or (plist-get args :provider)
+                                      (not (equal provider ellama-provider)))
+                                  ellama--current-session-id
+                                  (with-current-buffer 
(ellama-get-session-buffer
+                                                        
ellama--current-session-id)
+                                    (not (equal
+                                          provider
+                                          (ellama-session-provider 
ellama--current-session)))))
+                             (and (not ellama--current-session)
+                                  (not ellama--current-session-id)))
+                         (ellama-new-session provider prompt)
+                       (or ellama--current-session
+                           (with-current-buffer (ellama-get-session-buffer
+                                                 (or (plist-get args 
:session-id)
+                                                     
ellama--current-session-id))
+                             ellama--current-session)))))
         (buffer (ellama-get-session-buffer
                  (ellama-session-id session)))
         (file-name (ellama-session-file session))