Preserve *ns* during build!, fixes #506

Author: mk

CHANGELOG.md

@@ -50,6 +50,8 @@ Changes can be:
 
 * 🐜 Ensure custom `print-method` supporting unreadable symbols preserves metadata
 
+* 🐞 Preserve `*ns*` during `build!`, fixes [#506](https://github.com/nextjournal/clerk/issues/506)
+
 ## 0.13.842 (2023-03-07)
 
 * 💫 Support pagination for values nested inside `clerk/html`

src/nextjournal/clerk/builder.clj

@@ -389,7 +389,8 @@
                       (report-fn {:stage :building :doc doc :idx idx})
                       (let [{result :result duration :time-ms} (eval/time-ms
                                                                 (try
-                                                                  (binding [*build-opts* opts
+                                                                  (binding [*ns* *ns*
+                                                                            *build-opts* opts
                                                                             viewer/doc-url (partial doc-url opts state file)]
                                                                     (let [doc (eval/eval-analyzed-doc doc)]
                                                                       (assoc doc :viewer (view/doc->viewer (assoc opts :static-build? true

test/nextjournal/clerk/builder_test.clj

@@ -14,7 +14,8 @@
       (is (= (#'builder/path-to-url-canonicalize dice) (str/replace dice  (File/separator) "/"))))))
 
 (deftest static-app
-  (let [url* (volatile! nil)]
+  (let [url* (volatile! nil)
+        original-*ns* *ns*]
     (with-redefs [clojure.java.browse/browse-url (fn [path]
                                                    (vreset! url* path))]
       (testing "browser receives canonical url in this system arch"
@@ -24,7 +25,10 @@
             (builder/build-static-app! {:browse? true
                                         :paths ["notebooks/hello.clj"]
                                         :out-path temp})
-            (is (= expected @url*))))))))
+            (is (= expected @url*)))))
+
+      (testing "*ns* isn't changed (#506)"
+        (is (= original-*ns* *ns*))))))
 
 (def test-paths ["boo*.clj"])
 (def test-paths-fn (fn [] ["boo*.clj"]))