Remove support for :run-aliases.
This commit is contained in:
parent
ff6bf8ae9b
commit
6ed63b0254
3 changed files with 3 additions and 19 deletions
|
@ -40,18 +40,11 @@ like clojure.main/main.
|
|||
USAGE: lein run -m NAMESPACE[/MAIN_FUNCTION] [ARGS...]
|
||||
Calls the main function in the specified namespace.
|
||||
|
||||
USAGE: lein run :alias [ARGS...]
|
||||
Aliases can be defined in project.clj as
|
||||
:run-aliases {:alias a.namespace/my-main
|
||||
:alias2 another.namespace}
|
||||
|
||||
See also \"lein help trampoline\" for a way to save memory using this task."
|
||||
[project & [flag & args :as all-args]]
|
||||
(let [kw (when (= (first flag) \:) (keyword (subs flag 1)))
|
||||
alias (get (:run-aliases project) kw)
|
||||
(let [kw (if (= (first flag) \:) (keyword (subs flag 1)))
|
||||
all-args (if (= flag "--") args all-args)]
|
||||
(cond alias (apply run project "-m" (cons alias args))
|
||||
(= flag "-m") (if (first args)
|
||||
(cond (= flag "-m") (if (first args)
|
||||
(apply run-main project args)
|
||||
(main/abort "Option -m requires a namespace argument."))
|
||||
(:main project) (apply run-main project (:main project) all-args)
|
||||
|
|
|
@ -20,13 +20,6 @@
|
|||
(run tricky-name-project "-m" "org.domain.tricky-name.munch" "/unreadable")
|
||||
(is (= ":munched (\"/unreadable\")" (slurp out-file))))
|
||||
|
||||
(deftest test-aliases
|
||||
(run tricky-name-project ":bbb" "/unreadable")
|
||||
(is (= "BRUNCH" (slurp out-file)))
|
||||
(delete-file out-file :silently)
|
||||
(run tricky-name-project ":mmm" "/unreadable")
|
||||
(is (= ":munched (\"/unreadable\")" (slurp out-file))))
|
||||
|
||||
(deftest test-escape-args
|
||||
(run tricky-name-project "--" ":bbb")
|
||||
(is (= "nom::bbb" (slurp out-file)))
|
||||
|
|
|
@ -2,6 +2,4 @@
|
|||
:description "One with a tricky group and project name"
|
||||
:dependencies [[org.clojure/clojure "1.2.0"]]
|
||||
:shell-wrapper true
|
||||
:main ^{:skip-aot true} org.domain.tricky-name.core
|
||||
:run-aliases {:bbb org.domain.tricky-name.brunch
|
||||
:mmm org.domain.tricky-name.munch})
|
||||
:main ^{:skip-aot true} org.domain.tricky-name.core)
|
||||
|
|
Loading…
Reference in a new issue