| 
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