lint warnings

garden.edn

@@ -1 +1 @@
-{:project/id #uuid "64ad48c9-3110-4e31-89be-340e03876734"}
+{:project "clerk-session"}

src/nextjournal/clerk/session.clj

@@ -27,12 +27,6 @@
 (defn session-ns-name [{:keys [ns session]}]
   (symbol (str session-ns-prefix (valuehash session) "." (ns-name ns))))
 
-(defn ->orignal-ns [sym]
-  (if (qualified-symbol? sym)
-    (symbol (str/replace (namespace sym) session-ns-pattern "")
-            (name sym))
-    sym))
-
 (defn rewrite-ns-form [doc session-ns]
   (update-in doc [:blocks 0 :form] (fn [ns-form]
                                      (concat [(first ns-form)

test/nextjournal/clerk/eval_test.clj

@@ -243,11 +243,13 @@
                 (-> blocks second :result :nextjournal/value :nextjournal.clerk/var-from-def deref))))
 
 
-    (testing "has correct values"
-      (let [get-values (fn [blocks] (into [] (map (comp :nextjournal/value :result blocks)) [2 4]))
-            !offset (-> blocks second :result :nextjournal/value :nextjournal.clerk/var-from-def deref)]
-        (is (= [0 0] (get-values blocks)))
-        (swap! !offset inc)
+    (let [get-values (fn [blocks] (into [] (map (comp :nextjournal/value :result blocks)) [2 4]))
+          !offset (-> blocks second :result :nextjournal/value :nextjournal.clerk/var-from-def deref)]
+      (testing "has correct values initially"
+        (is (= [0 0] (get-values blocks))))
+
+      (testing "has incremented values after swap!"
+        (is (swap! !offset inc))
         (is (= [1 1] (get-values (:blocks (eval-string-in-session code-string :foo)))))))))
 
 (clerk/defcached my-expansive-thing