branch: elpa/aidermacs
commit cf42ae669115d7b66a4b9563035ce4a30694f8d8
Author: Kang Tu <[email protected]>
Commit: Kang Tu <[email protected]>
add last commit function
---
aider.el | 24 ++++++++++++------------
1 file changed, 12 insertions(+), 12 deletions(-)
diff --git a/aider.el b/aider.el
index d17862ea3e..00a8f2be9b 100644
--- a/aider.el
+++ b/aider.el
@@ -41,16 +41,6 @@ This function can be customized or redefined by the user."
(defalias 'aider-read-string 'aider-plain-read-string)
-;; New function to show the last commit using magit
-(defun aider-magit-show-last-commit ()
- "Show the last commit message using Magit.
-If Magit is not installed, report that it is required."
- (interactive)
- (if (require 'magit nil 'noerror)
- (let ((last-commit (magit-git-string "log" "-1" "--pretty=%B")))
- (message "Last commit message: %s" last-commit))
- (message "Magit is required to show the last commit.")))
-
;; Transient menu for Aider commands
;; The instruction in the autoload comment is needed, see
;; https://github.com/magit/transient/issues/280.
@@ -75,6 +65,7 @@ If Magit is not installed, report that it is required."
("c" "Code Change" aider-code-change)
("t" "Architect Discuss and Change" aider-architect-discussion)
("r" "Refactor Code in Selected Region" aider-region-refactor)
+ ("m" "Show last commit with magit" aider-magit-show-last-commit)
("u" "Undo Last Change" aider-undo-last-change)
]
["Discussion"
@@ -143,7 +134,7 @@ If not in a git repository, an error is raised."
(aider--send-command "/reset"))
;; Function to send large text (> 1024 chars) to the Aider buffer
-(defun comint-send-large-string (buffer text)
+(defun aider--comint-send-large-string (buffer text)
"Send large TEXT to the comint buffer in chunks of 1000 characters."
(let ((chunk-size 1000)
(pos 0)
@@ -170,7 +161,7 @@ COMMAND should be a string representing the command to
send."
(unless (string-suffix-p "\n" command)
(setq command (concat command "\n")))
;; Send the command to the aider process
- (comint-send-large-string aider-buffer command)
+ (aider--comint-send-large-string aider-buffer command)
;; Provide feedback to the user
;; (message "Sent command to aider buffer: %s" (string-trim
command))
(when switch-to-buffer
@@ -249,6 +240,15 @@ replacing all newline characters except for the one at the
end."
(let ((command (aider-plain-read-string "Enter exception, can be multiple
lines: ")))
(aider--send-command (concat "/ask Investigate the following exception,
with current added files as context: " command) t)))
+;; New function to show the last commit using magit
+(defun aider-magit-show-last-commit ()
+ "Show the last commit message using Magit.
+If Magit is not installed, report that it is required."
+ (interactive)
+ (if (require 'magit nil 'noerror)
+ (magit-show-commit "HEAD")
+ (message "Magit is required to show the last commit.")))
+
;; Modified function to get command from user and send it based on selected
region
(defun aider-undo-last-change ()
"Undo the last change made by Aider."
