Skip to content

Instantly share code, notes, and snippets.

View serfn.clj
(defn cascalog-map
[op-var output-fields & {:keys [stateful?]}]
(let [ser (ops/fn-spec op-var)]
(proxy [BaseOperation Function] [^Fields output-fields]
(prepare [^FlowProcess flow-process ^OperationCall op-call]
(let [op (serfn/deserialize-val ser)]
(-> op-call
(.setContext [op (if stateful? (op))]))))
(operate [^FlowProcess flow-process ^FunctionCall fn-call]
(let [[op] (.getContext fn-call)
View carbonite-records.clj
(defn write-record
"Write an associative data structure to Kryo's buffer. Write record
name as a string, count as an int, then serialize the key/value pairs."
[^Kryo registry ^Output output r]
(.writeString output (.getName (class r)) true)
(.writeInt output (count r) true)
(doseq [[k v] r]
(.writeClassAndObject registry output k)
(.writeClassAndObject registry output v)))
View gist:5110034


Twitter for iPhone

Consumer key: IQKbtAYlXLripLGPWd0HUA
Consumer secret: GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU

Twitter for Android

Consumer key: 3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys

Twitter for iPad

Consumer key: CjulERsDeqhhjSme66ECg

sorenmacbeth / ham-mode.el
Created Oct 26, 2012
When you need to go HAM
View ham-mode.el
(defconst ham-mode-keymap (make-sparse-keymap) "Keymap used in ham mode")
(define-key ham-mode-keymap (kbd "C-c C-0") 'go-ham)
(defgroup ham-mode nil
"HAM minor mode.")
(defun go-ham ()
sorenmacbeth / bit_squat.rb
Created Sep 27, 2012 — forked from stevej/bit_squat.rb
generate bit-squattable domains
View bit_squat.rb
# find all domains that bit-squat a given domain.
# Based on this article:
# improvements: use a regex rather than URI.parse
require 'uri'
View ercstuff.el
(defvar upside-down-alist
'((?a . )
(?b . ?q)
(?c . )
(?d . ?p)
(?e . )
(?f . )
(?g . )
(?h . )
(?i . )
sorenmacbeth / thrift-mode.el
Created May 20, 2012 — forked from bakkdoor/thrift-mode.el
Simple thrift mode (taken from and adjusted to highlight self-defined types, unions & namespaces nicely.
View thrift-mode.el
(require 'font-lock)
(defvar thrift-mode-hook nil)
(add-to-list 'auto-mode-alist '("\\.thrift\\'" . thrift-mode))
(defvar thrift-indent-level 2
"Defines 2 spaces for thrift indentation.")
;; syntax coloring
View gist:2662440
(defn counts-per-day [intent-tap]
(<- [!intent !bucket !count]
(intent-tap _ !intent !ped)
(g/extract-true-as-of !ped :> !ms)
(o/time-buckets ["d"] !ms :> !bucket)
(c/count !count)))
(defn avg-sd [counts-per-day-sq min-avg]
(<- [!intent !a !sd]
(counts-per-day-sq !intent !bucket !count)
View gist:2323123
(let [pedigree (help/mk-pedigree (co/to-long (t/date-time 1979 11 13)))
session-path [[1 "" "" 1]
[2 "" "" 3]]
pageviews [[1 "" pedigree]
[2 "" pedigree]
[2 "" pedigree]
[2 "" pedigree]]
visit-types [[1 true pedigree]
[2 false pedigree]]]
sorenmacbeth / core.clj
Created Mar 5, 2012
you have to add and namespaces with (gen-class) forms to the :aot key in your leiningen project file. Next you have make sure you do a `lein compile` to actually generate the class
View core.clj
(ns lein-maybe-bug.core
(:import leinmaybebug.SomeClass))
(gen-class :name lein-maybe-bug.SomeGenClass
:prefix "somegenclass-")
(defn somegenclass-test [this]