Dan Lentz danlentz

danlentz / gist:9066119

Created February 18, 2014 07:26 — forked from stuartsierra/gist:1188879

	;;; XML parsing and clojure.zip

	;;; There's got to be a cleaner way to do this.

	;;; I have code like this:

	(defn jdks-loc [xml-zipper]
	(zip/down
	(first
	(filter #(let [n (zip/node %)]

danlentz / resource.clj

Created February 18, 2014 07:10 — forked from stuartsierra/resource.clj

	(ns resource
	"Automatic resource cleanup."
	(:import (java.lang.ref ReferenceQueue PhantomReference)))

	(def ^:private queue (ReferenceQueue.))

	(def ^:private cleanup-fns {})

	(defn resource
	"Returns a reference to x. At some point after the reference is

danlentz / better.clj

Created February 18, 2014 06:29 — forked from pingles/better.clj

	(defn subscriber-seq
	[ch qname]
	(let [[message-seq put] (pipe)]
	(letfn [(message-handler [ch msg-meta payload])
	(put {:ch ch :msg-meta msg-meta :payload payload})]
	(lc/subscribe ch qname message-handler :auto-ack true))
	message-seq))

	(defn payload-str
	[x]

danlentz / pipe.clj

Last active August 29, 2015 13:56 — forked from pingles/pipe.clj

	(let [[message-seq put] (pipe)]
	(letfn [(message-handler [ch msg-meta payload])
	(put {:ch ch :msg-meta msg-meta :payload payload})]
	(lc/subscribe ch qname message-handler :auto-ack true))
	message-seq)

	(let [[message-seq put] (pipe)]
	(letfn [(message-handler [ch msg-meta payload]
	(put {:ch ch :msg-meta msg-meta :payload payload}))]
	(lc/subscribe ch qname message-handler :auto-ack true))

danlentz / protocol.clj

Created February 18, 2014 05:39 — forked from pingles/protocol.clj

	(defprotocol ToClojure
	(to-clojure [x]))

	(extend-protocol ToClojure
	List (to-clojure [xs] (map to-clojure xs))
	RecommendedItem (to-clojure [x] {:item (.getItemID x)
	:value (.getValue x)}))

danlentz / dec2rom.clj

Created January 20, 2014 06:00 — forked from guilespi/dec2rom.clj

danlentz / parallel-words.clj

Created January 20, 2014 05:59 — forked from guilespi/parallel-words.clj


	(defn maybe-word
	[s]
	(if (= "" s) [] [s]))

	(defprotocol WordState
	(append-chunk [this chunk] "Append a chunk to current word state")
	(append-segment [this segment] "Append a segment to current word state")
	(to-word-list [this] "Returns the state as a list of words"))

danlentz / net.cljs

Created December 7, 2013 06:03 — forked from darkone23/net.cljs

	(ns example.net
	(:require [goog.net.WebSocket]
	[goog.events :refer (listen)]
	[cljs.core.async :as async :refer (chan <! >! put! close)]
	[cljs.core.async.impl.protocols :as proto])
	(:require-macros [cljs.core.async.macros :refer (go)]))

	(defn ws
	"WebSocket as a core.async channel
	returns a channel which delivers the ws chan then closes"

danlentz / instaparse-sexp.clj

Created December 4, 2013 06:07 — forked from pooya-raz/instaparse-sexp.clj

	(ns parse.core
	(:require [instaparse.core :as insta]))

	(def parser
	(insta/parser
	"sexp = lparen operation rparen
	<lparen> = <'('>
	<rparen> = <')'>
	operation = operator + args
	operator = '+'

danlentz / gist:7310561

Created November 4, 2013 22:46 — forked from pvh/gist:5060202

start by opening up PSQL

$ heroku pg:psql -a isis-db

\d+