first steps with bb
parent
e96581754c
commit
52db785f8b
@ -0,0 +1,6 @@
|
||||
#!/usr/bin/env bb
|
||||
|
||||
(require '[dda.devops-build.main :as build])
|
||||
|
||||
(when (= *file* (System/getProperty "babashka.file"))
|
||||
(apply build/-main *command-line-args*))
|
@ -0,0 +1,3 @@
|
||||
{:paths ["src/main/clj"]
|
||||
:deps {org.clojure/spec.alpha {:mvn/version "0.4.233"}
|
||||
orchestra {:mvn/version "2021.01.01-1"}}}
|
@ -0,0 +1,17 @@
|
||||
(ns dda.devops-build.main)
|
||||
(require '[clojure.spec.alpha :as s])
|
||||
|
||||
(s/def ::options (s/* #{"-h"}))
|
||||
(s/def ::cmd-args (s/cat :options ::options
|
||||
:args any?))
|
||||
|
||||
(defn invalid-args-msg
|
||||
[spec args]
|
||||
(s/explain spec args)
|
||||
(println (str "Bad commandline arguments\n")))
|
||||
|
||||
(defn -main [& cmd-args]
|
||||
(let [parsed-args-cmd (s/conform ::cmd-args cmd-args)]
|
||||
(if (= ::s/invalid parsed-args-cmd)
|
||||
(invalid-args-msg ::cmd-args cmd-args)
|
||||
(println parsed-args-cmd))))
|
Loading…
Reference in New Issue