luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enhancement

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
babashka.pods

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

11
examples/hsqldb_unused_vars.clj
View file

@ -18,13 +18,15 @@
(:require (:require
[babashka.pods :as pods] [babashka.pods :as pods]
[clojure.edn :as edn] [clojure.edn :as edn]
[clojure.java.shell :refer [sh]]
[clojure.pprint :refer [print-table]])) [clojure.pprint :refer [print-table]]))
(pods/load-pod "pod-babashka-hsqldb") (pods/load-pod "pod-babashka-hsqldb")
(require '[pod.babashka.hsqldb :as jdbc] (require '[pod.babashka.hsqldb :as jdbc]
'[pod.babashka.hsqldb.sql :as sql]) '[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") (def db "jdbc:hsqldb:mem:testdb;sql.syntax_mys=true")
(defn query [q] (defn query [q]
@ -69,10 +71,9 @@
var-usages))) var-usages)))
(defn analysis->db [paths] (defn analysis->db [paths]
(let [out (:out (apply sh "clj-kondo" (let [out (clj-kondo/run! {:lint paths
"--config" "{:output {:analysis true :format :edn}}" :config {:output {:analysis true}}})
"--lint" paths)) analysis (:analysis out)
analysis (:analysis (edn/read-string out))
{:keys [:var-definitions :var-usages]} analysis] {:keys [:var-definitions :var-usages]} analysis]
(insert-vars! var-definitions) (insert-vars! var-definitions)
(insert-var-usages! var-usages))) (insert-var-usages! var-usages)))