+
+
+
diff --git a/static/client.js b/static/client.js
new file mode 100644
--- /dev/null
+++ b/static/client.js
@@ -0,0 +1,80 @@
+function createWebSocket(path) {
+ var host = window.location.hostname;
+ if(host == '') host = 'localhost';
+ var uri = 'ws://' + host + ':9160' + path;
+
+ var Socket = "MozWebSocket" in window ? MozWebSocket : WebSocket;
+ return new Socket(uri);
+}
+
+var users = [];
+
+function refreshUsers() {
+ $('#users').html('');
+ for(i in users) {
+ $('#users').append($(document.createElement('li')).text(users[i]));
+ }
+}
+
+function onMessage(event) {
+ var p = $(document.createElement('p')).text(event.data);
+
+ $('#messages').append(p);
+ $('#messages').animate({scrollTop: $('#messages')[0].scrollHeight});
+
+ if(event.data.match(/^[^:]* joined/)) {
+ var user = event.data.replace(/ .*/, '');
+ users.push(user);
+ refreshUsers();
+ }
+
+ if(event.data.match(/^[^:]* disconnected/)) {
+ var user = event.data.replace(/ .*/, '');
+ var idx = users.indexOf(user);
+ users = users.slice(0, idx).concat(users.slice(idx + 1));
+ refreshUsers();
+ }
+}
+
+$(document).ready(function () {
+ $('#join-form').submit(function () {
+ $('#warnings').html('');
+ var user = $('#user').val();
+ var ws = createWebSocket('/');
+
+ ws.onopen = function() {
+ ws.send('Hi! I am ' + user);
+ };
+
+ ws.onmessage = function(event) {
+ if(event.data.match('^Welcome! Users: ')) {
+ /* Calculate the list of initial users */
+ var str = event.data.replace(/^Welcome! Users: /, '');
+ if(str != "") {
+ users = str.split(", ");
+ refreshUsers();
+ }
+
+ $('#join-section').hide();
+ $('#chat-section').show();
+ $('#users-section').show();
+
+ ws.onmessage = onMessage;
+
+ $('#message-form').submit(function () {
+ var text = $('#text').val();
+ ws.send(text);
+ $('#text').val('');
+ return false;
+ });
+ } else {
+ $('#warnings').append(event.data);
+ ws.close();
+ }
+ };
+
+ $('#join').append('Connecting...');
+
+ return false;
+ });
+});
diff --git a/static/screen.css b/static/screen.css
new file mode 100644
--- /dev/null
+++ b/static/screen.css
@@ -0,0 +1,86 @@
+html {
+ font-family: sans-serif;
+ background-color: #335;
+ font-size: 16px;
+}
+
+body {
+}
+
+h1 {
+ text-align: center;
+ font-size: 20px;
+ color: #fff;
+ padding: 10px 10px 20px 10px;
+}
+
+h2 {
+ border-bottom: 1px solid black;
+ display: block;
+ font-size: 18px;
+}
+
+div#main {
+ width: 600px;
+ margin: 0px auto 0px auto;
+ padding: 0px;
+ background-color: #fff;
+ height: 460px;
+}
+
+div#warnings {
+ color: red;
+ font-weight: bold;
+ margin: 10px;
+}
+
+div#join-section {
+ float: left;
+ margin: 10px;
+}
+
+div#users-section {
+ width: 170px;
+ float: right;
+ padding: 0px;
+ margin: 10px;
+}
+
+ul#users {
+ list-style-type: none;
+ padding-left: 0px;
+ height: 300px;
+ overflow: auto;
+}
+
+div#chat-section {
+ width: 390px;
+ float: left;
+ margin: 10px;
+}
+
+div#messages {
+ margin: 0px;
+ height: 300px;
+ overflow: auto;
+}
+
+div#messages p {
+ margin: 0px;
+ padding: 0px;
+}
+
+div#footer {
+ text-align: center;
+ font-size: 12px;
+ color: #fff;
+ margin: 10px 0px 30px 0px;
+}
+
+div#footer a {
+ color: #fff;
+}
+
+div.clear {
+ clear: both;
+}
diff --git a/wai-websockets.cabal b/wai-websockets.cabal
new file mode 100644
--- /dev/null
+++ b/wai-websockets.cabal
@@ -0,0 +1,52 @@
+Name: wai-websockets
+Version: 0.5.0
+Synopsis: Provide a bridge betweeen WAI and the websockets package.
+License: BSD3
+License-file: LICENSE
+Author: Michael Snoyman
+Maintainer: michael@snoyman.com
+Homepage: http://github.com/yesodweb/wai
+Category: Web, Yesod
+Build-Type: Simple
+Cabal-Version: >=1.8
+Stability: Stable
+Description: This is primarily intended for use with Warp and its settingsIntercept.
+
+extra-source-files: static/client.js, static/client.html, static/screen.css
+
+Library
+ Build-Depends: base >= 3 && < 5
+ , bytestring >= 0.9.1.4 && < 0.10
+ , wai >= 0.4 && < 0.5
+ , enumerator >= 0.4.8 && < 0.5
+ , network-enumerator >= 0.1.2 && < 0.2
+ , blaze-builder >= 0.2.1.4 && < 0.4
+ , case-insensitive >= 0.2 && < 0.4
+ , network >= 2.2.1.5 && < 2.4
+ , websockets >= 0.4 && < 0.5
+ Exposed-modules: Network.Wai.Handler.WebSockets
+ ghc-options: -Wall
+
+Executable wai-websockets-example
+ Build-Depends: base >=3 && < 5,
+ wai-websockets,
+ websockets,
+ network-enumerator,
+ warp,
+ wai,
+ wai-app-static,
+ bytestring,
+ case-insensitive,
+ blaze-builder,
+ enumerator,
+ transformers,
+ network,
+ text,
+ file-embed
+
+ ghc-options: -Wall -threaded
+ main-is: server.lhs
+
+source-repository head
+ type: git
+ location: git://github.com/yesodweb/wai.git