version 4-alpha3: revising list of kinds, refactoring the creation of…

… kinds using a macro

CHANGELOG.md

@@ -1,6 +1,10 @@
 # Change Log
 All notable changes to this project will be documented in this file. This change log follows the conventions of [keepachangelog.com](http://keepachangelog.com/).
 
+## [4-alpha3] - 2023-09-08
+- revising list of kinds
+- refactorin the creation of kinds using a macro
+
 ## [4-alpha2] - 2023-09-01
 - adding kinds
 

build.clj

@@ -4,7 +4,7 @@
             [org.corfield.build :as bb]))
 
 (def lib 'org.scicloj/kindly)
-(def version "4-alpha2")
+(def version "4-alpha3")
 #_ ; alternatively, use MAJOR.MINOR.COMMITS:
 (def version (format "1.0.%s" (b/git-count-revs nil)))
 

src/scicloj/kindly/v4/fn.cljc

@@ -6,8 +6,18 @@
     (attach-kind-to-value [value] kind)))
 
 (defn kind-as-a-fn [kind]
-  (fn
-    ([]
-     kind)
-    ([value]
-     (attach-kind-to-value value kind))))
+  (let [kind-kw (->> kind
+                     name
+                     (keyword "kind"))]
+    (fn
+      ([]
+       kind-kw)
+      ([value]
+       (attach-kind-to-value value kind-kw)))))
+
+(defmacro defkinds [& kind-symbols]
+  (->> kind-symbols
+       (map (fn [s]
+              `(def ~s
+                 (kind-as-a-fn (quote ~s)))))
+       (cons 'do)))

src/scicloj/kindly/v4/kind.cljc

@@ -1,56 +1,37 @@
 (ns scicloj.kindly.v4.kind
   (:require [scicloj.kindly.v4.fn :as fn]))
 
-(def hidden
-  (fn/kind-as-a-fn :kind/hidden))
-
-(def pprint
-  (fn/kind-as-a-fn :kind/pprint))
-
-(def println
-  (fn/kind-as-a-fn :kind/println))
-
-(def test
-  (fn/kind-as-a-fn :kind/test))
-
-(def var
-  (fn/kind-as-a-fn :kind/var))
-
-(def map
-  (fn/kind-as-a-fn :kind/map))
-
-(def set
-  (fn/kind-as-a-fn :kind/set))
-
-(def vector
-  (fn/kind-as-a-fn :kind/vector))
-
-(def seq
-  (fn/kind-as-a-fn :kind/seq))
-
-(def table
-  (fn/kind-as-a-fn :kind/table))
-
-(def md
-  (fn/kind-as-a-fn :kind/md))
-
-(def code
-  (fn/kind-as-a-fn :kind/code))
-
-(def hiccup
-  (fn/kind-as-a-fn :kind/hiccup))
-
-(def reagent
-  (fn/kind-as-a-fn :kind/reagent))
-
-(def vega
-  (fn/kind-as-a-fn :kind/vega))
-
-(def vega-lite
-  (fn/kind-as-a-fn :kind/vega-lite))
-
-(def cytoscape
-  (fn/kind-as-a-fn :kind/cytoscape))
-
-(def echarts
-  (fn/kind-as-a-fn :kind/echarts))
+(fn/defkinds
+
+  ;; simple behaviours
+  pprint
+  hidden
+
+  ;; web dev
+  hiccup
+  reagent
+
+  ;; data visualization formats
+  md
+  code
+  vega
+  vega-lite
+  echarts
+  cytoscape
+
+  ;; specific types
+  image
+  dataset
+
+  ;; clojure specific
+  var
+  test
+
+  ;; plain structures
+  seq
+  vector
+  set
+  map
+
+  ;; other recursive structures
+  table)