(ns leiningen.deploy

"Build and deploy jar to remote repository."

(:require [cemerick.pomegranate.aether :as aether]

[leiningen.core.classpath :as classpath]

[leiningen.core.main :as main]

[leiningen.core.eval :as eval]

[clojure.java.io :as io]

[leiningen.pom :as pom]

[leiningen.jar :as jar]))

(defn- abort-message [message]

(cond (re-find #"Return code is 405" message)

(str message "\n" "Ensure you are deploying over SSL.")

(re-find #"Return code is 401" message)

(str message "\n" "See `lein help deploy` for an explanation of how to"

" specify credentials.")

:else message))

(defn add-auth-interactively [[id settings]]

(if (or (and (:username settings) (some settings [:password :passphrase

:private-key-file]))

(.startsWith (:url settings) "file://"))

[id settings]

(do

(println "No credentials found for" id)

(println "See `lein help deploying` for how to configure credentials.")

(print "Username: ") (flush)

(let [username (read-line)

password (.readPassword (System/console) "%s"

(into-array ["Password: "]))]

[id (assoc settings :username username :password password)]))))

(defn repo-for [project name]

(let [[settings] (for [[id settings] (concat (:deploy-repositories project)

(:repositories project)

[[name {:url name}]])

:when (= id name)] settings)]

(-> [name settings]

(classpath/add-repo-auth)

(add-auth-interactively))))

(defn sign [file]

(let [exit (binding [*out* (java.io.StringWriter.)]

(eval/sh "gpg" "--yes" "-ab" file))]

(when-not (zero? exit)

(main/abort "Could not sign" file))

(str file ".asc")))

(defn signatures-for [jar-file pom-file coords]

{(into coords [:extension "jar.asc"]) (sign jar-file)

(into coords [:extension "pom.asc"]) (sign pom-file)})

(defn files-for [project repo]

(let [coords [(symbol (:group project) (:name project)) (:version project)]

jar-file (jar/jar project)

pom-file (pom/pom project)]

(merge {(into coords [:extension "jar"]) jar-file

(into coords [:extension "pom"]) pom-file}

(if (and (:sign-releases (second repo) true)

(not (.endsWith (:version project) "-SNAPSHOT")))

(signatures-for jar-file pom-file coords)))))

(defn warn-missing-metadata [project]

(doseq [key [:description :license :url]]

(when (or (nil? (project key)) (re-find #"FIXME" (str (project key))))

(main/info "WARNING: please set" key "in project.clj."))))

(defn deploy

"Build jar and deploy to remote repository.

([project repository-name]

(warn-missing-metadata project)

(let [repo (repo-for project repository-name)

files (files-for project repo)]

(try

(main/debug "Deploying" files "to" repo)

(aether/deploy-artifacts :artifacts (keys files)

:files files

:transfer-listener :stdout

:repository [repo])

(catch org.sonatype.aether.deployment.DeploymentException e

(when main/*debug* (.printStackTrace e))

(main/abort (abort-message (.getMessage e)))))))

([project]

(deploy project (if (pom/snapshot? project)

"snapshots"

"releases"))))