Terje Sten Bjerkseth terjesb

## AkkaUnfilteredSample.scala
package akka.unfiltered

import akka.actor._
import akka.dispatch.Future
import akka.pattern.ask
import akka.util.duration._
import akka.util.Timeout

import unfiltered.Async
import unfiltered.request._

## EC_KestrelClient.php
<?php
/**
 * A thin kestrel client that wraps Memcached (libmemcached extension)
 *
 * @author    Bill Shupp <hostmaster@shupp.org>
 * @copyright 2010-2011 Empower Campaigns
 */
class EC_KestrelClient
{
    /**

## EC_Producer.php
<?php
/**
 * Interface for adding jobs to a queue server
 *
 * @author    Bill Shupp <hostmaster@shupp.org>
 * @copyright 2010-2011 Empower Campaigns
 */
class EC_Producer
{
    /**

## consumer_cli.php
#!/bin/env php
<?php

// External application bootstrapping
require_once __DIR__ . '/cli_init.php';

// Instantiate and run the consumer
$consumer = new EC_Consumer($argv);
$consumer->run();

## EC_Consumer.php
<?php

/**
 * Enterprise queue consumer interface, called by bin/consumer_cli.php
 *
 * @author    Bill Shupp <hostmaster@shupp.org>
 * @copyright 2010-2011 Empower Campaigns
 */
class EC_Consumer
{

## gist:1988062
<?php

$producer = new EC_Producer();
$producer->addJob('hello_world', 'HelloWorld', array('foo' => 'bar'));

?>

## lenses-1-1.scala
// https://github.com/scalaz/scalaz/blob/master/core/src/main/scala/scalaz/Lens.scala
case class Lens[A,B](get: A => B, set: (A,B) => A) {
  def apply(a: A) = get(a)
  // ...
}

## gist:2689144
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
        "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
    <title></title>
</head>
<body>

<script id="searchResultTemplate" type="text/x-jquery-tmpl">
    {{each(i,result) hits}}

## gist:2724077
(ns datomic-play.core
  (:use [datomic.api :only [db q] :as d])
  (:require [clojure.core.logic :as l]
            [clojure.pprint :as pp]))

(def uri "datomic:dev://localhost:4334/hello")

(defprotocol IUnifyWithDatum
  (unify-with-datum [u v s]))

## restrict-map.clj
;; I could have used a closed dispatch (aka cond) but you may find this version more enjoyable
;; the spec format is the one provided by BG

(defprotocol Selector
  (-select [s m]))

(defn select [m selectors-coll]
  (reduce conj {} (map #(-select % m) selectors-coll)))

(extend-protocol Selector
	package akka.unfiltered

	import akka.actor._
	import akka.dispatch.Future
	import akka.pattern.ask
	import akka.util.duration._
	import akka.util.Timeout

	import unfiltered.Async
	import unfiltered.request._
	<?php
	/**
	* A thin kestrel client that wraps Memcached (libmemcached extension)
	*
	* @author Bill Shupp <hostmaster@shupp.org>
	* @copyright 2010-2011 Empower Campaigns
	*/
	class EC_KestrelClient
	{
	/**
	<?php
	/**
	* Interface for adding jobs to a queue server
	*
	* @author Bill Shupp <hostmaster@shupp.org>
	* @copyright 2010-2011 Empower Campaigns
	*/
	class EC_Producer
	{
	/**
	#!/bin/env php
	<?php

	// External application bootstrapping
	require_once __DIR__ . '/cli_init.php';

	// Instantiate and run the consumer
	$consumer = new EC_Consumer($argv);
	$consumer->run();
	<?php

	/**
	* Enterprise queue consumer interface, called by bin/consumer_cli.php
	*
	* @author Bill Shupp <hostmaster@shupp.org>
	* @copyright 2010-2011 Empower Campaigns
	*/
	class EC_Consumer
	{
	<?php

	$producer = new EC_Producer();
	$producer->addJob('hello_world', 'HelloWorld', array('foo' => 'bar'));

	?>
	// https://github.com/scalaz/scalaz/blob/master/core/src/main/scala/scalaz/Lens.scala
	case class Lens[A,B](get: A => B, set: (A,B) => A) {
	def apply(a: A) = get(a)
	// ...
	}
	<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
	"http://www.w3.org/TR/html4/loose.dtd">
	<html>
	<head>
	<title></title>
	</head>
	<body>

	<script id="searchResultTemplate" type="text/x-jquery-tmpl">
	{{each(i,result) hits}}
	(ns datomic-play.core
	(:use [datomic.api :only [db q] :as d])
	(:require [clojure.core.logic :as l]
	[clojure.pprint :as pp]))

	(def uri "datomic:dev://localhost:4334/hello")

	(defprotocol IUnifyWithDatum
	(unify-with-datum [u v s]))
	;; I could have used a closed dispatch (aka cond) but you may find this version more enjoyable
	;; the spec format is the one provided by BG

	(defprotocol Selector
	(-select [s m]))

	(defn select [m selectors-coll]
	(reduce conj {} (map #(-select % m) selectors-coll)))

	(extend-protocol Selector