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

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

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

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

def compose(proc) # :block:

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 authorizationPlugin: BrokerPlugin = {
  val dsl = new AuthorizationDSL; import dsl._

  val system = Set(User("system"))

  entry(Queue(">"), r = system, w = system, a = system)
  entry(Topic(">"), r = system, w = system, a = system)

  Seq("test").foreach { basename =>
    val client = Set(User(basename + "-client"))

qerub

function Follow-File([string] $path) { Get-Content -Path $path -Wait -Tail 10 }

qerub

(defmacro throwf [class-name format & args]
  `(throw (new ~class-name (format ~format ~@args))))

; Before:
(throw (IllegalArgumentException. (format "Invalid value: %s" value)))

; After:
(throwf IllegalArgumentException "Invalid value: %s" value)

qerub

public static IEnumerable<T> Cons<T>(T head, IEnumerable<T> tail)
{
  yield return head;
  foreach (var t in tail) yield return t;
}

qerub

#lang rackjure

(require net/url)

(define js-lisps*
  (~>> "https://gitorious.org/moritz-stuff/js-lisps/blobs/raw/master/js-lisps.sxml"
       string->url
       get-pure-port
       read))