Alex Petrov ifesdjeen

In order to setup leiningen with pgp, you have to create a ~/.lein/credentials.clj file and put following contents into it:

{
  #"https:\/\/your.nexus.server.address\/" {:username "your_username" :password "supersecret"}
}

After that you can run lein deploy.

tmux shortcuts & cheatsheet

start new:

tmux

start new with session name:

tmux new -s myname

	(defn repeatedly*
	"Like `repeatedly` but faster and returns given collection type."
	[coll n f]
	(if-not (instance? clojure.lang.IEditableCollection coll)
	(loop [v coll idx 0]
	(if (>= idx n)
	v
	(recur (conj v (f)) (inc idx))))
	(loop [v (transient coll) idx 0]
	(if (>= idx n)

	(defn ^String head
	"Returns the first n characters of s."
	[n ^String s]
	(if (> (count s) n)
	s
	(.substring s (- 0 n))))

	;; Writing something remotely reminding nlet
	(defmacro body-and-bindings
	[bindings & body]
	`(let [~(first bindings) 1
	~(second bindings) 2]
	~@body))

	;; Expands to:
	(let* [a 1 b 2] (+ a b))

	(ns my-test-ns
	(:require [clojure.test :refer :all])
	(:import [java.util.concurrent CountDownLatch TimeUnit])

	(defmacro with-latch
	[countdown-from & body]
	`(let [latch# (CountDownLatch. ~countdown-from)
	~'latch latch#]
	~@body
	(.await latch# 5 TimeUnit/SECONDS)

	(defmacro my-let
	[bindings & body]
	(assert (-> bindings count even?) "Bindings count can only be even.")
	`((fn [~@(take-nth 2 bindings)]
	~@body)
	~@(take-nth 2 (rest bindings))))

	#!/usr/bin/ruby

	res = `lein do pom, jar`
	jar = res.split("\n").last.gsub("Created ", "")
	puts "Gonna deploy jar: #{jar}"
	exec "scp pom.xml #{jar} [email protected]:"

	(defn max-from-list
	"Get the maximum from list using recursion"
	[[head & tail]]
	(if (empty? tail)
	head
	(let [max-in-tail (max-from-list tail)]
	(if (> head max-in-tail)
	head
	max-in-tail))))