branch: elpa/aidermacs
commit a4230aa18b3a64df3c0187012c02c9e3126b7240
Author: Mingde (Matthew) Zeng <matthew...@posteo.net>
Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Fix more linting
Signed-off-by: Mingde (Matthew) Zeng <matthew...@posteo.net>
---
aidermacs-backend-vterm.el | 16 ++++++++++------
aidermacs.el | 6 +++---
2 files changed, 13 insertions(+), 9 deletions(-)
diff --git a/aidermacs-backend-vterm.el b/aidermacs-backend-vterm.el
index 5f059499f6..620ba3d875 100644
--- a/aidermacs-backend-vterm.el
+++ b/aidermacs-backend-vterm.el
@@ -47,9 +47,12 @@
(declare-function aidermacs--is-aidermacs-buffer-p "aidermacs")
(declare-function aidermacs-get-buffer-name "aidermacs")
+(declare-function aidermacs--parse-output-for-files "aidermacs-backends"
(output))
+
(declare-function evil-define-minor-mode-key "evil-core")
(defvar aidermacs-prompt-regexp)
+(defvar aidermacs--last-command)
(defgroup aidermacs-backend-vterm nil
"VTerm backend for Aidermacs."
@@ -153,8 +156,8 @@ Use BUFFER if provided, otherwise retrieve it from
`aidermacs-get-buffer-name'."
(setq aidermacs--vterm-active-timer nil)))))
(defcustom aidermacs-vterm-use-theme-colors t
- "Whether to use emacs theme colors for aider. Has effect only
-when using the vterm backend."
+ "Whether to use Emacs theme colors for aider.
+Has effect only when using the vterm backend."
:type 'boolean)
(defcustom aidermacs-vterm-theme-colors-plist
@@ -162,19 +165,20 @@ when using the vterm backend."
"--assistant-output-color" default
"--tool-error-color" error
"--tool-warning-color" warning)
- "Emacs faces to use for aider colour flags. Keys are the commandline
-arguments to send to aider. Values are either faces or strings (colours like
\"#00cc00\")"
+ "Emacs faces to use for aider colour flags.
+Keys are the commandline arguments to send to aider.
+Values are either faces or strings (colours like \"#00cc00\")."
:type 'plist)
(defun aidermacs--vterm-colorname-to-rgb (name)
- "Convert emacs color names to RGB values."
+ "Convert Emacs color NAME to RGB values."
(if-let ((colors (color-values name)))
(concat "#"
(mapconcat (lambda (c) (format "%02X" (/ c 256))) colors))
(face-attribute 'default :foreground)))
(defun aidermacs--vterm-theme-args ()
- "Create arguments for aider to try and match the current emacs theme.
+ "Create arguments for aider to try and match the current Emacs theme.
See `aidermacs-theme-colors-plist'."
(if aidermacs-vterm-use-theme-colors
(mapcar (lambda (s)
diff --git a/aidermacs.el b/aidermacs.el
index 0a81eff179..9c16010e79 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -519,7 +519,7 @@ If the current buffer is already the aidermacs buffer, do
nothing."
(buffer
(pop-to-buffer buffer))
(t
- (error "No aidermacs buffer exists.")))))
+ (error "No aidermacs buffer exists")))))
(defun aidermacs-clear-chat-history ()
"Send the command \"/clear\" to the aidermacs buffer."
@@ -944,7 +944,7 @@ Otherwise:
- Otherwise generate unit tests for the entire file"
(interactive)
(if (not buffer-file-name)
- (user-error "Current buffer is not visiting a file.")
+ (user-error "Current buffer is not visiting a file")
(let ((function-name (which-function)))
(cond
;; Test file case
@@ -1007,7 +1007,7 @@ snippets, or other content to the session."
(message "Created and added scratchpad to session: %s" filename)))
(defun aidermacs-add-file-to-session (&optional file)
- "Interactively add a file to an existing aidermacs session using /read.
+ "Interactively add a FILE to an existing aidermacs session using /read.
This allows you to add the file's content to a specific session."
(interactive
(let* ((initial (when buffer-file-name
