[nongnu] elpa/aidermacs a051885a92 051/466: feat: add aider-debug function to replace newlines and send to Aider buffer with menu entry

[ELPA Syncer]

branch: elpa/aidermacs
commit a051885a92f939425452b7cb3536faaa072a76d1
Author: Kang Tu <kang_tu@apple.com>
Commit: Kang Tu (aider) <kang_tu@apple.com>

    feat: add aider-debug function to replace newlines and send to Aider buffer 
with menu entry
---
 aider.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/aider.el b/aider.el
index 45339a4f96..b4d75c6362 100644
--- a/aider.el
+++ b/aider.el
@@ -46,6 +46,7 @@ This function can be customized or redefined by the user."
    ["Discussion"
     ("q" "Ask Question" aider-ask-question)
     ("t" "Architect Discussion" aider-architect-discussion)
+    ("d" "Debug Command" aider-debug) ;; Menu item for debug command
     ]
    ["Other"
     ("g" "General Command" aider-general-command)
@@ -169,6 +170,18 @@ COMMAND should be a string representing the command to 
send."
   (let ((command (aider-read-string "Enter architect command: ")))
     (aider-send-command-with-prefix "/architect " command)))
 
+;; New function to get command from user and send it prefixed with "/debug "
+(defun aider-debug ()
+  "Prompt the user for a command and send it to the corresponding aider comint 
buffer prefixed with \"/debug \",
+replacing all newline characters except for the one at the end."
+  (interactive)
+  (let ((command (read-string "Enter debug command: ")))
+    ;; Replace all newline characters with a space, except for the last one
+    (setq command (replace-regexp-in-string "\n" " " command))
+    (when (string-match-p "\n" command)
+      (setq command (concat (string-trim command) "\n"))) ;; Add a newline at 
the end
+    (aider--send-command (concat "/debug " command))))
+
 ;; 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."