WebSocket running next to dynamically generated content as well as

static files, in other words server is ready for a client to arrive.

Author: neotyk

.gitignore

@@ -0,0 +1,6 @@
+pom.xml
+*jar
+/lib/
+/classes/
+.lein-failures
+.lein-deps-sum

README

@@ -0,0 +1,9 @@
+# ws-cljs
+
+WebSocket & ClojureScript repository.
+
+## License
+
+Copyright (C) 2011 FIXME
+
+Distributed under the Eclipse Public License, the same as Clojure.

project.clj

@@ -0,0 +1,8 @@
+(defproject ws-cljs "0.1-SNAPSHOT"
+  :description "WebSocket and ClojureScript gitorial"
+  :main "ws-cljs.core"
+  :dependencies [[org.clojure/clojure "1.2.1"]
+                 [aleph "0.2.0-alpha2"]
+                 [compojure "0.6.5"]
+                 [hiccup "0.3.6"]]
+  :dev-dependencies [[slamhound "1.2.0"]])

src/ws_cljs/core.clj

@@ -0,0 +1,33 @@
+(ns ws-cljs.core
+  (:use [aleph.http :only [start-http-server wrap-aleph-handler wrap-ring-handler]]
+        [compojure.core :only [GET defroutes]]
+        [hiccup.page-helpers :only [html5 include-js]]
+        [lamina.core :only [channel map* receive siphon]]
+        [ring.middleware.file :only [wrap-file]])
+  (:require [compojure.route :as route]))
+
+(def broadcast-channel (channel))
+
+(defn chat-handler [ch handshake]
+  (println "Connected " handshake)
+  (receive ch
+           (fn [name]
+             (println "Hello " name)
+             (siphon (map* #(str name ": " %) ch) broadcast-channel)
+             (siphon broadcast-channel ch))))
+
+(defn layout [& content]
+  (html5 [:head [:title "new page"] (include-js "js/ws-control.js")]
+         [:body content]))
+
+(defroutes my-app 
+  (GET "/" [] (layout [:p "awesome!"]))
+  (GET "/socket" [] (wrap-aleph-handler chat-handler))
+  (route/not-found (layout [:p "aww... this doesn't exist"])))
+
+(defn -main []
+  (start-http-server (-> my-app
+                         (wrap-file "html")
+                         wrap-ring-handler) {:port 8080 :websocket true})
+  (println "server started"))
+        

test/ws_cljs/test/core.clj

@@ -0,0 +1,6 @@
+(ns ws-cljs.test.core
+  (:use [ws-cljs.core])
+  (:use [clojure.test]))
+
+(deftest replace-me ;; FIXME: write
+  (is false "No tests have been written."))