Tim McCormack timmc

Using GPG with lein deploy

First, a keypair

I used gpg2 --gen-key to create a key. I chose 4096-bit RSA with a 27 month expiration. (I plan to renew my key every 2 years, with a 3 month grace period.) For the comment field I used "software signing".

Now I can see it in my key list:

	(defn fibseq
	([]
	(cons 0 (cons 1 (fibseq 0 1))))
	([n0 n1]
	(let [n2 (+' n0 n1)] ;; using auto-promoting addition
	(cons n2 (lazy-seq (fibseq n1 n2))))))

	(reduce + (filter even? (take-while #(<= % 4e6) (fibseq))))

	;; user=> (nth (fibseq) 500)

	/**
	* Truncate the input and add an ellipsis, if necessary.
	* @param in String to possibly truncate.
	* @param max Maximum length of output
	* @param ellipsis Ellipsis string, defaults to "..."
	* @return String whose length will never exceed <code>max</code> UTF-16 chars
	* @throws IllegalArgumentException if <code>max < ellipsis.length()</code>
	*/
	public static String ellipsize(String in, int max, String ellipsis) throws IllegalArgumentException {
	if (in == null) {

	;; An exercise in writing #'rest without [0-9a-zA-Z], by Tim McCormack
	;; Note that the input must be a vector, although the code could easily be
	;; modified to vector-ify any input coll.

	;; Let's take this a step at a time...

	(#(((% 1) :main) %) ;; call the main method with the input and fns
	[[0 1 2 3 4 5] ;; the input is hardcoded here
	;; fns are accessed by static indices into the fn table
	{:main #(if (= (% 0) [])

	(defn write-builder [cube & ats]
	(loop [builder (WriteBuilder. cube)
	ats ats]
	(if (empty? ats)
	builder
	(recur (.at builder# (first ats#) ...missing-arg...)
	(rest ats#)))))

	(write-builder cube [[time (now)]])

	(defmacro builder [initial method & argsets]
	(list* 'doto initial
	(for [args argsets]
	`(~method ~@args))))

	;; Example:

	(builder (StringBuilder.) .append [1] ["a"])

	;; becomes...


	;; Spit reified class to disk
	(alter-var-root #'compile-files (constantly true))
	;;=> true

	;; Create an abstract-ish class
	(class (reify java.util.List (size [this] 10)))
	;;=> clj.core$eval1062$reify__1063

	;; Nope, it's not an "abstract class"

	In: {:creds :gpg, :username :gpg, :url https://clojars.org/repo/, :signing {:gpg-key 0x00D85767}, :password :gpg}
	Out: [clojars {:signing :gpg-key, :url https://clojars.org/repo/, :username timmc, :password password-here}]

	(deftest resolving-repo-creds
	(with-redefs [credentials-fn (constantly {#"^https://clojars\.org/.*"
	{:username "u" :password "p"}})]
	(is (= (resolve-credentials {:url "https://clojars.org/repo"
	:creds :gpg
	:signing {:gpg-key "0x00D85767"}})
	{:url "https://clojars.org/repo"
	:username "u" :password "p"
	:signing {:gpg-key "0x00D85767"}}))))