|
10 | 10 |
|
11 | 11 | ;; TODO: Add docstrings |
12 | 12 |
|
| 13 | +(def default-edn "kit.edn") |
| 14 | + |
13 | 15 | (defn- read-ctx |
14 | 16 | [path] |
15 | 17 | (assert (not (str/blank? path))) |
|
75 | 77 | (defn sync-modules |
76 | 78 | "Downloads modules for the current project." |
77 | 79 | [] |
78 | | - (modules/sync-modules! (read-ctx "kit-edn")) |
| 80 | + (modules/sync-modules! (read-ctx default-edn)) |
79 | 81 | :done) |
80 | 82 |
|
81 | 83 | (defn list-modules |
82 | 84 | "List modules available for the current project." |
83 | 85 | [] |
84 | | - (let [ctx (modules/load-modules (read-ctx "kit.edn"))] |
| 86 | + (let [ctx (modules/load-modules (read-ctx default-edn))] |
85 | 87 | (modules/list-modules ctx)) |
86 | 88 | :done) |
87 | 89 |
|
|
102 | 104 | "Lists installed modules and modules that failed to install, for the current |
103 | 105 | project." |
104 | 106 | [] |
105 | | - (doseq [[id status] (-> (read-ctx "kit.edn") |
| 107 | + (doseq [[id status] (-> (read-ctx default-edn) |
106 | 108 | :modules |
107 | 109 | :root |
108 | 110 | (generator/read-modules-log))] |
|
119 | 121 | @db)))) |
120 | 122 |
|
121 | 123 | (defn sync-snippets [] |
122 | | - (let [ctx (read-ctx "kit.edn")] |
| 124 | + (let [ctx (read-ctx default-edn)] |
123 | 125 | (snippets/sync-snippets! ctx) |
124 | 126 | (snippets-db ctx true) |
125 | 127 | :done)) |
126 | 128 |
|
127 | 129 | (defn find-snippets [query] |
128 | | - (snippets/print-snippets (snippets-db (read-ctx "kit.edn")) query) |
| 130 | + (snippets/print-snippets (snippets-db (read-ctx default-edn)) query) |
129 | 131 | :done) |
130 | 132 |
|
131 | 133 | (defn find-snippet-ids [query] |
132 | | - (println (str/join ", " (map :id (snippets/match-snippets (snippets-db (read-ctx "kit.edn")) query)))) |
| 134 | + (println (str/join ", " (map :id (snippets/match-snippets (snippets-db (read-ctx default-edn)) query)))) |
133 | 135 | :done) |
134 | 136 |
|
135 | 137 | (defn list-snippets [] |
136 | | - (println (str/join "\n" (keys (snippets-db (read-ctx "kit.edn"))))) |
| 138 | + (println (str/join "\n" (keys (snippets-db (read-ctx default-edn))))) |
137 | 139 | :done) |
138 | 140 |
|
139 | 141 | (defn snippet [id & args] |
140 | | - (snippets/gen-snippet (snippets-db (read-ctx "kit.edn")) id args)) |
| 142 | + (snippets/gen-snippet (snippets-db (read-ctx default-edn)) id args)) |
141 | 143 |
|
142 | 144 | (comment |
143 | 145 | (t/run-tests 'kit.api)) |
0 commit comments