Implement system-level profiles. Fixes #981.

leiningen-core/src/leiningen/core/project.clj

@@ -401,6 +401,9 @@
 
 (alter-var-root #'warn-user-profile memoize)
 
+(defn- system-profiles []
+  (user/load-profiles (io/file "/etc" "leiningen")))
+
 (defn- project-profiles [project]
   (let [profiles (utils/read-file (io/file (:root project) "profiles.clj"))]
     (warn-user-profile profiles)
@@ -415,7 +418,7 @@
   [project]
   (warn-user-repos (user/profiles))
   (warn-user-profile (:profiles project))
-  (merge @default-profiles (user/profiles)
+  (merge @default-profiles (system-profiles) (user/profiles)
          (:profiles project) (project-profiles project)))
 
 ;; # Lower-level profile plumbing: loading plugins, hooks, middleware, certs

leiningen-core/src/leiningen/core/user.clj

@@ -40,14 +40,14 @@
                               "from" (str (leiningen-home) "/profiles.d:"))
                      (println (.getMessage e))))))))))))
 
-(def ^:private load-profiles
-  "Load profiles.clj from your Leiningen home if present."
+(def ^:internal load-profiles
+  "Load profiles.clj from dir if present."
   (memoize
-   (fn []
-     (try (utils/read-file (io/file (leiningen-home) "profiles.clj"))
+   (fn [dir]
+     (try (utils/read-file (io/file dir "profiles.clj"))
           (catch Exception e
             (binding [*out* *err*]
-              (println "Error reading profiles.clj from" (leiningen-home))
+              (println "Error reading profiles.clj from" dir)
               (println (.getMessage e))))))))
 
 (def profiles
@@ -62,7 +62,7 @@
                         "in the profiles.d directory."))
              (throw (Exception. "Multiple profiles defined in ~/.lein")))]
        (try (apply merge-with error-fn
-                   (load-profiles) (profiles-d-profiles))
+                   (load-profiles (leiningen-home)) (profiles-d-profiles))
             (catch Exception e))))))
 
 (defn gpg-program