- added partial support for dataset print options as kindly options

CHANGELOG.md

@@ -2,8 +2,8 @@
 All notable changes to this project will be documented in this file. This change log follows the conventions of [keepachangelog.com](http://keepachangelog.com/).
 
 ## [2-beta10] - unreleased
-- add classes to elements that have styling applied to faciliate custom styles (#102)
-
+- added classes to elements that have styling applied to faciliate custom styles (#102)
+- added partial support for dataset print options as kindly options
 
 ## [2-beta9] - 2024-05-18
 - extended the `kind/fn` semantics to a map spec

src/scicloj/clay/v2/item.clj

@@ -8,7 +8,8 @@
  [scicloj.clay.v2.util.meta :as meta]
  [hiccup.page]
  [hiccup.core :as hiccup]
- [clojure.string :as str]))
+ [clojure.string :as str]
+ [scicloj.kindly.v4.api :as kindly]))
 
 (def *id (atom 0))
 
@@ -325,9 +326,16 @@
  :deps [:highcharts]})
 
 (defn dataset [{:as context
- :keys [value]}]
- (-> value
- println
- with-out-str
- md
- (merge {:item-class "clay-dataset"})))
+ :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
+ md
+ (merge {:item-class "clay-dataset"}))))