luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support task keyword

Browse source
This commit is contained in:
Michiel Borkent 2021-03-16 10:43:51 +01:00
parent 95c53a9e49
commit 1f1b6cfde1
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/babashka/main.clj
View file

@ -81,14 +81,14 @@
(let [opt (first options)] (let [opt (first options)]
(case opt (case opt
("--") (assoc opts-map :command-line-args (next options)) ("--") (assoc opts-map :command-line-args (next options))
("--clojure") (assoc opts-map :clojure true ("--clojure" ":clojure") (assoc opts-map :clojure true
:opts (rest options)) :opts (rest options))
("--version") {:version true} ("--version" ":version") {:version true}
("--help" "-h" "-?") {:help? true} ("--help" "-h" "-?") {:help? true}
("--verbose")(recur (next options) ("--verbose")(recur (next options)
(assoc opts-map (assoc opts-map
:verbose? true)) :verbose? true))
("--describe") (recur (next options) ("--describe" ":describe") (recur (next options)
(assoc opts-map (assoc opts-map
:describe? true)) :describe? true))
("--stream") (recur (next options) ("--stream") (recur (next options)
@ -126,12 +126,12 @@
(let [options (next options)] (let [options (next options)]
(recur (next options) (recur (next options)
(assoc opts-map :classpath (first options)))) (assoc opts-map :classpath (first options))))
("--uberscript") ("--uberscript" ":uberscript")
(let [options (next options)] (let [options (next options)]
(recur (next options) (recur (next options)
(assoc opts-map (assoc opts-map
:uberscript (first options)))) :uberscript (first options))))
("--uberjar") ("--uberjar" ":uberjar")
(let [options (next options)] (let [options (next options)]
(recur (next options) (recur (next options)
(assoc opts-map (assoc opts-map
@ -146,12 +146,12 @@
(recur (next options) (recur (next options)
(assoc opts-map (assoc opts-map
:jar (first options)))) :jar (first options))))
("--repl") ("--repl" ":repl")
(let [options (next options)] (let [options (next options)]
(recur (next options) (recur (next options)
(assoc opts-map (assoc opts-map
:repl true))) :repl true)))
("--socket-repl") ("--socket-repl" ":socket-repl")
(let [options (next options) (let [options (next options)
opt (first options) opt (first options)
opt (when (and opt (not (str/starts-with? opt "-"))) opt (when (and opt (not (str/starts-with? opt "-")))
@ -161,7 +161,7 @@
(recur options (recur options
(assoc opts-map (assoc opts-map
:socket-repl (or opt "1666")))) :socket-repl (or opt "1666"))))
("--nrepl-server") ("--nrepl-server" ":nrepl-server")
(let [options (next options) (let [options (next options)
opt (first options) opt (first options)
opt (when (and opt (not (str/starts-with? opt "-"))) opt (when (and opt (not (str/starts-with? opt "-")))