home

commit db7a366c28e31131cee44300275ed63f1b02f746
parent d3e5b42a09a2eeef61fb264d54b0d7d5b7c3b540
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Mon, 22 Aug 2022 16:28:37 +0200

tools/emacs: fix project-current/project-root

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
M
tools/emacs/config/config-appearance.el
 | 
2
+-
M
tools/emacs/config/config-projects.el
 | 
2
+-

2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/tools/emacs/config/config-appearance.el b/tools/emacs/config/config-appearance.el
@@ -121,7 +121,7 @@ Ignores `ARGS'."
      ((boundp 'projectile-project-name) (if (string-equal (projectile-project-name) "-")
                                             (tab-bar-tab-name-current-with-count)
                                           (projectile-project-name)))
-     ((project-current) (let ((project-path (cdr (project-current))))
+     ((project-current) (let ((project-path (vde-project--project-current)))
                           (cond ((string-prefix-p "~/src" project-path)
                                  (directory-file-name (file-relative-name project-path "~/src")))
                                 ((string-prefix-p "~/desktop" project-path)
diff --git a/tools/emacs/config/config-projects.el b/tools/emacs/config/config-projects.el
@@ -51,7 +51,7 @@
 If a buffer already exists for running a vterm shell in the project's root,
 switch to it. Otherwise, create a new vterm shell."
     (interactive)
-    (let* ((default-directory (project-root (project-current t)))
+    (let* ((default-directory (vde-project--project-current))
            (default-project-vterm-name (project-prefixed-buffer-name "vterm"))
            (vterm-buffer (get-buffer default-project-vterm-name)))
       (if (and vterm-buffer (not current-prefix-arg))