Enhancement
This commit is contained in:
parent
2d12c954a1
commit
56f25ec4b4
2 changed files with 7 additions and 6 deletions
|
|
@ -1 +1 @@
|
|||
Subproject commit 630161441bda24cbf0267002e1769ce464c66060
|
||||
Subproject commit ed996f6f4106b06d1655f09797bc0b971a5ff523
|
||||
|
|
@ -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)))
|
||||
|
|
|
|||
Loading…
Reference in a new issue