Peter Taoussanis ptaoussanis

👋

Hope you're having an awesome day! :-)

Clojure/Script open source llama

ptaoussanis / gist:3045473

Created July 4, 2012 05:10

Change standard Timbre appenders to use println instead of atomic (buffering) printer

	(let [new-fn (ƒ [{:keys [more] :as args}]
	(apply println (prefixed-message args) more))]
	(set-config! [:appenders :standard-out :fn] new-fn)
	(set-config! [:appenders :standard-out-or-err :fn] new-fn))

ptaoussanis / resource_modified.clj

Created June 15, 2012 11:48

Fn to check for modified resource files

	(def some-file-resources-modified?
	"Returns true iff any of the files backing given resources have changed
	since this function was last called."
	(let [times (atom {})]
	(fn modified?
	([resource-name & more] (some modified? (cons resource-name more)))
	([resource-name]
	(when-let [^File file (try (->> resource-name io/resource io/file)
	(catch Exception _ nil))]
	(let [last-modified (.lastModified file)]

ptaoussanis / smart_memoize.clj

Created June 14, 2012 11:19

More powerful memoize for Clojure

	(def ^:private gc-sm-cache!
	"Maintains maximum cache size by intelligently pruning less valuable items."
	(let [gc-running? (atom false)]
	(fn [cache ttl max-items now]
	(when-not @gc-running?
	(reset! gc-running? true)
	(let [snapshot @cache