fix(emacs): project relative path: return nil when not in project

2026-06-15 16:07:28 -06:00
parent ce31e48d42
commit 6ad4bbbe8c
1 changed files with 2 additions and 1 deletions
--- a/modules/home/users/msyds/emacs/lisp/syd/prelude.el
+++ b/modules/home/users/msyds/emacs/lisp/syd/prelude.el
@@ -202,7 +202,8 @@ form."
       s))))

 (defun syd-project-relative-file-name (file-name)
-  (file-relative-name file-name (project-root (project-current))))
+  (when-let* ((proj (project-current)))
+    (file-relative-name file-name (project-root proj))))

 (defvar syd-insert-file-name-alist
  `((,#'syd-project-relative-file-name . "Project-relative")