about summary refs log tree commit diff stats
path: root/.emacs.d/lisp
diff options
context:
space:
mode:
authorDavid Morgan <djm_uk@protonmail.com>2021-09-07 19:26:40 +0100
committerDavid Morgan <djm_uk@protonmail.com>2021-09-07 19:26:40 +0100
commitfbec4d1af0d236e024b89d5af5925fa97b6f7972 (patch)
treed0ec6a3a6d7d74438a8196033fb01d1c46119442 /.emacs.d/lisp
parent535fb5d69c32a7b6b8b4ead9de7f7db45ff6243f (diff)
downloaddotfiles-fbec4d1af0d236e024b89d5af5925fa97b6f7972.tar.gz
Replace consult function with built-in ones
Diffstat (limited to '.emacs.d/lisp')
-rw-r--r--.emacs.d/lisp/init-project.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/.emacs.d/lisp/init-project.el b/.emacs.d/lisp/init-project.el
index 62065f0..79d291d 100644
--- a/.emacs.d/lisp/init-project.el
+++ b/.emacs.d/lisp/init-project.el
@@ -20,7 +20,7 @@
   (defun project-clojure-test-switch ()
     (interactive)
     (let ((filename (buffer-file-name))
-          (project-root (consult--project-root))) ;; TODO don't depend on consult
+          (project-root (expand-file-name (project-root (project-current)))))
       (cond ((string-match (concat "^" project-root "test/.*_test\.clj") filename)
              (project--clojure-switch-to-src filename project-root))
             ((string-match (concat "^" project-root "src/.*\.clj") filename)