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

Enough is enough.

Browse source
This commit is contained in:
Phil Hagelberg 2010-04-26 21:24:19 -07:00
parent 85b84bc4fa
commit 39732d5b64
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/leiningen/new.clj
View file

@ -9,6 +9,8 @@ Neither group-id nor artifact-id may contain slashes."
(defn new (defn new
([project-name project-dir] ([project-name project-dir]
(when (re-find #"(?<!clo)jure" project-name)
(throw (IllegalArgumentException. "*jure names are no longer allowed.")))
(let [project-name (symbol project-name) (let [project-name (symbol project-name)
group-id (namespace project-name) group-id (namespace project-name)
artifact-id (name project-name)] artifact-id (name project-name)]