Fix pagination

src/nextjournal/clerk/viewer.cljc

@@ -1361,7 +1361,7 @@
    :transform-fn (fn [{:as wrapped-value :nextjournal/keys [viewers]}]
                    (-> wrapped-value
                        (update :nextjournal/value (fn [value]
-                                                    (process-blocks viewers (merge (->opts wrapped-value) value))))
+                                                    (process-blocks viewers (merge (select-keys wrapped-value [:store!-viewer]) value))))
                        mark-presented))})
 
 (def render-eval-viewer

test/nextjournal/clerk/viewer_test.clj

@@ -103,7 +103,31 @@
        ;; see also n.c.render/url-for
        (is (bytes? (:nextjournal/value
                     ((:present-elision-fn (meta presented))
-                     (select-keys (:nextjournal/value presented) [:path])))))))))
+                     (select-keys (:nextjournal/value presented) [:path]))))))))
+  (testing "elision is scoped by block, see #813"
+    (let [code "(ns nextjournal.clerk.test.elision
+                  (:require [nextjournal.clerk :as clerk]))
+                (clerk/table {:row (mapv #(str \"t1-\" %) (range 30))})
+                (clerk/table {:row (mapv #(str \"t2-\" %) (range 30))})"
+          table-results (->> (eval/eval-string code)
+                             view/doc->viewer
+                             :nextjournal/value
+                             :blocks
+                             (mapcat :nextjournal/value)
+                             (keep #(get-in % [:nextjournal/value :nextjournal/presented]))
+                             (filter v/find-elision))
+          table-strs (fn [presented]
+                       (->>
+                        ;; expands elided values
+                        (resolve-elision presented)
+                        v/desc->values
+                        rest
+                        first
+                        (mapv first)))
+          [t1-strs t2-strs] (map table-strs table-results)]
+      (is (= 30 (count t1-strs) (count t2-strs)))
+      (is (every? #(str/starts-with? % "t1") t1-strs))
+      (is (every? #(str/starts-with? % "t2") t2-strs)))))
 
 (deftest default-viewers
   (testing "viewers have names matching vars"