[nongnu] elpa/aidermacs 60dbdcd6ad 120/466: Feat: Added defun aider-magit-show-last-commit function (#13)

[ELPA Syncer]

branch: elpa/aidermacs
commit 60dbdcd6ade5d4c679ca724b18025ee5ef418fd4
Author: Kang Tu <tninja@gmail.com>
Commit: GitHub <noreply@github.com>

    Feat: Added defun aider-magit-show-last-commit function (#13)
    
    * feat: Add option for Architect Discuss and Change in code change menu
    
    * feat: Add function to show last commit message using Magit
    
    * add last commit function
    
    * update menu screenshot
    
    ---------
    
    Co-authored-by: Kang Tu <kang_tu@apple.com>
---
 aider.el           |  17 +++++++++++++----
 transient_menu.png | Bin 58345 -> 58197 bytes
 2 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/aider.el b/aider.el
index 63c550ca68..00a8f2be9b 100644
--- a/aider.el
+++ b/aider.el
@@ -63,12 +63,13 @@ This function can be customized or redefined by the user."
     ]
    ["Code change"
     ("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"
     ("q" "Ask Question" aider-ask-question)
-    ("t" "Architect Discussion" aider-architect-discussion)
     ("e" "Explain Code in Selected Region" aider-region-explain)
     ("d" "Debug Exception" aider-debug-exception)
     ]
@@ -133,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)
@@ -160,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
@@ -239,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."
@@ -363,4 +373,3 @@ The command will be formatted as \"/ask \" followed by the 
text from the selecte
 (provide 'aider)
 
 ;;; aider.el ends here
-
diff --git a/transient_menu.png b/transient_menu.png
index dfd15846b0..eb5c15ad78 100644
Binary files a/transient_menu.png and b/transient_menu.png differ