David Nolen swannodette

Lead developer of ClojureScript. Software Engineer at https://vouch.io

swannodette / name_that_nil.clj

Last active August 29, 2015 14:13 — forked from theotherzach/name_that_nil.clj

	(defn lookup-contract [m allowed]
	(reify
	clojure.lang.ILookup
	(valAt [coll k]
	(.valAt coll k nil))
	(valAt [coll k not-found]
	(if (contains? allowed m)
	(.valAt coll k not-found)
	(throw (IllegalArgumentException.
	(str k " violates lookup contract, allowed " allowed)))))))

swannodette / index.js

Last active August 29, 2015 14:07 — forked from leebyron/index.js

	var Benchmark = require('benchmark');
	var t = require('transducers.js');
	var ct = require('transducers-js');
	var Immutable = require('immutable');
	var suite = Benchmark.Suite('transducers');

	function benchArray(n) {
	var arr = new Immutable.Range(0, n).toVector();

	suite

swannodette / gist:9846e5032c8fb1d6dfa7

Last active August 29, 2015 14:05 — forked from rigdern/gist:fcef7327aee964d749b6

	(ns no-rerender.core
	(:require [om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true]))

	(enable-console-print!)

	(def app-state (atom [{:group "A" :text "An item of group A" :color "steelblue"}
	{:group "B" :text "An item of group B" :color "steelblue"}]))

	(def switch-color {"steelblue" "green"

swannodette / gist:8ebc4bb7e5d526d0fac4

Created July 15, 2014 18:17 — forked from jdkealy/gist:14bc7181039ddef20367

	(ns ptv.scratch
	(:require
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true]))

	(enable-console-print!)

	(def app-state (atom {}))

	(defn component-one [data owner opts]

swannodette / bench.clj

Created June 2, 2014 18:12 — forked from hiredman/bench.clj

	#!/usr/bin/java -jar clojure-1.7.0-master-SNAPSHOT.jar

	(let [pom-uber-jar
	(str "http://thelibraryofcongress.s3.amazonaws.com/"
	"pomegranate-0.0.13-SNAPSHOT-jar-with-dependencies.jar")
	cl (java.net.URLClassLoader. (into-array [(java.net.URL. pom-uber-jar)]))
	cx (.getContextClassLoader (Thread/currentThread))]
	(push-thread-bindings {clojure.lang.Compiler/LOADER cl})

swannodette / gist:9711228

Last active August 29, 2015 13:57 — forked from anonymous/gist:9711155

	(defproject data_analyzer "0.1.0-SNAPSHOT"
	:description "FIXME: write description"
	:url "http://example.com/FIXME"
	:license {:name "Eclipse Public License"
	:url "http://www.eclipse.org/legal/epl-v10.html"}
	:main analyzer.core
	:source-paths ["src/clj" "src/cljs"]
	:dependencies [[org.clojure/clojure "1.5.1"]
	[org.clojure/data.json "0.2.4"]
	[org.clojure/clojurescript "0.0-2173"]

swannodette / project.clj

Last active December 15, 2015 19:11 — forked from hsestupin/project.clj

	(defproject cljs-gwt "0.1.0-SNAPSHOT"
	:description "FIXME: write this!"
	:url "http://example.com/FIXME"

	:dependencies [[org.clojure/clojure "1.5.1"]
	[org.clojure/clojurescript "0.0-2138"]
	[compojure "1.0.4"]
	[hiccup "1.0.0"]]

	:plugins [[lein-cljsbuild "1.0.1"]

swannodette / wont_work.cljs

Last active January 2, 2016 15:39 — forked from haywoood/wont_work.cljs

	(ns test.core
	(:require-macros [cljs.core.async.macros :refer [go]])
	(:require [cljs.core.async :refer [<! chan put!]]
	[om.core :as om :include-macros true]
	[om.dom :as dom :include-macros true]))

	(enable-console-print!)

	(def aidc (chan))

swannodette / busted.cljs

Created December 17, 2013 06:28 — forked from cemerick/busted.cljs

swannodette / match-expander-ex.rkt

Created June 18, 2013 13:42 — forked from samth/match-expander-ex.rkt