Robert Levy rplevy

I hereby claim:

I am rplevy on github.
I am rplevy (https://keybase.io/rplevy) on keybase.
I have a public key whose fingerprint is 6382 805E 6D33 870C 9A42 40B3 73C5 7C51 49A3 C990

To claim this, I am signing this object:

	(defmacro defshell (name cmd)
	`(defun ,name ()
	(interactive)
	(insert (shell-command-to-string ,cmd))))

	(defmacro defshellonreg (name cmd &optional replace)
	`(defun ,name (beg end)
	(interactive "r")
	(shell-command-on-region beg end ,cmd
	(if ,replace (current-buffer) nil)

	(defun htm2clj-region (beg end)
	(interactive "r")
	(shell-command-on-region beg end
	"html2clj"
	(current-buffer)
	t))

	(defun xml->clj-region (beg end)
	(interactive "r")
	(shell-command-on-region beg end
	"xmlclj"
	(current-buffer)
	t))

	-----BEGIN PGP SIGNED MESSAGE-----
	Hash: SHA512

	I verify that I am rplevy on mastodon.social
	-----BEGIN PGP SIGNATURE-----
	Version: Keybase OpenPGP v2.0.68
	Comment: https://keybase.io/crypto

	wsFcBAABCgAGBQJY4xcwAAoJEHPFfFFJo8mQ7LoQANVwr+sfT8tzZWCuyNsdLpsc
	hPK3SmUTCLRYa/8Olvq2MO/ZWTyuHfhDiRWqmksSIdAoR5oyiz0RC4fCpuZY4QeZ

	# in my .bashrc
	xmlclj() { planck -D funcool/tubax:0.2.0 -e "(require '[tubax.core :as tubax]) (require '[planck.core :refer [slurp]]) (require '[cljs.pprint :refer [pprint]])"'(pprint (tubax/xml->clj (slurp "'$1'")))'; }

	# example: xmlclj /tmp/foo.xml

	(require '[clojure.spec :as s])

	(defn enforce [spec data-value]
	(let [r (s/conform spec data-value)]
	(if (= r :clojure.spec/invalid)
	(throw (ex-info (str r) (s/explain-data spec data-value)))
	data-value)))

	(defn call-with-temporal-contract [f g contract-on-g]
	(let [function-calls (atom [])]