branch: elpa/aidermacs
commit 99f91da7ff696fcc523f58d7991bb93128fb264a
Author: Mingde (Matthew) Zeng <[email protected]>
Commit: Mingde (Matthew) Zeng <[email protected]>
Replace project-root dep with vc-git
Signed-off-by: Mingde (Matthew) Zeng <[email protected]>
---
README.md | 2 +-
aidermacs-backend-comint.el | 2 +-
aidermacs.el | 8 +++-----
3 files changed, 5 insertions(+), 7 deletions(-)
diff --git a/README.md b/README.md
index 189c3d9525..e0080adcfd 100644
--- a/README.md
+++ b/README.md
@@ -5,7 +5,7 @@
# Aidermacs: AI Pair Programming in Emacs
[](https://melpa.org/#/aidermacs)
[](https://elpa.nongnu.org/nongnu/aidermacs.html)
-[](https://www.gnu.org/savannah-checkouts/gnu/emacs/emacs.html)
+[](https://www.gnu.org/savannah-checkouts/gnu/emacs/emacs.html)
[](https://github.com/MatthewZMD/aidermacs/blob/master/LICENSE)
[](https://github.com/MatthewZMD/aidermacs/graphs/contributors)
[](https://github.com/MatthewZMD/aidermacs/issues)
diff --git a/aidermacs-backend-comint.el b/aidermacs-backend-comint.el
index 3c4a347f30..1797ce53dd 100644
--- a/aidermacs-backend-comint.el
+++ b/aidermacs-backend-comint.el
@@ -24,7 +24,7 @@
;;; Code:
(require 'comint)
-(require 'cl-seq)
+(require 'cl-lib)
(require 'map)
;; Forward declarations
diff --git a/aidermacs.el b/aidermacs.el
index ddb9db5091..d78dfb167b 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -1,7 +1,7 @@
;;; aidermacs.el --- AI pair programming with Aider -*- lexical-binding: t; -*-
;; Author: Mingde (Matthew) Zeng <[email protected]>
;; Version: 1.0
-;; Package-Requires: ((emacs "28.1") (transient "0.3.0") (compat "30.0.2.0"))
+;; Package-Requires: ((emacs "26.1") (transient "0.3.0") (compat "30.0.2.0"))
;; Keywords: ai emacs llm aider ai-pair-programming tools
;; URL: https://github.com/MatthewZMD/aidermacs
;; SPDX-License-Identifier: Apache-2.0
@@ -90,11 +90,9 @@ When nil, require explicit confirmation before applying
changes."
:type 'boolean)
(defun aidermacs-project-root ()
- "Get the project root using project.el, VC, or fallback to file directory.
+ "Get the project root using VC-git, or fallback to file directory.
This function tries multiple methods to determine the project root."
- (or (when-let* ((proj (project-current)))
- (project-root proj))
- (vc-git-root default-directory)
+ (or (vc-git-root default-directory)
(when buffer-file-name
(file-name-directory buffer-file-name))
default-directory))