Drop logs

nextjournal · Jul 10, 2023 · 875c431 · 875c431
1 parent 41f402e
commit 875c431
Show file tree

Hide file tree

Showing 5 changed files with 5 additions and 16 deletions.
diff --git a/src/nextjournal/clerk.clj b/src/nextjournal/clerk.clj
@@ -84,7 +84,6 @@
   "Recomputes the currently visible doc, without parsing it."
   []
   (let [!doc (webserver/get-doc!)]
-    (prn :recompute! {})
     (binding [*ns* (:ns @!doc)]
       (let [{:keys [result time-ms]} (eval/time-ms (eval/eval-analyzed-doc @!doc))]
         (println (str "Clerk recomputed '" @!last-file "' in " time-ms "ms."))

diff --git a/src/nextjournal/clerk/analyzer.clj b/src/nextjournal/clerk/analyzer.clj
@@ -674,8 +674,4 @@
 #_(find-blocks @nextjournal.clerk.webserver/!doc 'foo)
 #_(find-blocks @nextjournal.clerk.webserver/!doc '(rand-int 1000))
 
-(defn dependent-vars
-  [{:as analyzed-doc :keys [graph ->analysis-info]} vars-set]
-  (let [deps (dep/transitive-dependents-set graph vars-set)]
-    (into #{} (filter (comp :vars ->analysis-info) deps))))
 
diff --git a/src/nextjournal/clerk/eval.clj b/src/nextjournal/clerk/eval.clj
@@ -81,11 +81,9 @@
                                  #_(prn :thaw-error e)
                                  nil))]
     (wrapped-with-metadata (if introduced-var
-                             (do
-                               (prn :introduced-var introduced-var)
-                               (var-from-def (intern (-> introduced-var namespace symbol)
-                                                     (-> introduced-var name symbol)
-                                                     cached-value)))
+                             (var-from-def (intern (-> introduced-var namespace symbol)
+                                                   (-> introduced-var name symbol)
+                                                   cached-value))
                              cached-value)
                            hash)))
 
@@ -128,7 +126,6 @@
           {:keys [result]} (time-ms (binding [config/*in-clerk* true]
                                       (assert form "form must be set")
                                       (with-redefs [clojure.core/intern (partial intern+record !interned-vars)]
-                                        (prn :eval form)
                                         (eval form))))
           result (if (and (nil? result) var (= 'defonce (first form)))
                    (find-var var)
@@ -249,7 +246,6 @@
 
 
 (defn eval-in-session [{:as analyzed-doc :keys [session ns]}]
-  (prn :eval-in-session ns session)
   (if session
     (let [session-ns (session/session-ns-name analyzed-doc)]
       (binding [*ns* (create-ns session-ns)]

diff --git a/src/nextjournal/clerk/render.cljs b/src/nextjournal/clerk/render.cljs
@@ -607,7 +607,6 @@
 (defn set-reset-sync-atoms! [new-val] (set! *reset-sync-atoms?* new-val))
 
 (defn intern-atoms! [atom-var-name->state]
-  (js/console.log :intern-atoms atom-var-name->state)
   (let [vars-in-use (into #{} (keys atom-var-name->state))
         vars-interned @!synced-atom-vars]
     (doseq [var-name-to-unmap (set/difference vars-interned vars-in-use)]

diff --git a/src/nextjournal/clerk/session.clj b/src/nextjournal/clerk/session.clj
@@ -2,9 +2,8 @@
 
 (defn in-session-ns [{:keys [ns session-ns]} var]
   (if (and var session-ns)
-    (do (prn :in-session-ns session-ns ns var)
-        (symbol (str session-ns)
-                (name var)))
+    (symbol (str session-ns)
+            (name var))
     var))
 
 (def session-ns-prefix