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

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

[elpa] externals/ellama 42c0a99215 1/7: Define a customization group for


From: ELPA Syncer
Subject: [elpa] externals/ellama 42c0a99215 1/7: Define a customization group for ellama
Date: Mon, 25 Dec 2023 15:57:46 -0500 (EST)

branch: externals/ellama
commit 42c0a99215b6b0dcc41570413470eb054acca746
Author: Steven Allen <steven@stebalien.com>
Commit: Steven Allen <steven@stebalien.com>

    Define a customization group for ellama
    
    There are enough options now that it makes sense to put them in a group.
---
 ellama.el | 24 ++++++++++++++----------
 1 file changed, 14 insertions(+), 10 deletions(-)

diff --git a/ellama.el b/ellama.el
index de76d1c436..8a9c81838a 100644
--- a/ellama.el
+++ b/ellama.el
@@ -40,31 +40,35 @@
 (require 'spinner)
 (eval-when-compile (require 'rx))
 
+(defgroup ellama nil
+  "Tool for interacting with LLMs."
+  :group 'tools)
+
 (defcustom ellama-buffer "*ellama*"
   "Default ellama buffer."
-  :group 'tools
+  :group 'ellama
   :type 'string)
 
 (defcustom ellama-user-nick "User"
   "User nick in logs."
-  :group 'tools
+  :group 'ellama
   :type 'string)
 
 (defcustom ellama-assistant-nick "Ellama"
   "Assistant nick in logs."
-  :group 'tools
+  :group 'ellama
   :type 'string)
 
 (defcustom ellama-buffer-mode (if (fboundp 'markdown-mode)
                                  'markdown-mode
                                'text-mode)
   "Major mode for ellama logs."
-  :group 'tools
+  :group 'ellama
   :type 'function)
 
 (defcustom ellama-language "English"
   "Language for ellama translation."
-  :group 'tools
+  :group 'ellama
   :type 'string)
 
 (defcustom ellama-provider
@@ -74,17 +78,17 @@
     (make-llm-ollama
      :chat-model "zephyr" :embedding-model "zephyr"))
   "Backend LLM provider."
-  :group 'tools
+  :group 'ellama
   :type '(sexp :validate 'cl-struct-p))
 
 (defcustom ellama-providers nil
   "LLM provider list for fast switching."
-  :group 'tools
+  :group 'ellama
   :type '(alist :key-type string))
 
 (defcustom ellama-spinner-type 'progress-bar
   "Spinner type for ellama."
-  :group 'tools
+  :group 'ellama
   :type `(choice ,@(mapcar
                    (lambda (type)
                      `(const ,(car type)))
@@ -93,12 +97,12 @@
 (defcustom ellama-keymap-prefix "C-c e"
   "Key sequence for Ellama Commands."
   :type 'string
-  :group 'tools)
+  :group 'ellama)
 
 (defcustom ellama-ollama-binary (executable-find "ollama")
   "Path to ollama binary."
   :type 'string
-  :group 'tools)
+  :group 'ellama)
 
 (defcustom ellama-auto-scroll nil
   "If enabled ellama buffer will scroll automatically during generation."



reply via email to

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