We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent c617a2a commit be187d8Copy full SHA for be187d8
clojure-mode.el
@@ -70,6 +70,7 @@
70
(require 'align)
71
(require 'subr-x)
72
(require 'lisp-mnt)
73
+(require 'project)
74
75
(declare-function lisp-fill-paragraph "lisp-mode" (&optional justify))
76
@@ -1719,6 +1720,9 @@ Return nil if not inside a project."
1719
1720
(when (> (length choices) 0)
1721
(car (sort choices #'file-in-directory-p)))))
1722
1723
+(cl-defmethod project-roots ((project (head clojure)))
1724
+ (list (cdr project)))
1725
+
1726
(defun clojure-project-relative-path (path)
1727
"Denormalize PATH by making it relative to the project root."
1728
(file-relative-name path (clojure-project-dir)))
0 commit comments