Add kondo support for potemkin and stream macros

Adds clj-kondo support for the deftype+ and def-sink families of macros.

Author: cosineblast

.clj-kondo/config.edn

@@ -0,0 +1,24 @@
+{:lint-as {manifold.utils/definterface+ clojure.core/definterface
+           manifold.utils/deftype+ clojure.core/deftype
+           manifold.utils/defrecord+ clojure.core/defrecord
+           manifold.utils/defprotocol+ clojure.core/defprotocol
+           manifold.stream.core/def-source clojure.core/deftype
+           manifold.stream.core/def-sink clojure.core/deftype
+           manifold.stream.core/def-sink+source clojure.core/deftype}
+
+ :hooks {:analyze-call
+         {manifold.stream.core/def-source manifold.hooks/def-sink-or-source
+          manifold.stream.core/def-sink manifold.hooks/def-sink-or-source
+          manifold.stream.core/def-sink+source manifold.hooks/def-sink-or-source}}
+
+
+:config-in-call {manifold.stream.core/def-sink+source
+                 {:linters {:redefined-var {:level :off}}}
+
+                 manifold.stream.core/def-sink
+                 {:linters {:redefined-var {:level :off}}}
+
+                 manifold.stream.core/def-source
+                 {:linters {:redefined-var {:level :off}}}}
+
+ :config-paths ["../resources/clj-kondo.exports/manifold/manifold/"]}

.clj-kondo/manifold/hooks.clj

@@ -0,0 +1,30 @@
+(ns manifold.hooks
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn- cons-vector-node
+  [node parent]
+  (api/vector-node (cons node (:children parent))))
+
+(defn def-sink-or-source [call]
+  (let [[name bindings & body] (-> call :node :children rest)
+        extended-bindings
+        (cons-vector-node (api/token-node 'lock) bindings)]
+
+    {:node
+     (api/list-node
+      (list
+       (api/token-node 'do)
+
+       (api/list-node
+        (list*
+         (api/token-node 'deftype)
+         name
+         extended-bindings
+         body))
+
+       (api/list-node
+        (list
+         (api/token-node 'defn)
+         (api/token-node (symbol (str "->" (:string-value name))))
+         bindings
+         ))))}))