clojure-project-dir delegates call to clojure-project-root-function

Author: mbuczko

clojure-mode.el

@@ -192,7 +192,7 @@ Out-of-the box `clojure-mode' understands lein, boot and gradle."
           (and (listp value)
                (cl-every 'stringp value))))
 
-(defcustom clojure-project-root-function 'clojure-project-dir
+(defcustom clojure-project-root-function 'clojure-project-root-path
   "Function to locate clojure project root directory."
   :type 'function
   :risky t
@@ -1606,6 +1606,13 @@ nil."
 (defun clojure-project-dir (&optional dir-name)
   "Return the absolute path to the project's root directory.
 
+Call is delegated down to `clojure-project-root-function' with
+optional DIR-NAME as argument."
+  (funcall clojure-project-root-function dir-name))
+
+(defun clojure-project-root-path (&optional dir-name)
+  "Return the absolute path to the project's root directory.
+
 Use `default-directory' if DIR-NAME is nil.
 Return nil if not inside a project."
   (let* ((dir-name (or dir-name default-directory))