Improve help output

pull/3/head
bom 5 days ago committed by bom
parent 4cbaac8d25
commit 4dfdfdcbb5

@ -13,10 +13,14 @@
(defn usage [name] (defn usage [name]
(str (str
"usage: "usage:
-v | --version : Shows project version
-h : Shows help
" name " {your configuraton file} {your authorization file}")) " name " {your configuraton file} {your authorization file}"))
(s/def ::options (s/* #{"-h" "-v" "--version"})) (s/def ::options (s/* #{"-h"
"-v" "--version"}))
(s/def ::filename (s/and string? (s/def ::filename (s/and string?
#(not (cs/starts-with? % "-")))) #(not (cs/starts-with? % "-"))))
(s/def ::cmd-args (s/cat :options ::options (s/def ::cmd-args (s/cat :options ::options

Loading…
Cancel
Save