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

@ -13,10 +13,14 @@
(defn usage [name]
(str
"usage:
-v | --version : Shows project version
-h : Shows help
" 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?
#(not (cs/starts-with? % "-"))))
(s/def ::cmd-args (s/cat :options ::options