branch: elpa/aidermacs commit 99f91da7ff696fcc523f58d7991bb93128fb264a Author: Mingde (Matthew) Zeng <matthew...@posteo.net> Commit: Mingde (Matthew) Zeng <matthew...@posteo.net>
Replace project-root dep with vc-git Signed-off-by: Mingde (Matthew) Zeng <matthew...@posteo.net> --- 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 <matthew...@posteo.net> ;; 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))