[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/gptel 8ec233d79c 174/273: gptel: Name gptel buffer accordi
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/gptel 8ec233d79c 174/273: gptel: Name gptel buffer according to backend |
Date: |
Wed, 1 May 2024 10:02:20 -0400 (EDT) |
branch: elpa/gptel
commit 8ec233d79c8578d34014ad8500e61b9143d855f7
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
gptel: Name gptel buffer according to backend
* gptel.el (gptel-default-session, gptel): Name the gptel buffer
according to the default backend. Delete the variable
`gptel-default-session`. Fix #174.
* gptel-openai.el (gptel-make-openai): Don't specify a key by
default. Fix #170.
---
gptel-openai.el | 3 +--
gptel-transient.el | 4 +++-
gptel.el | 37 ++++++++++++++++++++-----------------
3 files changed, 24 insertions(+), 20 deletions(-)
diff --git a/gptel-openai.el b/gptel-openai.el
index b4ccb8d6f3..f90854bf64 100644
--- a/gptel-openai.el
+++ b/gptel-openai.el
@@ -113,8 +113,7 @@
;;;###autoload
(cl-defun gptel-make-openai
- (name &key header models stream
- (key 'gptel-api-key)
+ (name &key header models stream key
(host "api.openai.com")
(protocol "https")
(endpoint "/v1/chat/completions"))
diff --git a/gptel-transient.el b/gptel-transient.el
index 9b2b5ecf14..82889430ce 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -132,7 +132,9 @@ which see."
:reader
(lambda (prompt _ history)
(read-string
- prompt (generate-new-buffer-name "*ChatGPT*") history)))
+ prompt (generate-new-buffer-name
+ (concat "*" (gptel-backend-name gptel-backend) "*"))
+ history)))
("e" "Existing session" "e"
:class transient-option
:prompt "Existing session: "
diff --git a/gptel.el b/gptel.el
index 9d4a6dd0ec..8d9bae78c6 100644
--- a/gptel.el
+++ b/gptel.el
@@ -236,7 +236,6 @@ to the LLM, and after a text insertion."
:group 'gptel
:type 'hook)
-(defvar gptel-default-session "*ChatGPT*")
(defcustom gptel-default-mode (if (fboundp 'markdown-mode)
'markdown-mode
'text-mode)
@@ -1104,22 +1103,26 @@ If region is active, use it as the INITIAL prompt.
Returns the
buffer created or switched to.
INTERACTIVEP is t when gptel is called interactively."
- (interactive (list (if current-prefix-arg
- (read-string "Session name: "
(generate-new-buffer-name gptel-default-session))
- gptel-default-session)
- (let ((backend (default-value 'gptel-backend)))
- (condition-case nil
- (gptel--get-api-key
- (gptel-backend-key backend))
- ((error user-error)
- (setq gptel-api-key
- (read-passwd
- (format "%s API key: "
- (gptel-backend-name backend)))))))
- (and (use-region-p)
- (buffer-substring (region-beginning)
- (region-end)))
- t))
+ (interactive
+ (let* ((backend (default-value 'gptel-backend))
+ (backend-name
+ (format "*%s*" (gptel-backend-name backend))))
+ (list (if current-prefix-arg
+ (read-string "Session name: "
+ (generate-new-buffer-name
+ backend-name))
+ backend-name)
+ (condition-case nil
+ (gptel--get-api-key
+ (gptel-backend-key backend))
+ ((error user-error)
+ (setq gptel-api-key
+ (read-passwd
+ (format "%s API key: " backend-name)))))
+ (and (use-region-p)
+ (buffer-substring (region-beginning)
+ (region-end)))
+ t)))
(with-current-buffer (get-buffer-create name)
(cond ;Set major mode
((eq major-mode gptel-default-mode))
- [nongnu] elpa/gptel 1f03655e2d 056/273: Add Doom Emacs installation instructions (#28), (continued)
- [nongnu] elpa/gptel 1f03655e2d 056/273: Add Doom Emacs installation instructions (#28), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 936c27e28b 058/273: gptel: Fix header-line-format update, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel acf12ee6e3 073/273: gptel: return the gptel buffer, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 706ad703db 090/273: gptel-transient: Allow arbitrary system prompts/directives, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel a5be53d5e3 084/273: gptel: Update version, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 0f161a466b 109/273: gptel: saving and restoring state for Markdown/Text, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 5c3b26aeec 138/273: gptel-curl: Tweak Curl arguments for windows, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 15404f639d 139/273: README: Update instructions for Azure (#147), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel ddd69cbbcf 147/273: gptel-curl: Replace Curl timeout with speed-time, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 60cb406567 162/273: gptel: Improve documentation of gptel-send, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 8ec233d79c 174/273: gptel: Name gptel buffer according to backend,
ELPA Syncer <=
- [nongnu] elpa/gptel 235134a176 186/273: Bit of feedback when copying reponse to kill ring, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 50fb34ab7c 187/273: Fix compilation warnings, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 10f57605ce 195/273: gptel: Improve Org stream conversion, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 6a385ffc2f 199/273: README: Add FAQ entry for OpenAI quota error (#93), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 199595b0c8 216/273: gptel: Handle status HTTP 100, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel b634f05fe5 218/273: gptel: Tweak markdown to org conversion, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 2487ada4d6 217/273: gptel-anthropic: Handle missing response chunks (trial), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel e18ceb1f84 226/273: gptel: Improve logging, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel b2985392f4 270/273: gptel: Linting for NonGNU ELPA, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel f0b18c5f8b 113/273: gptel-transient: Exit gptel-system-prompt after selection (#96), ELPA Syncer, 2024/05/01