harehelper

commit 053db625e9ddcc6c3b34a151fe83724507bdc7a1
parent bd34fbc9e6164f96a23011e0e2c877a9931e82c6
Author: Lou Woell <lou.woell@posteo.de>
Date:   Mon,  6 Oct 2025 18:36:08 +0200

[haredoc.el] use project-root for default reference search path

Diffstat:
M
haredoc.el
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/haredoc.el b/haredoc.el
@@ -67,7 +67,7 @@ containing this file.")
   "Return root directory of current project or \".\""
   (interactive)
   (if-let ((p (project-current nil)))
-      (project-root p)
+      (expand-file-name (project-root p))
     "."))
 
 (defun haredoc/get-modules ()
@@ -358,7 +358,7 @@ declaration at point."
 
 (cl-defmethod xref-backend-references ((_backend (eql 'haredoc-xref)) identifier)
   (let* ((lines (process-lines haredoc-helperbin "-p" (haredoc/root-dir) "find-references"
-                               identifier default-directory)))
+                               identifier (haredoc/root-dir))))
     (mapcar (lambda (line)
               (let* ((loc (string-split line " " t))
                      (summary (string-join (cdr loc) " "))