freakhill

i like a lot of stuff, drop me a msg if you're in tokyo :)

freakhill / conf

Created September 29, 2016 07:44

haproxy lua script for superserver (to use with s6)

	global
	lua-load '/servers/haproxy/superserver.lua'

	frontend tailon-frontend
	bind :9090
	tcp-request content set-var(txn.service_dir) str("/s6-supervised-servers/tailon")
	tcp-request content lua.extend-life
	default_backend tailon-backend

	backend tailon-backend

freakhill / user-reader-dispatch-macro.clj

Created January 22, 2020 13:10

because i was curious, also keywords not supporting spaces is puzzling, why?

	(ns keyword-reader-macro.core
	(:import [clojure.lang LispReader LispReader$StringReader]))

	(defn field []
	(.getDeclaredField LispReader "dispatchMacros"))

	(defn dispatch-macros []
	(.get (field) LispReader))

	(defn dispatch-reader!