Add guile-websocket project page.

1 files changed, 34 insertions, 0 deletions

diff --git a/projects.scm b/projects.scm
index 701f240..a6e6fb3 100644
--- a/projects.scm
+++ b/projects.scm
@@ -22,6 +22,7 @@
             sly-page
             guile-sdl2-page
             guile-syntax-highlight-page
+            guile-websocket-page
             haunt-page
             shroud-page
             srt2vtt-page))
@@ -167,6 +168,39 @@ rendering."))
    #:releases
    `(("0.1" ,(date 2018 03 10)))))
 
+(define guile-websocket-page
+  (project-page
+   #:name "guile-websocket"
+   #:file-name "guile-websocket.html"
+   #:repo "guile-websocket"
+   #:description
+   `((p "guile-websocket provides an implementation of the WebSocket protocol
+as defined by "
+        (a (@ (href "https://www.rfc-editor.org/rfc/rfc6455")) "RFC 6455")
+        "."))
+   #:usage
+   `(p
+     "Below is a simple example program that demonstrates basic usage of
+the guile-websocket API:"
+     ,(highlight-scheme
+       "(use-modules (web socket server))
+
+;; Respond to text messages by reversing the message.  Respond to
+;; binary messages with \"hello\".
+(define (handler data)
+  (if (string? data)
+      (string-reverse data)
+      \"hello\"))
+
+(run-server handler (make-server-socket #:port 9090))
+"))
+   #:requirements '("GNU Guile >= 2.0"
+                    "GNU Make"
+                    "GNU pkg-config")
+   #:license "GNU LGPLv3+"
+   #:releases
+   `(("0.1" ,(date 2022 11 12)))))
+
 (define haunt-page
   (project-page
    #:name "Haunt"