branch: elpa/aidermacs commit c5c867dcee2d61a131d3f24a4a189f3214160395 Author: Kang Tu <kang...@apple.com> Commit: Kang Tu <kang...@apple.com>
update menu --- aider.el | 26 +++++++++++++++----------- transient_menu.png | Bin 88948 -> 121113 bytes 2 files changed, 15 insertions(+), 11 deletions(-) diff --git a/aider.el b/aider.el index 25b3037662..ce50fb6292 100644 --- a/aider.el +++ b/aider.el @@ -49,11 +49,15 @@ This function can be customized or redefined by the user." ["Aider: AI pair programming" ["Aider process" ("a" "Run Aider" aider-run-aider) - ("f" "Add Current File" aider-add-current-file) ("z" "Switch to Aider Buffer" aider-switch-to-buffer) ("l" "Clear Aider" aider-clear) ;; Menu item for clear command ("s" "Reset Aider" aider-reset) ;; Menu item for reset command ] + ["Add file to aider" + ("f" "Add Current File" aider-add-current-file) + ("F" "Find Files in the Git Repo" aider-repo-find-name-dired) + ("b" "Batch Add Dired Marked Files" aider-batch-add-dired-marked-files) + ] ["Code change" ("c" "Code Change" aider-code-change) ("r" "Region Code Refactor" aider-region-refactor) @@ -246,16 +250,6 @@ The command will be formatted as \"/architect \" followed by the user command an (let ((line (thing-at-point 'line t))) (aider--send-command (concat "/ask " (string-trim line))))) -;; New function to run `find-name-dired` from the Git repository root directory -(defun aider-repo-find-name-dired (pattern) - "Run `find-name-dired` from the Git repository root directory with the given PATTERN." - (interactive "sFind name (pattern): ") - (let* ((git-repo-path (shell-command-to-string "git rev-parse --show-toplevel")) - (repo-path (string-trim git-repo-path))) - (if (string-match-p "fatal" repo-path) - (message "Not in a git repository") - (find-name-dired repo-path pattern)))) - ;;; functions for dired related ;; New function to add multiple Dired marked files to Aider buffer @@ -268,6 +262,16 @@ The command will be formatted as \"/architect \" followed by the user command an (aider--send-command command)) (message "No files marked in Dired.")))) +;; New function to run `find-name-dired` from the Git repository root directory +(defun aider-repo-find-name-dired (pattern) + "Run `find-name-dired` from the Git repository root directory with the given PATTERN." + (interactive "sFind name (pattern): ") + (let* ((git-repo-path (shell-command-to-string "git rev-parse --show-toplevel")) + (repo-path (string-trim git-repo-path))) + (if (string-match-p "fatal" repo-path) + (message "Not in a git repository") + (find-name-dired repo-path pattern)))) + ;;; functions for .aider file ;; New function to send "<line under cursor>" to the Aider buffer diff --git a/transient_menu.png b/transient_menu.png index 4bd0a6dae8..22610cf5d0 100644 Binary files a/transient_menu.png and b/transient_menu.png differ