Moved make-auth to leiningen.deps from leiningen.deploy. Modified lei…

…ningen.deps/make-deps-task to use make-auth.

src/leiningen/deploy.clj

@@ -5,7 +5,7 @@
         [leiningen.jar :only [jar]]
         [leiningen.pom :only [pom]]
         [leiningen.util.maven :only [make-model make-artifact]]
-        [leiningen.deps :only [make-repository]]
+        [leiningen.deps :only [make-repository make-auth]]
         [clojure.java.io :only [file]])
   (:import [org.apache.maven.artifact.ant DeployTask Pom Authentication]
            [org.apache.maven.project MavenProject]))
@@ -19,18 +19,6 @@
   (let [options (apply hash-map options)]
     (zipmap (map keyword (keys options)) (vals options))))
 
-(defn make-auth [url options]
-  (let [auth (Authentication.)
-        user-options (when-let [user-opts (resolve 'user/leiningen-auth)]
-                       (get @user-opts url))
-        {:keys [username password passphrase
-                private-key]} (merge user-options options)]
-    (when username (.setUserName auth username))
-    (when password (.setPassword auth password))
-    (when passphrase (.setPassphrase auth passphrase))
-    (when private-key (.setPrivateKey auth private-key))
-    auth))
-
 (defn make-target-repo [repo-url auth-options]
   (let [repo (make-repository ["remote repository" repo-url])]
     (when-let [auth (make-auth repo-url auth-options)]

src/leiningen/deps.clj

@@ -22,6 +22,18 @@
                                                     (.setPassword password))))))
     repo))
 
+(defn make-auth [url options]
+  (let [auth (Authentication.)
+        user-options (when-let [user-opts (resolve 'user/leiningen-auth)]
+                       (get @user-opts url))
+        {:keys [username password passphrase
+                private-key]} (merge user-options options)]
+    (when username (.setUserName auth username))
+    (when password (.setPassword auth password))
+    (when passphrase (.setPassphrase auth passphrase))
+    (when private-key (.setPrivateKey auth private-key))
+    auth))
+
 ;; Add symlinking to Lancet's toolbox.
 (lancet/define-ant-task symlink symlink)
 
@@ -59,8 +71,12 @@
     (.setBasedir lancet/ant-project (:root project))
     (.setFilesetId deps-task "dependency.fileset")
     (.setPathId deps-task (:name project))
-    (doseq [r (map make-repository (repositories-for project))]
-      (.addConfiguredRemoteRepository deps-task r))
+    (doseq [[id settings] (repositories-for project)]
+      (let [r (make-repository [id settings])
+            repo-url (if (string? settings) settings (:url settings))]
+        (when-let [auth (make-auth repo-url (if (map? settings) settings {}))]
+          (.addAuthentication r auth))
+        (.addConfiguredRemoteRepository deps-task r)))
     (doseq [dep (project deps-set)]
       (.addDependency deps-task (make-dependency dep)))
     deps-task))