Improve help output

This commit is contained in:
bom 2024-06-28 14:20:55 +02:00 committed by bom
parent 4cbaac8d25
commit 4dfdfdcbb5

View file

@ -14,9 +14,13 @@
(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