branch: elpa/aidermacs
commit 3e987b098a01d9a660063c3f7226929a8d2aa6e2
Author: Kang Tu <kang...@apple.com>
Commit: Kang Tu <kang...@apple.com>
reorder function, change short-cut to fit ess key binding
---
aider.el | 20 ++++++++++----------
1 file changed, 10 insertions(+), 10 deletions(-)
diff --git a/aider.el b/aider.el
index 416806cf86..f3016350b1 100644
--- a/aider.el
+++ b/aider.el
@@ -256,6 +256,15 @@ 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)))))
+;;; functions for .aider file
+
+;; New function to send "<line under cursor>" to the Aider buffer
+(defun aider-send-line-under-cursor ()
+ "Send the command \"ask <line under cursor>\" to the Aider buffer."
+ (interactive)
+ (let ((line (thing-at-point 'line t)))
+ (aider--send-command (string-trim line))))
+
;;; New function to send the current paragraph to the Aider buffer
(defun aider-send-paragraph ()
"Send the current paragraph to the Aider buffer."
@@ -269,20 +278,11 @@ The command will be formatted as \"/architect \" followed
by the user command an
(point)))))
(aider--send-command (string-trim paragraph))))
-;;; functions for .aider file
-
-;; New function to send "<line under cursor>" to the Aider buffer
-(defun aider-send-line-under-cursor ()
- "Send the command \"ask <line under cursor>\" to the Aider buffer."
- (interactive)
- (let ((line (thing-at-point 'line t)))
- (aider--send-command (string-trim line))))
-
(defun aider-mode-setup ()
"Setup key bindings for Aider mode."
(local-set-key (kbd "C-c C-n") 'aider-send-line-under-cursor)
(local-set-key (kbd "C-c C-b") 'aider-send-block)
- (local-set-key (kbd "C-c C-p") 'aider-send-paragraph)) ;; Add this line
+ (local-set-key (kbd "C-c C-c") 'aider-send-paragraph))
(add-hook 'aider-mode-hook 'aider-mode-setup)
