Skip to content

Instantly share code, notes, and snippets.

View sorenmacbeth's full-sized avatar

Soren Macbeth sorenmacbeth

149 followers · 62 following
View GitHub Profile
@sorenmacbeth
sorenmacbeth / serfn.clj
Created May 15, 2013 22:36
(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)
@sorenmacbeth
sorenmacbeth / carbonite-records.clj
Created May 13, 2013 21:28
(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)))
@sorenmacbeth
sorenmacbeth / gist:5110034
Created March 7, 2013 17:40

Twitter公式クライアントのコンシューマキー

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
sorenmacbeth / ham-mode.el
Created October 26, 2012 19:38
When you need to go HAM
(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 ()
(interactive)
(message "HARD AS A MOTHERFUCKER"))
@sorenmacbeth
sorenmacbeth / bit_squat.rb
Created September 27, 2012 04:39 — forked from stevej/bit_squat.rb
generate bit-squattable domains
#!/usr/bin/ruby
#
# find all domains that bit-squat a given domain.
#
# Based on this article: http://domainincite.com/bit-squatting-%E2%80%93-the-latest-risk-to-domain-name-owners/
#
# improvements: use a regex rather than URI.parse
require 'uri'
@sorenmacbeth
sorenmacbeth / ercstuff.el
Created May 25, 2012 01:06 — forked from ieure/ercstuff.el
(defvar upside-down-alist
'((?a . ?ɐ)
(?b . ?q)
(?c . ?ɔ)
(?d . ?p)
(?e . ?ǝ)
(?f . ?ɟ)
(?g . ?ƃ)
(?h . ?ɥ)
(?i . ?ı)
@sorenmacbeth
sorenmacbeth / thrift-mode.el
Created May 20, 2012 05:44 — forked from bakkdoor/thrift-mode.el
Simple thrift mode (taken from https://github.com/kragen/stevej-emacs/blob/master/thrift-mode/thrift.el) and adjusted to highlight self-defined types, unions & namespaces nicely.
(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
@sorenmacbeth
sorenmacbeth / gist:2662440
Created May 11, 2012 21:13
(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)
@sorenmacbeth
sorenmacbeth / gist:2323123
Created April 6, 2012 21:35
(let [pedigree (help/mk-pedigree (co/to-long (t/date-time 1979 11 13)))
session-path [[1 "http://dopeness.org/" "http://dopeness.org/" 1]
[2 "http://dopeness.org/" "http://dopeness.org/3" 3]]
pageviews [[1 "http://dopeness.org/" pedigree]
[2 "http://dopeness.org/" pedigree]
[2 "http://dopeness.org/2" pedigree]
[2 "http://dopeness.org/3" pedigree]]
visit-types [[1 true pedigree]
[2 false pedigree]]]
(fact
@sorenmacbeth
sorenmacbeth / core.clj
Created March 5, 2012 20:39
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
(ns lein-maybe-bug.core
(:import leinmaybebug.SomeClass))
(gen-class :name lein-maybe-bug.SomeGenClass
:prefix "somegenclass-")
(defn somegenclass-test [this]
(SomeClass.))