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

Move to leiningen.core.

Browse source
This commit is contained in:
Phil Hagelberg 2009-11-02 21:22:11 -08:00
parent b62c7c0190
commit 93bcde9126
2 changed files with 17 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/leiningen.clj
View file

@ -1,9 +0,0 @@
(ns leiningen)
(defmacro defproject [project-name & args]
`(def ~project-name (assoc (apply hash-map (quote ~args))
:name ~(name project-name)
:root ~(.getParent (java.io.File. *file*)))))
(defn read-project []
@(load-file "build.clj"))

19
src/leiningen/core.clj
View file

@ -1,8 +1,23 @@
(ns leiningen.core
(:require [leiningen deps test compile jar uberjar help])
(:require [leiningen deps test compile jar uberjar help]
[clojure.contrib.with-ns])
(:gen-class))
(declare project)
(defmacro defproject [project-name & args]
`(do (def ~project-name (assoc (apply hash-map (quote ~args))
:name ~(name project-name)
:root ~(.getParent (java.io.File. *file*))))
(let [project# ~project-name]
(with-ns 'leiningen.core
(def '~'project project#)))))
(defn read-project []
(load-file "build.clj")
project)
(defn -main [command & args]
(let [action (ns-resolve (symbol (str "leiningen." command))
(symbol command))]
(apply action (leiningen/read-project) args)))
(apply action (read-project) args)))