fix(emacs): project relative path: return nil when not in project
build / build (push) Successful in 2m52s
build / build (push) Successful in 2m52s
This commit is contained in:
1 parent
ce31e48d42
commit
6ad4bbbe8c
1 file changed
+2
-1
@@ -202,7 +202,8 @@ form."
|
|||||||
s))))
|
s))))
|
||||||
|
|
||||||
(defun syd-project-relative-file-name (file-name)
|
(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
|
(defvar syd-insert-file-name-alist
|
||||||
`((,#'syd-project-relative-file-name . "Project-relative")
|
`((,#'syd-project-relative-file-name . "Project-relative")
|
||||||
|
|||||||
Reference in new issue
Block a user