using a different way to control datasets' print range

scicloj · May 24, 2024 · cdb4eb3 · cdb4eb3
1 parent fc439af
commit cdb4eb3
Showing 1 changed file with 6 additions and 10 deletions.
diff --git a/src/scicloj/clay/v2/item.clj b/src/scicloj/clay/v2/item.clj
@@ -327,15 +327,11 @@
 
 (defn dataset [{:as context
                 :keys [value kindly/options]}]
-  (let [{:keys [dataset/default-table-row-print-length]} options
-        printed-string (if default-table-row-print-length
-                         (binding [tech.v3.dataset.print/*default-table-row-print-length* default-table-row-print-length]
-                           (-> value
-                               println
-                               with-out-str))
-                         (-> value
-                             println
-                             with-out-str))]
-    (-> printed-string
+  (let [{:keys [dataset/print-range]} options]
+    (-> value
+        (cond-> print-range
+          (tech.v3.dataset.print/print-range print-range))
+        println
+        with-out-str
         md
         (merge {:item-class "clay-dataset"}))))