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

Load user init script on Leiningen launch.

Browse source
This commit is contained in:
Phil Hagelberg 2010-08-08 12:12:19 -07:00
parent 2247d67e73
commit 6625672976
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/leiningen/core.clj
View file

@ -103,6 +103,11 @@
(println "Warning: problem requiring hooks:" (.getMessage e))
(println "...continuing without hooks completely loaded.")))))
(defn user-init [project]
(let [init-file (File. (get-home-dir) "init.clj")]
(when (.exists init-file)
(load-file (.getAbsolutePath init-file)))))
(defn ns->path [n]
(str (.. (str n)
(replace \- \_)
@ -160,6 +165,7 @@
(let [task-name (or (@aliases task-name) task-name "help")
project (if (project-needed? task-name) (read-project))
compile-path (:compile-path project)]
(user-init project)
(when compile-path (.mkdirs (File. compile-path)))
(binding [*compile-path* compile-path]
(when project