From ec435b48a6c88e42d5569f5f6d664a8123b05dac Mon Sep 17 00:00:00 2001 From: Michael Grubb Date: Sun, 13 Jan 2013 21:26:20 -0600 Subject: [PATCH] Emit warning when user profile is in project files This implements issue #890. It warns if a :user profile is found in either project.clj or a profiles.clj in the project directory. --- leiningen-core/src/leiningen/core/project.clj | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/leiningen-core/src/leiningen/core/project.clj b/leiningen-core/src/leiningen/core/project.clj index a702fbe9..d3910f19 100755 --- a/leiningen-core/src/leiningen/core/project.clj +++ b/leiningen-core/src/leiningen/core/project.clj @@ -362,8 +362,16 @@ (alter-var-root #'warn-user-repos memoize) +(defn- warn-user-profile [profiles] + (when (contains? profiles :user) + (println "WARNING: user-level profile defined in project files."))) + +(alter-var-root #'warn-user-profile memoize) + (defn- project-profiles [project] - (utils/read-file (io/file (:root project) "profiles.clj"))) + (let [profiles (utils/read-file (io/file (:root project) "profiles.clj"))] + (warn-user-profile profiles) + profiles)) (defn- read-profiles "Read profiles from a variety of sources. @@ -373,6 +381,7 @@ project map." [project] (warn-user-repos) + (warn-user-profile (:profiles project)) (merge @default-profiles (user/profiles) (:profiles project) (project-profiles project)))