Remove support for :run-aliases.

This commit is contained in:
Phil Hagelberg 2012-05-24 18:27:19 -07:00
parent ff6bf8ae9b
commit 6ed63b0254
3 changed files with 3 additions and 19 deletions

View file

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

View file

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

View 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)