Nbb support

Author: chaos

clojure-mode-util-test.el

@@ -39,6 +39,16 @@
       (clj-file-ns "my-project.my-ns.my-file")
       (clojure-cache-project nil))
 
+  (describe "clojure-project-root-path"
+    (it "nbb subdir"
+      (with-temp-dir temp-dir
+        (let* ((bb-edn (expand-file-name "nbb.edn" temp-dir))
+               (bb-edn-src (expand-file-name "src" temp-dir)))
+          (write-region "{}" nil bb-edn)
+          (make-directory bb-edn-src)
+          (expect  (clojure-project-dir bb-edn-src)
+                   :to-equal (file-name-as-directory temp-dir))))))
+
   (describe "clojure-project-relative-path"
     (cl-letf (((symbol-function 'clojure-project-dir) (lambda () project-dir)))
       (expect (string= (clojure-project-relative-path clj-file-path)

utils/test-helper.el

@@ -96,5 +96,15 @@ DESCRIPTION is a string with the description of the spec."
          (expect (point) :to-equal expected-cursor-pos)))))
 
 
+;; https://emacs.stackexchange.com/a/55031
+(defmacro with-temp-dir (temp-dir &rest body)
+  "Create a temporary directory and bind its to TEMP-DIR while evaluating BODY.
+Removes the temp directory at the end of evaluation."
+  `(let ((,temp-dir (make-temp-file "" t)))
+    (unwind-protect
+      (progn
+        ,@body)
+      (delete-directory ,temp-dir t))))
+
 (provide 'test-helper)
 ;;; test-helper.el ends here