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 / 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.))
@sorenmacbeth
sorenmacbeth / ThriftPailStructure.java
Created March 2, 2012 07:53 — forked from sritchie/ThriftPailStructure.java
package forma.tap;
import backtype.hadoop.pail.PailStructure;
import java.util.Collections;
import java.util.List;
import org.apache.thrift.TBase;
import org.apache.thrift.TDeserializer;
import org.apache.thrift.TException;
import org.apache.thrift.TSerializer;
@sorenmacbeth
sorenmacbeth / ops.clj
Created February 1, 2012 23:46
(def sample-variance
"Predicate macro that calculates the sample variance of the supplied input
var."
(<- [!val :> !var]
(* !val !val :> !squared)
(c/sum !squared :> !squared-sum)
(c/count !count)
(c/sum !val :> !sum)
(c/avg !val :> !mean)
(* !sum !mean :> !i)
@sorenmacbeth
sorenmacbeth / kwphrase_tests.clj
Created January 26, 2012 22:43
(ns ybot.kwphrase-tests
(:use [ybot.analytics.ga kwphrase]
[ybot datastores]
[midje sweet cascalog]))
(let [ga-data [["20121025"
"http://dopeness.org"
"United States"
"Oregon"
"Portland"
@sorenmacbeth
sorenmacbeth / hadoop.clj
Created January 18, 2012 06:48
(gen-class :name ybot.hadoop.formats.SimpleRecordStreamFactory
:implements backtype.hadoop.formats.RecordStreamFactory
:prefix "recordfactory-")
(defn recordfactory-getInputStream [^FileSystem fs ^Path p]
(SimpleInputStream. (.open fs p)))
(defn recordfactory-getOutputStream [^FileSystem fs ^Path p]
(SimpleOutputStream. (.create fs p)))