|
60 | 60 |
|
61 | 61 | This program accepts the same basis-modifying arguments from the `basis` program. |
62 | 62 | Each dep source value can be :standard, a string path, a deps edn map, or nil. |
63 | | - Sources are merged in the order - :root, :user, :project, :extra. |
| 63 | + Sources are merged in the order - :root, :user, :project, :extra. Alternately, |
| 64 | + provide a :tool name to prep the libs for a tool. |
64 | 65 |
|
65 | 66 | Options: |
| 67 | + :tool - Tool name (symbol or string) to prep installed tool |
66 | 68 | :force - flag on whether to force prepped libs to re-prep (default = false) |
67 | 69 | :current - flag on whether to prep current project too (default = false) |
68 | 70 | :log - :none, :info (default), or :debug |
|
76 | 78 | :aliases - coll of kw aliases of argmaps to apply to subprocesses |
77 | 79 |
|
78 | 80 | Returns params used." |
79 | | - [{:keys [force log current] :or {log :info, current false} :as params}] |
80 | | - (let [basis (deps/create-basis params) |
81 | | - opts {:action (if force :force :prep) |
| 81 | + [{:keys [force log current tool] :or {log :info, current false} :as params}] |
| 82 | + (let [opts {:action (if force :force :prep) |
82 | 83 | :log log |
83 | | - :current current}] |
| 84 | + :current current} |
| 85 | + params (if tool |
| 86 | + (if-let [{:keys [lib coord]} (tool/resolve-tool (name tool))] |
| 87 | + {:project nil, :args {:deps {lib coord}}} |
| 88 | + (throw (ex-info (str "Unknown tool: " tool) {:tool tool}))) |
| 89 | + params) |
| 90 | + basis (deps/create-basis params)] |
84 | 91 | (deps/prep-libs! (:libs basis) opts basis) |
85 | 92 | params)) |
86 | 93 |
|
|
94 | 101 | :log :debug |
95 | 102 | :force true}) |
96 | 103 | nil) |
| 104 | + |
| 105 | + (do |
| 106 | + (prep |
| 107 | + {:root {:mvn/repos mvn/standard-repos, :deps nil} |
| 108 | + :tool 'eden |
| 109 | + :log :debug |
| 110 | + :force true})) |
97 | 111 | ) |
98 | 112 |
|
99 | 113 | (defn tree |
|
0 commit comments