yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make no-project-needed set an atom so plugins can add to it.

Browse source
This commit is contained in:
Phil Hagelberg 2010-02-13 09:31:51 -08:00
parent 21e5fc9b27
commit e4ae8b2bfd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leiningen/core.clj
View file

@ -51,7 +51,7 @@
(def aliases {"--help" "help" "-h" "help" "-?" "help" "-v" "version" (def aliases {"--help" "help" "-h" "help" "-?" "help" "-v" "version"
"--version" "version" "überjar" "uberjar"}) "--version" "version" "überjar" "uberjar"})
(def no-project-needed #{"new" "help" "version"}) (def no-project-needed (atom #{"new" "help" "version"}))
(defn resolve-task [task] (defn resolve-task [task]
(let [task-ns (symbol (str "leiningen." task)) (let [task-ns (symbol (str "leiningen." task))
@ -69,7 +69,7 @@
(defn -main [& [task & args]] (defn -main [& [task & args]]
(let [task (or (aliases task) task "help") (let [task (or (aliases task) task "help")
args (if (no-project-needed task) args (if (@no-project-needed task)
args args
(conj args (read-project))) (conj args (read-project)))
compile-path (:compile-path (first args))] compile-path (:compile-path (first args))]