Fix my/project-run

2023-10-20 02:29:29 -07:00 · 2023-10-20 02:29:29 -07:00 · cb992945f3
commit cb992945f3
parent 6379097260
1 changed files with 7 additions and 3 deletions
--- a/init.el
+++ b/init.el
@ -501,9 +501,13 @@ visual states."
    "Commands previously run with `my/project-run'")
  (defun my/project-get-root-dir ()
    "Get the root dir for the current project"
-    (let ((proj (project-current nil)))
-      (or my/project-run-dir
-          (if proj (project-root proj) default-directory))))
+    (let* ((proj (project-current nil))
+           (default-directory (if proj
+                                  (project-root proj)
+                                default-directory)))
+      (if my/project-run-dir
+          (expand-file-name my/project-run-dir)
+        default-directory)))
  (defun my/project-run (command comint)
    "Like `project-compile', but for running a project.
 COMMAND and COMINT are like `compile'."