21 lines
540 B
Clojure
21 lines
540 B
Clojure
|
(ns bb_edn_from_deps
|
||
|
|
(:require [clojure.edn :as edn]
|
||
|
|
[clojure.set :as set]))
|
||
|
|
|
||
|
|
(defn select-deps [m] (select-keys m [:paths :deps]))
|
||
|
|
|
||
|
|
(defn extra-deps [m]
|
||
|
|
(-> m
|
||
|
|
(get-in [:aliases :lib-tests])
|
||
|
|
(set/rename-keys {:extra-deps :deps
|
||
|
|
:extra-paths :paths})
|
||
|
|
select-deps))
|
||
|
|
|
||
|
|
(if (seq *command-line-args*)
|
||
|
|
(->> (slurp "deps.edn")
|
||
|
|
edn/read-string
|
||
|
|
((juxt select-deps extra-deps))
|
||
|
|
(apply merge-with into)
|
||
|
|
(spit (first *command-line-args*)))
|
||
|
|
(println "Please specify an output file"))
|