Update defstate clj-kondo hook to return a var

.clj-kondo/config.edn

@@ -0,0 +1 @@
+{:config-paths ["../resources/clj-kondo.exports/mount/mount/"]}

.gitignore

@@ -21,3 +21,4 @@ doo-index.html
 /.nrepl-history
 .cljs_rhino_repl/
 out/
+.clj-kondo/.cache

resources/clj-kondo.exports/mount/mount/config.edn

@@ -1,3 +1,3 @@
-{:lint-as {mount.core/defstate clojure.core/def-catch-all}
+{:linters {:mount/defstate {:level :warning}}
- :linters {:mount/defstate {:level :warning}}
+ :hooks {:analyze-call {mount.core/defstate hooks.defstate/defstate
- :hooks {:analyze-call {mount.core/defstate hooks.defstate/defstate}}}
+                        mount.core/defstate! hooks.defstate/defstate}}}

resources/clj-kondo.exports/mount/mount/hooks/defstate.clj

@@ -32,8 +32,10 @@
          :col     (:col (meta n))})
       :else
       {:node (api/list-node
-                  (list*
+                  (list
-                    (api/token-node 'fn*)
+                    (api/token-node 'def)
-                    (api/vector-node [n])
                     n
-                    args))})))
+                    (api/list-node
+                      (list*
+                        (api/token-node 'do)
+                        args))))})))

test/clj/tapp/utils/datomic.clj

@@ -6,8 +6,9 @@
 (defn entity [conn id]
   (d/entity (d/db conn) id))
 
-(defn touch [conn results]
+(defn touch
   "takes 'entity ids' results from a query
     e.g. '#{[272678883689461] [272678883689462] [272678883689459] [272678883689457]}'"
+  [conn results]
   (let [e (partial entity conn)]
     (map #(-> % first e d/touch) results)))