qerub

(defn char-sequence [char-seqable]
  (let [char-seq (seq char-seqable)]
    (reify CharSequence
      (charAt   [this i] (nth char-seq i))
      (length   [this]   (count char-seq))
      (toString [this]   (String. (char-array char-seq)))
      ; (subSequence [this start end] ...)
      )))

qerub

def future # :block:
  thread = Thread.new do
    Thread.current.abort_on_exception = false
    yield
  end
  
  lambda { thread.value }
end

def compose(proc) # :block:

qerub

require "sequel/extensions/connection_validator"
# https://github.com/jeremyevans/sequel/blob/master/lib/sequel/extensions/connection_validator.rb

module Rack
  class SequelConnectionValidator
    def initialize(app, db)
      @app = app
      @db  = db
      
      @db.extension(:connection_validator)

qerub

$ cat .git/hooks/post-checkout 
#!/bin/sh
mvn clean compile

qerub

; Context:
; http://stackoverflow.com/questions/3436216/how-to-map-clojure-code-to-and-from-json

(defn escape-string [x]
  (clojure.string/replace x #"^[':\\]" "\\\\$0"))

(defn code-to-json [x]
  (condp #(%1 %2) x
    number?  x
    symbol?  (str \' (name x))

qerub

Small complaints about Pocket

General

• The entry titles are sometimes picked very badly. Examples:

URL	Expected Title	Title in Pocket
http://lambda-the-ultimate.org/node/4728	Typesafe Activator	Lambda the Ultimate
http://adafruit.com/products/609	NeTV Starter Pack ID: 609 - $119.00	$119.00

qerub

(goto https://github.com/qerub/ring-middleware-jsonp)

qerub

user=> (use 'clojure.walk)
nil
user=> (macroexpand-all '(-> x (1 a) (2 b)))
(2 (1 x a) b)
user=> (macroexpand-all '(->> x (1 a) (2 b)))
(2 b (1 a x))

qerub

(ns ring.middleware.x-forwarded-for
  (:use [clojure.string :only (split)]))

(defn wrap-x-forwarded-for [handler]
  (fn [request]
    (if-let [xff (get-in request [:headers "x-forwarded-for"])]
      (handler (assoc request :remote-addr (last (split xff #"\s*,\s*"))))
      (handler request))))

qerub

#lang racket ; Requires Racket >= 5.1.1

(provide (rename-out (objective-r-read        read)
                     (objective-r-read-syntax read-syntax)))

(require syntax/stx)

(define (rewrite-method-calls stx)
  (if (stx-list? stx)
      (let ((stx* (stx-map rewrite-method-calls stx)))