Enhancement

This commit is contained in:
Michiel Borkent 2020-05-12 11:43:01 +02:00
parent 2d12c954a1
commit 56f25ec4b4
2 changed files with 7 additions and 6 deletions

@ -1 +1 @@
Subproject commit 630161441bda24cbf0267002e1769ce464c66060
Subproject commit ed996f6f4106b06d1655f09797bc0b971a5ff523

View file

@ -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)))