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

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

[elpa] externals/ellama 0e5ec6640d 2/3: Merge pull request #147 from s-k


From: ELPA Syncer
Subject: [elpa] externals/ellama 0e5ec6640d 2/3: Merge pull request #147 from s-kostyaev/fix-llm-providers-types
Date: Wed, 17 Jul 2024 15:58:01 -0400 (EDT)

branch: externals/ellama
commit 0e5ec6640df09be8f4345c784dc19ccd2d95fd28
Merge: f5e12cbf06 c6c302225d
Author: Sergey Kostyaev <s-kostyaev@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #147 from s-kostyaev/fix-llm-providers-types
    
    Fix llm provider custom variables types
---
 ellama.el | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/ellama.el b/ellama.el
index 11b0e51ce2..7716cbe3b9 100644
--- a/ellama.el
+++ b/ellama.el
@@ -38,6 +38,7 @@
 (require 'eieio)
 (require 'json)
 (require 'llm)
+(require 'llm-provider-utils)
 (require 'spinner)
 (require 'info)
 (require 'shr)
@@ -78,7 +79,7 @@
      :chat-model "zephyr" :embedding-model "zephyr"))
   "Backend LLM provider."
   :group 'ellama
-  :type '(sexp :validate 'cl-struct-p))
+  :type '(sexp :validate 'llm-standard-provider-p))
 
 (defcustom ellama-chat-translation-enabled nil
   "Enable chat translations."
@@ -88,12 +89,13 @@
 (defcustom ellama-translation-provider nil
   "LLM provider for chat translation."
   :group 'ellama
-  :type '(sexp :validate 'cl-struct-p))
+  :type '(sexp :validate 'llm-standard-provider-p))
 
 (defcustom ellama-providers nil
   "LLM provider list for fast switching."
   :group 'ellama
-  :type '(alist :key-type string))
+  :type '(alist :key-type string
+               :value-type '(sexp :validate 'llm-standard-provider-p)))
 
 (defcustom ellama-spinner-type 'progress-bar
   "Spinner type for ellama."
@@ -506,7 +508,7 @@ This filter contains only subset of markdown syntax to be 
good enough."
 (defcustom ellama-naming-provider nil
   "LLM provider for generating names."
   :group 'ellama
-  :type '(sexp :validate 'cl-struct-p))
+  :type '(sexp :validate 'llm-standard-provider-p))
 
 (defcustom ellama-always-show-chain-steps nil
   "Always show ellama chain buffers."



reply via email to

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