noir + aleph = noir-async.
seamless, concise, async clojure webservices
[noir-async 1.1.0-beta7] to your project.cljHere's an example route that responds in one shot:
; Note, same syntax as noir's defpage, but with "conn" parameter
(defpage-async "/route" [] conn
(async-push conn {:status 404 :body "Couldn't find it!"}))
This is an example route that handles a websocket:
(defpage-async "/echo" [] conn
(on-receive conn (fn [m] (async-push conn m))))
Here's an example of responding in a chunked fashion:
(defpage-async "/always-chunky" [] conn
;; Sending the header explicitly indicates a chunked response
(async-push conn {:status 200 :chunked true})
(async-push conn "chunk one")
(async-push conn "chunk two")
(close-connection conn))
Reading request bodies with aleph can be a little odd, so that interface is sugared:
(defpage-async "/some-route" {} conn
;; You can also retrieve the body as a ByteBuffer. See full docs for details
(async-push (str "Received body:" (request-body-str conn))))
Since it uses an identical interface for both websockets and regular HTTP, if you want to handle them differently be sure to use the websocket? and regular? functions to discern them.
In your server.clj, you'll want to use aleph as a server explicitly. Be sure to replace noir-async-chat with the appropriate namespace.
(ns noir-async-chat.server
(:use aleph.http
noir.core
lamina.core)
(:require
[noir.server :as nr-server] ))
(nr-server/load-views "src/noir_async_chat/views/")
(defn -main [& m]
(let [mode (keyword (or (first m) :dev))
port (Integer. (get (System/getenv) "PORT" "3000"))
noir-handler (nr-server/gen-handler {:mode mode})]
(start-http-server
(wrap-ring-handler noir-handler)
{:port port :websocket true})))
Full API Docs for more examples.
Copyright (C) 2011 Andrew Cholakian
Distributed under the Eclipse Public License, the same as Clojure.