[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/gptel 73a0cc25ba 237/273: gptel-transient: Simplify model
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/gptel 73a0cc25ba 237/273: gptel-transient: Simplify model selection |
Date: |
Wed, 1 May 2024 10:02:40 -0400 (EDT) |
branch: elpa/gptel
commit 73a0cc25ba357988fe822f7c6a68d0e9d8deddb2
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
gptel-transient: Simplify model selection
* gptel-transient.el (gptel--infix-provider, gptel--infix-model):
Simplify model and backend selection into a single step. Remove
unused and obsolete option `gptel--infix-provider`.
---
gptel-transient.el | 34 +++++++---------------------------
1 file changed, 7 insertions(+), 27 deletions(-)
diff --git a/gptel-transient.el b/gptel-transient.el
index a1b18c6304..3cf86417e3 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -127,7 +127,6 @@ which see."
(gptel--infix-add-directive :if (lambda () gptel-expert-commands))]]
[["Model Parameters"
(gptel--infix-provider)
- ;; (gptel--infix-model)
(gptel--infix-max-tokens)
(gptel--infix-num-messages-to-send)
(gptel--infix-temperature :if (lambda () gptel-expert-commands))]
@@ -384,32 +383,13 @@ responses."
:model 'gptel-model
:key "-m"
:reader (lambda (prompt &rest _)
- (let* ((backend-name
- (if (<= (length gptel--known-backends) 1)
- (caar gptel--known-backends)
- (completing-read
- prompt
- (mapcar #'car gptel--known-backends))))
- (backend (alist-get backend-name gptel--known-backends
- nil nil #'equal))
- (backend-models (gptel-backend-models backend))
- (model-name (if (= (length backend-models) 1)
- (car backend-models)
- (completing-read
- "Model: " backend-models))))
- (list backend model-name))))
-
-(transient-define-infix gptel--infix-model ()
- "AI Model for Chat."
- :description "GPT Model: "
- :class 'transient-lisp-variable
- :variable 'gptel-model
- :key "-m"
- :choices '("gpt-3.5-turbo" "gpt-3.5-turbo-16k" "gpt-4" "gpt-4-1106-preview")
- :reader (lambda (prompt &rest _)
- (completing-read
- prompt
- '("gpt-3.5-turbo" "gpt-3.5-turbo-16k" "gpt-4"
"gpt-4-1106-preview"))))
+ (cl-loop
+ for (name . backend) in gptel--known-backends
+ nconc (cl-loop for model in (gptel-backend-models backend)
+ collect (list (concat name ":" model) backend
model))
+ into models-alist finally return
+ (cdr (assoc (completing-read "Model: " models-alist nil t)
+ models-alist)))))
(transient-define-infix gptel--infix-temperature ()
"Temperature of request."
- [nongnu] elpa/gptel a61fda4661 197/273: gptel-transient: better multi-line directive editing, (continued)
- [nongnu] elpa/gptel a61fda4661 197/273: gptel-transient: better multi-line directive editing, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 226f8f0d90 208/273: gptel: Add customizable display-action (#216), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 8ba07d042c 210/273: gptel: Bump version, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel a32f4effe5 215/273: gptel-curl: Handle empty responses correctly, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel e5f54d1d09 229/273: gptel-anthropic: Modify order of request items, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel f529457bbe 232/273: gptel: Use visual-line-mode when ediff-ing, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 9eea4be5ed 245/273: gptel-transient: Fix gptel-menu definition bug (#265), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 6d3e4a99f5 236/273: gptel-transient: Rename additional-directive functions, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 5d069cfca8 243/273: gptel-anthropic: Simplify stream parser, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel b31c9be5e0 238/273: gptel-ollama: Adjust Ollama stream parser for libjansson, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 73a0cc25ba 237/273: gptel-transient: Simplify model selection,
ELPA Syncer <=
- [nongnu] elpa/gptel 12e00cbd09 247/273: gptel-transient: No pre-fill when reading from minibuffer, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 5dcbf40066 241/273: gptel: Make model parameters global, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 567af4d2ee 258/273: gptel-org: Read config from Org properties (#141), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 66a63e6c82 266/273: gptel-ollama: switch to chat API, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel a2b16c43b1 268/273: gptel-org: Include org-element-lineage-map with gptel (#294), ELPA Syncer, 2024/05/01