Don't embed :path->doc in state for :render-router :fetch-edn

mk · mk · commit 5ffa6da05311 · 2025-12-20T08:41:23.000+11:00
diff --git a/src/nextjournal/clerk/view.clj b/src/nextjournal/clerk/view.clj
@@ -71,7 +71,7 @@
   ;; https://html.spec.whatwg.org/multipage/syntax.html#cdata-rcdata-restrictions
   (str/replace s "</script>" "</nextjournal.clerk.view/escape-closing-script-tag>"))
 
-(defn ->html [{:as state :keys [conn-ws? current-path html exclude-js?]}]
+(defn ->html [{:as state :keys [conn-ws? current-path html exclude-js? render-router]}]
   (hiccup/html5
    [:head
     [:meta {:charset "UTF-8"}]
@@ -93,7 +93,7 @@
     [:div#clerk html]
     (when-not exclude-js?
       [:script {:type "module"} "let viewer = nextjournal.clerk.sci_env
-let state = " (-> state v/->edn escape-closing-script-tag pr-str) ".replaceAll('nextjournal.clerk.view/escape-closing-script-tag', 'script')
+let state = " (-> (if (= render-router :fetch-edn) (dissoc state :path->doc) state) v/->edn escape-closing-script-tag pr-str) ".replaceAll('nextjournal.clerk.view/escape-closing-script-tag', 'script')
 viewer.init(viewer.read_string(state))\n"
        (when conn-ws?
          "viewer.connect(document.location.origin.replace(/^http/, 'ws') + '/_ws')\n")])]))
diff --git a/test/nextjournal/clerk/builder_test.clj b/test/nextjournal/clerk/builder_test.clj
@@ -73,7 +73,8 @@
                                                   :report-fn identity})
                       (slurp (fs/file temp-dir "index.html")))]
        (is (str/includes? html-out "<meta content=\"🔫 My OG Title\" property=\"og:title\">"))
-       (is (str/includes? html-out "<meta content=\"https://clerk.vision/my-open-graph-url\" property=\"og:url\">")))))
+       (is (str/includes? html-out "<meta content=\"https://clerk.vision/my-open-graph-url\" property=\"og:url\">"))
+       (is (not (str/includes? html-out ":path->doc"))))))
 
   (utils/when-not-bb
    (testing "image is saved to _data dir"
