wip

notebooks/macro_auto_gensym.clj

@@ -0,0 +1,6 @@
+(ns macro-auto-gensym
+  (:require [macro-with-auto-gensym :as m]))
+
+;; Q: when I change my/macro and re-eval the notebook, should it render the change?
+
+(inc (m/my-macro 1))

notebooks/macro_with_auto_gensym.clj

@@ -0,0 +1,5 @@
+(ns macro-with-auto-gensym)
+
+(defmacro my-macro [x]
+  `(let [x# ~x]
+     (inc x#)))

src/nextjournal/clerk/analyzer.clj

@@ -445,6 +445,10 @@
   ([state file]
    (analyze-doc state (parser/parse-file {} file))))
 
+(comment
+  (analyze-file *file*)
+  )
+
 (defn unhashed-deps [->analysis-info]
   (remove deref? (set/difference (into #{}
                                        (mapcat :deps)

src/nextjournal/clerk/eval.clj

@@ -122,6 +122,7 @@
   ([store ns name val] (record-interned-symbol store ns name) (core-intern ns name val)))
 
 (defn ^:private eval+cache! [{:keys [form var ns-effect? no-cache? freezable?] :as form-info} hash digest-file]
+  (prn :form form)
   (try
     (let [!interned-vars (atom #{})
           {:keys [result]} (time-ms (binding [config/*in-clerk* true]

test/nextjournal/clerk/analyzer_test.clj

@@ -101,6 +101,8 @@
                 (ana/analyze '(do inc))))
     (is (empty? (:deps (ana/analyze '(do 'inc))))))
 
+  (ana/analyze `(let [a# 1]))
+
   (testing "locals that shadow existing vars shouldn't show up in the deps"
     (is (= #{'clojure.core/let} (:deps (ana/analyze '(let [+ 2] +))))))