djm
/
dotfiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Replace consult function with built-in ones

This commit is contained in:
David Morgan 2021-09-07 19:26:40 +01:00
parent 535fb5d69c
commit fbec4d1af0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.emacs.d/lisp/init-project.el
View File

@ -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)