Commit 39e2faaf5092

Vincent Demeester <vincent@sbr.pm>
2024-07-09 18:18:10
tools/emacs: add a project-root-or-default-directory function
Signed-off-by: Vincent Demeester <vincent@sbr.pm>
main
1 parent ac11fc4
Changed files (1)
tools
emacs
lisp
project-func.el
tools/emacs/lisp/project-func.el
@@ -10,5 +10,12 @@
       (project-root (project-current))
     (cdr (project-current))))
 
+(defun vde-project--project-root-or-default-directory ()
+  "Return path to the project root *or* the default-directory."
+  (cond
+   ((and (featurep 'project) (project-current))
+    (project-root (project-current)))
+   (t default-directory)))
+
 (provide 'project-func)
 ;;; project-func.el ends here