rmcafee

class Hash
  def except(*blacklist)
    {}.tap do |h|
      (keys - blacklist).each { |k| h[k] = self[k] }
    end
  end

  def only(*whitelist)
    {}.tap do |h|
      (keys & whitelist).each { |k| h[k] = self[k] }

ato

;; Inspired by George Jahad's version: http://georgejahad.com/clojure/debug-repl.html

(defmacro local-bindings
  "Produces a map of the names of local bindings to their values."
  []
  (let [symbols (map key @clojure.lang.Compiler/LOCAL_ENV)]
    (zipmap (map (fn [sym] `(quote ~sym)) symbols) symbols)))

(declare *locals*)
(defn eval-with-locals

evolvingweb

<?php

/**
 * @file
 * Implements a Solr proxy.
 *
 * Currently requires json_decode which is bundled with PHP >= 5.2.0.
 *
 * You must download the SolrPhpClient and store it in the same directory as this file.
 *

hugs

I, Jason Huggins, the author of the work "CoffeeScript Web Server" (2010), irrevocably renounce 
all current and future legal rights to the work in any medium whatsoever.

I stand behind the merit of the work, but disclaim all liability for it under law.

I encourage you, the audience, to share, copy, distribute, perform, remix, mash up, interpret, 
excerpt, translate, and otherwise enjoy and use the work as you will.

I request that you acknowledge my authorship.

citerus

;  Copyright (c) 2010 Patrik Fredriksson
;
;  Permission is hereby granted, free of charge, to any person obtaining a copy
;  of this software and associated documentation files (the "Software"), to deal
;  in the Software without restriction, including without limitation the rights
;  to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
;  copies of the Software, and to permit persons to whom the Software is
;  furnished to do so, subject to the following conditions:
;
;  The above copyright notice and this permission notice shall be included in

kch

#!/usr/local/bin/ruby
# encoding: UTF-8
require 'yaml'
require "base64"
require 'rexml/document'

class PList < BasicObject
  ELEMENT_PROCESSORS = {}
  def self.process_element_named(name, &block); ELEMENT_PROCESSORS[name.to_s] = block;  end
  def self.process_element(elt)               ; ELEMENT_PROCESSORS[elt.name][elt];      end

rlm

(ns sunil.curry)

(defn partial+
  "Takes a function f and fewer than the normal arguments to f, and
  returns a fn that takes a variable number of additional args. When
  called, the returned function calls f with args + additional args.
  differs from the core version in that it works on just one argument."
  {:added "1.0"}
  ([f] f)
  ([f arg1]

tokland

#https://gist.github.com/tokland/871431

module Adt
  # Build a ADT parent class with its children constructors.
  #
  #   class_names_with_constructors -- Hash of key=class_name, value=constructor_arguments
  #   class_body -- Body to add to the parent class
  # 
  # Example:
  # 

cdcarter

class FormHelper
    attr_accessor :form
    
    def initialize(nsform=nil)
        @form = nsform
    end
    
    def length
        form.numberOfRows
    end

floere

# When trapping Signals in your lib, please think about doing it like so:
#
old_handler = Signal.trap('SIGNALNAME') {}
Signal.trap('SIGNALNAME') do
  # Whatever you'd like to do.
  # Then:
  old_handler.call
end