Allow int-set to be rendered as set (#743)

Fix #739.
nextjournal · Mar 4, 2025 · 13cef99 · 13cef99
1 parent b1513af
commit 13cef99
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 3 deletions.
diff --git a/deps.edn b/deps.edn
@@ -47,7 +47,8 @@
                               com.clojure-goes-fast/clj-async-profiler {:mvn/version "1.3.0"}
                               io.github.nextjournal/cas-client {:git/sha "d9f838937ebc8b645fe5764949e72a6df8e344de"}
                               org.slf4j/slf4j-nop {:mvn/version "2.0.7"}
-                              org.babashka/cli {:mvn/version "0.5.40"}}
+                              org.babashka/cli {:mvn/version "0.5.40"}
+                              org.clojure/data.int-map {:mvn/version "1.3.0"}}
                  :extra-paths ["dev" "notebooks"]
                  :jvm-opts ["-Dclerk.resource_manifest={\"/js/viewer.js\" \"/js/viewer.js\"}"
                             "-Dpolyglot.engine.WarnInterpreterOnly=false"

diff --git a/notebooks/viewers/int_set.clj b/notebooks/viewers/int_set.clj
@@ -0,0 +1,7 @@
+(ns viewers.int-set
+  (:require [clojure.core :as b]
+            [clojure.data.int-map :as i]))
+
+(into (i/int-set) [1 2 3 4 4 5])
+
+
diff --git a/src/nextjournal/clerk/viewer.cljc b/src/nextjournal/clerk/viewer.cljc
@@ -1403,10 +1403,9 @@
   (cond
     (sorted? xs) xs
     (map? xs) (sort-by first resilient-compare xs)
-    (set? xs) (sort resilient-compare xs)
+    (set? xs) (sort resilient-compare (seq xs))
     :else xs))
 
-
 (defn find-viewer [viewers select-fn]
   (first (filter select-fn viewers)))