Skip to content

Instantly share code, notes, and snippets.

View drewr's full-sized avatar
👋

Drew Raines drewr

👋
181 followers · 73 following
View GitHub Profile
@drewr
drewr / clojure.el
Created March 30, 2010 16:55
(add-to-list 'load-path (expand-file-name "~/elisp/slime"))
(add-to-list 'load-path (expand-file-name "~/elisp/slime/contrib"))
(require 'slime)
(slime-setup '(slime-repl))
(add-to-list 'load-path (expand-file-name "~/elisp/clojure-mode"))
(add-to-list 'load-path (expand-file-name "~/elisp/swank-clojure"))
(require 'clojure-mode)
(add-hook 'clojure-mode-hook 'aar/lispy-parens)
(load "swank-clojure")
@drewr
drewr / gist:359490
Created April 7, 2010 21:31
% rlwrap java -jar clojure.jar
Clojure 1.2.0-master-SNAPSHOT
user=> (deftype Foo [] clojure.lang.IPersistentMap)
#'user/Foo
user=> (merge {} (Foo))
java.lang.NullPointerException (NO_SOURCE_FILE:0)
user=> (merge (Foo) {})
java.lang.UnsupportedOperationException: nth not supported on this type: PersistentArrayMap (NO_SOURCE_FILE:0)
user=> ^D
@drewr
drewr / gist:367250
Created April 15, 2010 15:38
user=> (defrecord Foo [])
user.Foo
user=> (Foo)
java.lang.Exception: Expecting var, but Foo is mapped to class user.Foo (NO_SOURCE_FILE:0)
user=> (defrecord Foo [bar baz])
user.Foo
user=> (Foo 1 2)
java.lang.Exception: Expecting var, but Foo is mapped to class user.Foo (NO_SOURCE_FILE:0)
@drewr
drewr / gist:379951
Created April 26, 2010 21:23
java.lang.ClassCastException
[Thrown class java.lang.RuntimeException]
Restarts:
0: [QUIT] Quit to the SLIME top level
1: [CAUSE1] Invoke debugger on cause [Thrown class java.lang.ClassCastException]
Backtrace:
0: clojure.lang.LazySeq.sval(LazySeq.java:47)
1: clojure.lang.LazySeq.seq(LazySeq.java:56)
@drewr
drewr / empty-dir.clj
Created May 4, 2010 14:53
(do
(-> (java.io.File. "/tmp/foo/bar/baz") .mkdirs)
(-> (java.io.File. "/tmp/foo/bar") .list seq))
;; => ("baz")
@drewr
drewr / rand.clj
Created May 20, 2010 19:37
(ns foo.randomizer
(:use [clojure.test]))
(defn delete [coll idx]
(if (<= (inc idx) (count coll))
(let [coll (vec coll)]
(concat (subvec coll 0 idx) (subvec coll (inc idx) (count coll))))
coll))
(defn randomize [coll]
@drewr
drewr / id_dsa.pub
Created September 10, 2010 14:02
ssh-dss AAAAB3NzaC1kc3MAAACBAJKqbq7Ycql2sxAyA/XbuP3OOXZIpc9ttmaK7hmdVTweM+17K+FbPLE5eEeeNcmlWcCbNL1TbG8wRr5NfgxSe0lWOTyIhHp8S0jOHFAL8DFbcHD5d3YeuV8C/8Oa3Z54kcWgvQoeE6ZEuIi1HD3iX7xwSdF8X4ECKhObbk+a/M2jAAAAFQC+QBmBV8DBqtwpQt0D8awjc1ISRQAAAIAicoPYfvrSJMm1r8L9aluy7DwUbE8j4L7fyDzMqyFlHtEGSVHVuSGd4wIjej0XK+BXGbrgTpPmIR0yUSTLNUIPwAVdAuultkHTrEonxjmFV7xhZkjTJLCLFWv3/S3rcSIsTwTzI27mxR/bqlsXEjAddxmw7WCIftcFv9f8kuTjXQAAAIBXidiAyoHJIkovyvkKdZT6sXLraq6TiZu0L7ZQDHjCjrzZm4FHY/HNpEJkdPWQl/djgdWmMVgNXzr6QsrKvQzcgkM1M4zjrPrgJM/UNLD1UTbJqV3li5nkRuzkfSqndJmu4AYvRpLOzHCayaU8qlf59t3HOHK5d26cY9hdVN5zIQ== aar@packer
@drewr
drewr / join_path.clj
Created September 30, 2010 14:00
(defmacro join-path [& paths]
`(-> ~@(for [p paths] `(java.io.File. ~p))))
user> (join-path "/foo///" "///bar" "/baz////")
#<File /foo/bar/baz>
user>
@drewr
drewr / es_stats.py
Created January 7, 2011 03:26
import sys, json, functools, time
if sys.stdin.isatty():
data = json.loads(file("/tmp/status").read())
else:
data = json.loads(sys.stdin.read())
bytes = 0
docs = 0
shardn = 0
@drewr
drewr / jsonpath.py
Created January 17, 2011 22:03
"""
An XPath for JSON, modified by Drew Raines
A port of the Perl, and JavaScript versions of JSONPath
see http://goessner.net/articles/JsonPath/
Based on on JavaScript version by Stefan Goessner at:
http://code.google.com/p/jsonpath/
and Perl version by Kate Rhodes at:
http://github.com/masukomi/jsonpath-perl/tree/master