devn’s gists

devn / gist:1003844

Created June 2, 2011 02:53 — forked from weavejester/gist:1001206

Clojure on Heroku

	~/$ lein new ring-on-heroku
	Created new project in: /home/jim/Development/ring-on-heroku
	~/$ cd ring-on-heroku
	~/ring-on-heroku$ echo 'web: lein run -m ring-on-heroku.core' > Procfile
	~/ring-on-heroku$ cat > src/ring_on_heroku/core.clj
	(ns ring-on-heroku.core
	(:use ring.util.response
	ring.adapter.jetty))

	(defn app [req]

devn / state-is-a-fold.clj

Created June 21, 2011 00:16 — forked from ordnungswidrig/state-is-a-fold.clj

State is a fold over events

	(ns state-is-a-fold
	(:use clojure.test))

	;;; After all, state is a fold of events. For example let's say the events are a sequence of numbers
	;;; and we are folding by addition:
	(deftest simple
	(let [events [1 5 2 4 3]
	state (reduce + events)]
	(is (= 15 state))))

devn / gist:1212075

Created September 12, 2011 19:01

jrubyize rails 3 Yecht error

	/master ☣(solo)> JRUBY_OPTS=--1.9 bundle exec rake --trace
	rake aborted!
	uninitialized constant Syck::Yecht
	/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:326:in `Store'
	/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:2:in `Configatron'
	/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:1:in `(root)'
	/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron/store.rb:5:in `(root)'
	/Users/someusername/.rvm/gems/jruby-head@somecompany/gems/configatron-2.8.2/lib/configatron.rb:2:in `(root)'
	/Users/someusername/git/company_i_work_for/somecompany/photos/vendor/somecompany/foreignclient/lib/module_helpers.rb:3:in `(root)'
	/Users/someusername/git/company_i_work_for/somecompany/photos/vendor/somecompany/foreignclient/lib/foreignclient.rb:12:in `(root)'

devn / gemstoclojure.clj

Created September 17, 2011 17:39 — forked from yokolet/gemstoclojure.clj

	(ns demo.gemstoclojure
	(:require [ring.adapater.jetty :as jetty]
	[clojure.contrib.io :as io]
	[clojure.contrib.classpath :as cp])
	(:import [org.jruby.embed ScriptingContainer LocalContextScope]))

	(def container (ScriptingContainer. LocalContextScope/THREADSAFE))

	(println (cp/classpath))
	(println (io/pwd))

devn / gist:1224410

Created September 17, 2011 21:55

def'd haml-engine cannot be eval'd via the REPL?

	(ns blog.core
	(:require [ring.adapter.jetty :as jetty]
	[clojure.contrib.io :as io]
	[clojure.contrib.classpath :as cp])
	(:import [org.jruby.embed ScriptingContainer LocalContextScope]))

	(def scripting-container (ScriptingContainer. LocalContextScope/THREADSAFE))

	(defn execute-rb [rb-string]
	(. scripting-container runScriptlet rb-string))

devn / static-asset-route.clj

Created October 11, 2011 18:31

static-file-routes.clj

	(def routes
	(-> (app
	["examples" text] {:get [(fn [req] (walton-html text))]}
	[#".*\.js"] {:get [(file-response "resources/public")]}
	[#".*\.css"] {:get [(file-response "resources/public")]})
	(wrap-file "resources/public")))

devn / block_local_vars.rb

Created November 8, 2011 21:49

block local variables

devn / clojure_logo.txt

Created November 17, 2011 18:31

ascii clojure logo

devn / clojure logo with sten.txt

Created November 17, 2011 18:35

clojure logo with "clojureclojure...clojure" stenography

devn / ascii-clojure-logo-3.txt

Created November 17, 2011 18:39

ascii clojure logo #3

	qQQggggWWWWWWWBgggpQQ,
	qggdWWWWWWWWWWWWWWWWWWWWWWWWgpQ,
	QgWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWBpQ
	QgWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWp,
	\g#WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWBp
	\gWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWBp
	gWW"""\ 7"""WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWBp
	" "W"" ""WWWWWWWWWWWWWWWWWWWk,
	,,,, "WWWWWWWWWWWWWWWWWB,
	QQQgggpQ, JEEEEEEEEENmqQ, "MWWWWWWWWWWWWWWWp

Devin Walters devn