meissa/c4k-common
6
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improve help output

Browse source
This commit is contained in:
bom 2024-06-28 14:20:55 +02:00 committed by bom
parent 4cbaac8d25
commit 4dfdfdcbb5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/main/clj/dda/c4k_common/uberjar.clj
View file

@ -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