File tree Expand file tree Collapse file tree 1 file changed +0
-20
lines changed Expand file tree Collapse file tree 1 file changed +0
-20
lines changed Original file line number Diff line number Diff line change 275
275
(argparse/argparse
276
276
help-text
277
277
278
- " syspath"
279
- {:short " m"
280
- :kind :option
281
- :help " Set the syspath" }
282
-
283
- " local"
284
- {:short " l"
285
- :kind :flag
286
- :help " Set the syspath to ./jpm_tree" }
287
-
288
278
:default
289
279
{:kind :accumulate
290
280
:help " Commands to run" }))
293
283
(unless ap (break ))
294
284
(unless (ap :default ) (break (help )))
295
285
296
- # Flag Configuration
297
- (when-let [local (get ap :local )]
298
- (os/mkdir " jpm_tree" )
299
- (os/mkdir " jpm_tree/man" )
300
- (os/mkdir " jpm_tree/bin" )
301
- (put root-env :binpath (path/abspath " jpm_tree/bin" ))
302
- (put root-env :manpath (path/abspath " jpm_tree/man" ))
303
- (put root-env *syspath* (path/abspath " jpm_tree" )))
304
- (when-let [sp (get ap :syspath )] (put root-env *syspath* sp ))
305
-
306
286
# Env Vars Configuration
307
287
(pm-config/read-env-variables root-env )
308
288
You can’t perform that action at this time.
0 commit comments