branch: elpa/aidermacs
commit cbb9bada03681d7ab27ce3bce1c9be9e9469da99
Author: Mingde (Matthew) Zeng <matthew...@posteo.net>
Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Add aidermacs-common-prompts and history completion
Inspired from tninja/aider.el#111
Signed-off-by: Mingde (Matthew) Zeng <matthew...@posteo.net>
---
README.md | 13 +++++++++++++
aidermacs.el | 30 ++++++++++++++++++++++++++----
2 files changed, 39 insertions(+), 4 deletions(-)
diff --git a/README.md b/README.md
index 37bf16b4c5..c8c8645a49 100644
--- a/README.md
+++ b/README.md
@@ -248,6 +248,19 @@ Example usage:
M-x aidermacs-transient-menu
```
+### Prompt Selection and History
+
+Aidermacs makes it easy to reuse prompts through:
+
+1. **Prompt History** - Your previously used prompts are saved and can be
quickly selected
+2. **Common Prompts** - A curated list of frequently used prompts for common
tasks defined in `aidermacs-common-prompts`:
+
+When entering a prompt, you can:
+- Select from your history or common prompts using completion
+- Still type custom prompts when needed
+
+The prompt history and common prompts are available across all sessions.
+
### Diff and Change Review
Control whether to show diffs for AI-generated changes with
`aidermacs-show-diff-after-change`:
diff --git a/aidermacs.el b/aidermacs.el
index 9cac2ac379..cd42f9b91f 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -91,6 +91,19 @@ When nil, require explicit confirmation before applying
changes."
(defvar aidermacs--read-string-history nil
"History list for aidermacs read string inputs.")
+(defcustom aidermacs-common-prompts
+ '("What does this code do? Explain the logic step by step"
+ "Explain the overall architecture of this codebase"
+ "Simplify this code while preserving functionality"
+ "Extract this logic into separate helper functions"
+ "Optimize this code for better performance"
+ "Are there any edge cases not handled in this code?"
+ "Refactor to reduce complexity and improve readability"
+ "How could we make this code more maintainable?")
+ "List of common prompts to use with aidermacs.
+These will be available for selection when using aidermacs commands."
+ :type '(repeat string))
+
(defvar aidermacs--cached-version nil
"Cached aider version to avoid repeated version checks.")
@@ -552,10 +565,19 @@ Use highlighted region as context unless IGNORE-CONTEXT
is set to non-nil."
(buffer-substring-no-properties (region-beginning)
(region-end))))
(context (when region-text
(format " in %s regarding this section:\n```\n%s\n```\n"
(buffer-name) region-text)))
- (user-command (read-string (concat command " " prompt-prefix context
- (when guide (format " (%s)"
guide)) ": ")
- nil
- 'aidermacs--read-string-history)))
+ ;; Create completion table from common prompts and history
+ (completion-candidates
+ (delete-dups (append aidermacs-common-prompts
+ aidermacs--read-string-history)))
+ ;; Read user input with completion
+ (user-command (completing-read
+ (concat command " " prompt-prefix context
+ (when guide (format " (%s)" guide)) ": ")
+ completion-candidates nil nil nil
+ 'aidermacs--read-string-history)))
+ ;; Add to history if not already there, removing any duplicates
+ (setq aidermacs--read-string-history
+ (delete-dups (cons user-command aidermacs--read-string-history)))
(concat command (and (not (string-empty-p user-command))
(concat " " prompt-prefix context ": "
user-command)))))
