sorenmacbeth

(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

(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

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

(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

#!/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

(defvar upside-down-alist
  '((?a . ?ɐ)
    (?b . ?q)
    (?c . ?ɔ)
    (?d . ?p)
    (?e . ?ǝ)
    (?f . ?ɟ)
    (?g . ?ƃ)
    (?h . ?ɥ)
    (?i . ?ı)

sorenmacbeth

(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

(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

(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

(ns lein-maybe-bug.core
  (:import leinmaybebug.SomeClass))

(gen-class :name lein-maybe-bug.SomeGenClass
           :prefix "somegenclass-")

(defn somegenclass-test [this]
  (SomeClass.))