[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/gptel 161c77ad7f 235/273: gptel-transient: Adjust several
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/gptel 161c77ad7f 235/273: gptel-transient: Adjust several menu options |
Date: |
Wed, 1 May 2024 10:02:39 -0400 (EDT) |
branch: elpa/gptel
commit 161c77ad7fffea6592ef5ee6ee9a1d667ddbfa63
Author: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
Commit: Karthik Chikmagalur <karthikchikmagalur@gmail.com>
gptel-transient: Adjust several menu options
* gptel-transient.el (gptel-menu, gptel-system-prompt--setup,
gptel-system-prompt, gptel--infix-temperature,
transient-format-value, gptel--additional-directive,
gptel--suffix-system-message): Tweak to the "additional directive"
overlay display. `gptel-menu` changes based on feedback
from #249 (thanks to @jwr):
- Keys to set the system message are remapped from "h" to
"s" (mnemonic)
- `gptel--infix-temperature` is now hidden by default and requires
enabling `gptel-expert-commands`
- Keys to prompt from minibuf and respond in echo area are changed
to "m" and "e" respectively.
---
gptel-transient.el | 34 ++++++++++++++++++----------------
1 file changed, 18 insertions(+), 16 deletions(-)
diff --git a/gptel-transient.el b/gptel-transient.el
index c9f0d36c04..5ee26ee22f 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -123,21 +123,21 @@ which see."
gptel--system-message (max (- (window-width) 6) 14) nil nil t)))
[""
"Instructions"
- ("h" "Set system message" gptel-system-prompt :transient t)
+ ("s" "Set system message" gptel-system-prompt :transient t)
(gptel--additional-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)]
+ (gptel--infix-temperature :if (lambda () gptel-expert-commands))]
["Prompt from"
- ("p" "Minibuffer instead" "p")
+ ("m" "Minibuffer instead" "m")
("y" "Kill-ring instead" "y")
""
- ("i" "Replace/Delete prompt" "i")]
+ ("i" "Respond in place" "i")]
["Response to"
- ("m" "Minibuffer instead" "m")
+ ("e" "Echo area instead" "e")
("g" "gptel session" "g"
:class transient-option
:prompt "Existing or new gptel session: "
@@ -214,7 +214,7 @@ which see."
'gptel-system-prompt
(cl-loop for (type . prompt) in gptel-directives
;; Avoid clashes with the custom directive key
- with unused-keys = (delete ?h (number-sequence ?a ?z))
+ with unused-keys = (delete ?s (number-sequence ?a ?z))
with width = (window-width)
for name = (symbol-name type)
for key = (seq-find (lambda (k) (member k unused-keys)) name (seq-first
unused-keys))
@@ -268,9 +268,11 @@ More extensive system messages can be useful for specific
tasks.
Customize `gptel-directives' for task-specific prompts."
[:description
- (lambda () (format "Current directive: %s"
- (truncate-string-to-width
- gptel--system-message 100 nil nil t)))
+ (lambda () (format "System Message: %s"
+ (string-replace
+ "\n" "⮐"
+ (truncate-string-to-width
+ gptel--system-message 100 nil nil t))))
:class transient-column
:setup-children gptel-system-prompt--setup
:pad-keys t])
@@ -411,11 +413,11 @@ responses."
(transient-define-infix gptel--infix-temperature ()
"Temperature of request."
- :description "Randomness (0 - 2.0)"
+ :description "Temperature (0 - 2.0)"
:class 'transient-lisp-variable
:variable 'gptel-temperature
:key "-t"
- :prompt "Set temperature (0.0-2.0, leave empty for default): "
+ :prompt "Temperature controls the response randomness (0.0-2.0, leave empty
for default): "
:reader 'gptel--transient-read-variable)
;; ** Infix for the refactor/rewrite system message
@@ -469,7 +471,7 @@ Also format its value in the Transient menu."
(add-hook 'transient-exit-hook ov-clear-hook)))
;; Updating transient menu display
(if value
- (propertize (concat argument (truncate-string-to-width value 15 nil
nil "..."))
+ (propertize (concat argument (truncate-string-to-width value 25 nil
nil "..."))
'face 'transient-value)
(propertize
(concat "(" (symbol-name (oref obj display-nil)) ")")
@@ -502,7 +504,7 @@ Or in an extended conversation:
:format " %k %d %v"
:key "d"
:argument ":"
- :description "Additional directive"
+ :description "Add directive"
:transient t)
(defun gptel--additional-directive-get (args)
@@ -548,7 +550,7 @@ Or in an extended conversation:
;; Input redirection: grab prompt from elsewhere?
(prompt
(cond
- ((member "p" args)
+ ((member "m" args)
(read-string
(format "Ask %s: " (gptel-backend-name gptel-backend))
(apply #'buffer-substring-no-properties
@@ -564,7 +566,7 @@ Or in an extended conversation:
;; Output redirection: Send response elsewhere?
(cond
- ((member "m" args)
+ ((member "e" args)
(setq stream nil)
(setq callback
(lambda (resp info)
@@ -738,7 +740,7 @@ This uses the prompts in the variable
"Edit LLM directives."
:transient 'transient--do-exit
:description "Set custom directives"
- :key "h"
+ :key "s"
(interactive)
(let ((orig-buf (current-buffer))
(msg-start (make-marker)))
- [nongnu] elpa/gptel a202911009 148/273: gptel: Add post-stream hook, scroll commands, (continued)
- [nongnu] elpa/gptel a202911009 148/273: gptel: Add post-stream hook, scroll commands, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel c3ca4fd0a0 158/273: gptel-transient: Set suffix-state explicitly for directives, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 0fce1d86d1 171/273: README: fix typo (#168), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 92a8c0bdac 183/273: gptel: letrec expansion error in Emacs 27.2, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel b34e217bbf 182/273: README: Mention gptel-request, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel d2f56c62a0 193/273: gptel-transient: Allow redirection to any buffer, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel bf994c0765 204/273: gptel: Add response regeneration, history and ediff, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 87c190076e 212/273: README: Clarify example configuration code, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 12340eda46 228/273: gptel-transient: Truncate system prompt when messaging, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel f58ad9435c 225/273: gptel: Use libjansson support if available, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 161c77ad7f 235/273: gptel-transient: Adjust several menu options,
ELPA Syncer <=
- [nongnu] elpa/gptel 2b938114cf 264/273: gptel: Add GPT 4 Turbo (#286), ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 44feb1637f 267/273: gptel-transient: Update header-line in gptel--suffix-send, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel f98293f004 016/273: gptel: Check header-line-format before updating, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 3f7c81012b 015/273: gptel: Bump version and prepare for transient menus, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 9da22155de 025/273: gptel-transient: Fix autoloads for gptel-send-menu, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel a3109a4b68 022/273: gptel: Insert response below point, not at point-max, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel a673f54a3e 024/273: gptel, gptel-curl: Handle missing API key, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 1e31f550de 165/273: gptel: Declare compat as explicit dependency, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 48047c0600 167/273: gptel-transient: Improve system-message edit buffer, ELPA Syncer, 2024/05/01
- [nongnu] elpa/gptel 5159a773a0 011/273: gptel: Use text-property based delimiting, ELPA Syncer, 2024/05/01