trivial-ws

https://github.com/ceramic/trivial-ws.git


    git clone 'https://github.com/ceramic/trivial-ws.git'
      

      

(ql:quickload :trivial-ws)

★4

trivial-ws

Trivial WebSockets, built on top of Hunchensocket for the server and websocket-driver for the client.

Usage

Here's a simple echo server:

~~~lisp (defvar server (trivial-ws:make-server :on-connect #‘(lambda (server) (format t “Connected~%”)) :on-disconnect #’(lambda (server) (format t “Disconnected~%”)) :on-message #'(lambda (server message) (format t “Received: ~A~%” message) (trivial-ws:send (first (trivial-ws:clients server)) message)))) ~~~

Then start it:

~~~lisp (defvar handler (trivial-ws:start server 4040)) ~~~

Then go to http://www.websocket.org/echo.html and change the server to ws://localhost:4040/ and try it out.

You can stop it with (trivial-ws:stop *handler*).

Inside the callbacks you can use two functions: (trivial-ws:clients server) will return the list of connected clients, and (trivial-ws:send client "string") will send a message to a selected client.

License

Licensed under the MIT License.