Merge pull request #5 from scicloj/refer-clojure-exclude

Avoid warnings about Clojure core symbols
scicloj · Oct 15, 2023 · a0c514c · a0c514c
2 parents e323d61 + 128e395
commit a0c514c
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 2 deletions.
diff --git a/dev/scicloj/kindly/gen.clj b/dev/scicloj/kindly/gen.clj
@@ -32,10 +32,18 @@
                    (str/join \newline
                              (map kind-fn kinds))))))
 
+(defn excludes [all-kinds]
+  (let [cc (find-ns 'clojure.core)]
+    (vec (for [[category kinds] all-kinds
+               [kind] kinds
+               :when (ns-resolve cc kind)]
+           kind))))
+
 (defn kind-ns [all-kinds]
   (str "(ns scicloj.kindly.v4.kind
   \"Kinds for visualization\"
-  (:require [scicloj.kindly.v4.api :refer [attach-kind-to-value]]))
+  (:require [scicloj.kindly.v4.api :refer [attach-kind-to-value]])
+  (:refer-clojure :exclude " (excludes all-kinds) "))
 
 " (kind-fns all-kinds) \newline))
 

diff --git a/src/scicloj/kindly/v4/kind.cljc b/src/scicloj/kindly/v4/kind.cljc
@@ -1,6 +1,7 @@
 (ns scicloj.kindly.v4.kind
   "Kinds for visualization"
-  (:require [scicloj.kindly.v4.api :refer [attach-kind-to-value]]))
+  (:require [scicloj.kindly.v4.api :refer [attach-kind-to-value]])
+  (:refer-clojure :exclude [test seq vector set map]))
 
 ;; ## simple behaviours