new file mode 100644

@@ -0,0 +1,16 @@

+;;; -*- Mode:Lisp; Syntax:ANSI-Common-Lisp; Package: ASDF-USER -*-

+(in-package :asdf-user)

+

+(defsystem :documentation-server 

+  :description ""

+  :author "Ed L <edward@elangley.org>"

+  :license "MIT"

+  :depends-on (#:alexandria

+               #:uiop

+               #:fwoar-lisputils

+               #:serapeum

+               #:hunchentoot

+               #:hunchensocket)

+  :serial t

+  :components ((:file "package")

+               (:file "main")))

new file mode 100644

@@ -0,0 +1,32 @@

+(in-package :documentation-server)

+

+(defclass chat-room (hunchensocket:websocket-resource)

+  ((name :initarg :name :initform (error "Name this room!") :reader name))

+  (:default-initargs :client-class 'user))

+

+(defclass user (hunchensocket:websocket-client)

+  ((name :initarg :user-agent :reader name :initform (error "Name this user!"))))

+

+

+(defvar *chat-room* (list (make-instance 'chat-room :name "/bongo")

+                          (make-instance 'chat-room :name "/fury")))

+

+(defun find-room (request)

+  (find (hunchentoot:script-name request) *chat-room*

+        :test #'string=

+        :key #'name))

+

+(defun broadcast (room message &rest args)

+  (loop for peer in (hunchensocket:clients room)

+     do (hunchensocket:send-text-message peer (apply #'format nil message args))))

+

+(defmethod hunchensocket:client-connected ((room chat-room) user)

+  (broadcast room "user connected ~a" (name user)))

+

+(defmethod hunchensocket:client-disconnected ((room chat-room) user)

+  (broadcast room "user disconnected ~a" (name user)))

+

+(defmethod hunchensocket:text-message-received ((room chat-room) user message)

+  (broadcast room "~a says ~a" (name user) message))

+

+

new file mode 100644

@@ -0,0 +1,4 @@

+(defpackage :documentation-server

+  (:shadowing-import-from :fwoar.lisputils :op :ensure-list)

+  (:use :cl :alexandria :serapeum :fw.lu)

+  (:export ))