kachayev

Aleph, Async, HTTP, Clojure

I've been working with Aleph rougly for last 5 years, actively contributing to the library for last 2 (or so). I also put some effort into spreading the word about it, including educational tech talks, like "Deep HTTP Dive Throught Aleph & Netty". But the more I talk to people the more confusion I find, mostly about how Aleph works and what can you expect when adding it to your stack. Clojurists Together has recently announced Aleph to get Q1 funding, I think it's a good time to share my priorities and thoughts on development plans that were mentioned in the blog post. Hope the community would find it interesting and helpful.

Aleph describes itself as "asynchronous communication for Clojure" library. And you should probably pay a good portion of your attention to the first word: "asynchronous".

sritchie

(ns racehub.om.facebook
  (:require [cljs.core.async :as a]
            [racehub.schema :as rs]
            [schema.core :as s :include-macros true]))

;; ## Utilities

(defn prune
  "Takes a mapping of keys -> new key names and a map and returns a
  map with nils removed and keys swapped where they're present in the

SunboX

function worker() {
  setInterval(function() {
    postMessage({foo: "bar"});
  }, 1000);
}

var code = worker.toString();
code = code.substring(code.indexOf("{")+1, code.lastIndexOf("}"));

var blob = new Blob([code], {type: "application/javascript"});

smerrill

This document describes installing an OpenShift Origin server on RHEL/CentOS 6.4.

It uses named (because the Avahi support does not work on RHEL 6 yet) and assumes a domain name of "broker.openshiftorigin" and a domain of "openshiftorigin"

First, kickstart a machine using the kickstart below.

Next, log into the machine as root:openshift and do the following to get it provisioned:

• cd /etc/puppet
• Create the site.pp file, grabbing the DNSSEC key

cgrand

=> (defn line-seq [^java.io.BufferedReader rdr sep]
     (let [sep (str sep)
           buf (char-array 1024)
           sb (StringBuilder.)]
       ((fn f [m]
          (lazy-seq
            (let [n (.read rdr buf 0 1024)]
              (if (neg? n)
                (when (pos? (.length sb))
                  (list (str sb)))