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

check existence of init script

Browse source
This commit is contained in:
Alex Ott 2010-08-01 16:27:55 +02:00
parent 690093eed3
commit e5cc06e11d
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/leiningen/repl.clj
View file

@ -3,13 +3,14 @@
(:use [leiningen.compile :only [eval-in-project]] (:use [leiningen.compile :only [eval-in-project]]
[clojure.java.io :only [copy]]) [clojure.java.io :only [copy]])
(:import [java.net Socket] (:import [java.net Socket]
[java.io OutputStreamWriter InputStreamReader])) [java.io OutputStreamWriter InputStreamReader File]))
(defn repl-server [project port] (defn repl-server [project port]
(let [init-form (and (or (:init-script project) (:main project)) (let [init-form (and (or (:init-script project) (:main project))
[:init `#(let [is# ~(:init-script project) [:init `#(let [is# ~(:init-script project)
mn# '~(:main project)] mn# '~(:main project)]
(when is# (load-file is#)) (when (and is# (.exists (File. is#)))
(load-file is#))
(when mn# (doto mn# require in-ns)))])] (when mn# (doto mn# require in-ns)))])]
`(do (ns ~'user `(do (ns ~'user
(:use [~'clojure.main :only [~'repl]]) (:use [~'clojure.main :only [~'repl]])