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

Load user-init file earlier so aliases may be set.

Browse source
This commit is contained in:
Phil Hagelberg 2010-08-29 13:41:03 -07:00
parent 8f50fa7572
commit bcb6b1b42d
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

@ -115,7 +115,7 @@
(println "Warning: problem requiring hooks:" (.getMessage e))
(println "...continuing without hooks completely loaded.")))))
(defn user-init [project]
(defn user-init []
(let [init-file (File. (home-dir) "init.clj")]
(when (.exists init-file)
(load-file (.getAbsolutePath init-file)))))
@ -202,12 +202,12 @@ Takes major, minor and incremental versions into account."
(defn -main
([& [task-name & args]]
(user-init)
(let [task-name (or (@aliases task-name) task-name "help")
project (if (.exists (File. "project.clj")) (read-project))
compile-path (:compile-path project)]
(when (:min-lein-version project)
(verify-min-version project))
(user-init project)
(when compile-path (.mkdirs (File. compile-path)))
(binding [*compile-path* compile-path]
(when project