added @doo Clojure lib and reference.

Author: stephenlb

clojure/README.md

@@ -0,0 +1,39 @@
+# clj-pubnub
+
+Original Author: [DOO.net](https://github.com/doo/clj-pubnub).
+
+Clojure client for [PubNub](http://www.pubnub.com/).
+
+## Usage
+
+### Publishing
+
+```clojure
+;; The client should always be required with an alias
+(require '[clj-pubnub.client :as pubnub])
+
+;; Configuration can be passed directly
+(pubnub/publish {:pub-key "demo" :sub-key "demo"} "my_channel" {:hello "world"})
+
+;; ... or through a binding
+(binding [pubnub/config {:pub-key "demo" :sub-key "demo"}]
+  (pubnub/publish "my_channel" {:hello "world"}))
+
+;; ... or by setting it globally
+(pubnub/set-config! {:pub-key "demo" :sub-key "demo"})
+(pubnub/publish "my_channel" {:hello "world"})
+
+;; SSL and signing is also supported
+(pubnub/publish {:pub-key "demo"
+                 :sub-key "demo"
+                 :secret-key "demo"
+                 :ssl true}
+                "my_channel"
+                {:hello "world"})
+```
+
+## License
+
+Copyright (C) 2012 Moritz Heidkamp, doo GmbH
+
+Distributed under the Eclipse Public License, the same as Clojure.

clojure/project.clj

@@ -0,0 +1,7 @@
+(defproject clj-pubnub "0.0.1-SNAPSHOT"
+  :description "Clojure client for PubNub"
+  :dependencies [[org.clojure/clojure "1.3.0"]
+                 [clj-http "0.3.2"]
+                 [cheshire "2.2.2"]
+                 [digest "1.4.0"]]
+  :dev-dependencies [[swank-clojure "1.4.0"]])

clojure/src/clj_pubnub/client.clj

@@ -0,0 +1,52 @@
+(ns clj-pubnub.client
+  (:use [digest :only [digest]])
+  (:require [clj-http.client :as http]
+            [cheshire.core :as json]
+            [clojure.contrib.string :as str]))
+
+(defonce ^{:dynamic true} config
+  {})
+
+(defn set-config! [settings]
+  (alter-var-root (var config) (constantly settings)))
+
+(def default-origin
+  "pubsub.pubnub.com")
+
+(defn- sign [channel message pub-key sub-key secret-key]
+  (if secret-key
+    (->> [pub-key sub-key secret-key channel]
+         (str/join "/")
+         (digest "md5"))
+    "0"))
+
+;; What a terrible hack ... gotta love the Java API
+(defn- encode-path-segment [segment]
+  (-> (java.net.URI. nil nil (str "/" segment) nil)
+      (str)
+      (.substring 1)))
+
+(defn- build-publish-uri [config channel message]
+  (let [message (json/generate-string message)
+        {:keys [pub-key sub-key secret-key origin ssl]} config]
+    (str (if ssl "https" "http") "://"
+         (->> [(or origin default-origin)
+               "publish"
+               pub-key
+               sub-key
+               (sign channel message pub-key sub-key secret-key)
+               channel
+               "0"
+               message]
+              (map encode-path-segment)
+              (str/join "/")))))
+
+(defn publish
+  ([channel message]
+     (publish config channel message))
+  ([config channel message]
+     ({:pre [(string? channel)
+             (every? config [:pub-key :sub-key])]}
+      (let [uri (build-publish-uri config channel message)]
+        (println uri)
+        (http/get uri)))))