diff --git a/babashka.pods b/babashka.pods index 63016144..ed996f6f 160000 --- a/babashka.pods +++ b/babashka.pods @@ -1 +1 @@ -Subproject commit 630161441bda24cbf0267002e1769ce464c66060 +Subproject commit ed996f6f4106b06d1655f09797bc0b971a5ff523 diff --git a/examples/hsqldb_unused_vars.clj b/examples/hsqldb_unused_vars.clj index 613d3ba2..95ab9ccc 100755 --- a/examples/hsqldb_unused_vars.clj +++ b/examples/hsqldb_unused_vars.clj @@ -18,13 +18,15 @@ (:require [babashka.pods :as pods] [clojure.edn :as edn] - [clojure.java.shell :refer [sh]] [clojure.pprint :refer [print-table]])) (pods/load-pod "pod-babashka-hsqldb") (require '[pod.babashka.hsqldb :as jdbc] '[pod.babashka.hsqldb.sql :as sql]) +(pods/load-pod "clj-kondo") +(require '[pod.borkdude.clj-kondo :as clj-kondo]) + (def db "jdbc:hsqldb:mem:testdb;sql.syntax_mys=true") (defn query [q] @@ -69,10 +71,9 @@ var-usages))) (defn analysis->db [paths] - (let [out (:out (apply sh "clj-kondo" - "--config" "{:output {:analysis true :format :edn}}" - "--lint" paths)) - analysis (:analysis (edn/read-string out)) + (let [out (clj-kondo/run! {:lint paths + :config {:output {:analysis true}}}) + analysis (:analysis out) {:keys [:var-definitions :var-usages]} analysis] (insert-vars! var-definitions) (insert-var-usages! var-usages)))