Add convience function 'send' to push javascript update fragments to client.
authorGerd Flaig <gefla@gefla-mac-zrh>
Sat, 29 Nov 2008 21:07:07 +0000 (22:07 +0100)
committerGerd Flaig <gefla@gefla-mac-zrh>
Sat, 29 Nov 2008 21:07:07 +0000 (22:07 +0100)
package.lisp
web.lisp

index c06705a8c79b382790a282ef1bd37c5c33c812e7..56ca854291b5dc49eec6486185a02e771dbb9a99 100644 (file)
@@ -16,5 +16,5 @@
     (:export :create :enqueue :dequeue))
   (defpackage :empire-web
     (:use :cl :hunchentoot)
-    (:export :start)))
+    (:export :start :send)))
 
index 40b74066ca506a21ff2c3e9fe1617c6bdf8e9ae8..093769224ec938c3d91b3669e6250be4ec0959fc 100644 (file)
--- a/web.lisp
+++ b/web.lisp
   "Send stream of updates to client"
   (locked-queue:dequeue *update-queue*))
 
+(defun send (string)
+  "Push a javascript update fragment to the client."
+  (locked-queue:enqueue *update-queue* string))
+
 (defun dispatch (request)
   (let ((script-name (script-name request)))
     (cond