Welcome to the CHICKEN Scheme pasting service

(use awful spiffy extras data-structures)

(enable-sxml #t)

(define-page "/test"
  (lambda ()
    (add-javascript
     "var source = new EventSource('/sse');
      source.onmessage = function (event) {
          document.body.innerHTML = event.data;
      };")
    ""))

(define-page "/sse"
  (lambda ()
    (let loop ()
      (send-response
       body: (conc "data: " (random 10) "\n\n")
       headers: '((content-type text/event-stream)
		  (cache-control no-cache)
		  (connection keep-alive)))
      (sleep 15)
      (loop))))