first steps with bb

clj-bb-rewrite
Michael Jerger 2 months ago
parent e96581754c
commit 52db785f8b

@ -0,0 +1,2 @@
{:deps {dda/dda-devops-build {:local/root "."}}}

@ -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…
Cancel
Save