Simple Aleph websocket

gistfile1.lisp

;; src/myapp/core.clj

(ns myapp.core
  (:use lamina.core
        aleph.http))

(def ws-channel (channel))

(defn app [ch _]
  (receive ch
    (fn [_]
      (siphon ws-channel ch))))

(defn send-message [msg]
  (enqueue ws-channel msg))

(start-http-server app {:port 1234 :websocket true})

;; src/myapp/another.clj

; You can then send messages to connected peerrs

(send-message "foo")