diff options
| -rw-r--r-- | haunt.scm | 3 | ||||
| -rw-r--r-- | projects.scm | 34 |
2 files changed, 37 insertions, 0 deletions
@@ -54,6 +54,8 @@ this website.") " — SDL2 bindings for Guile Scheme") (p ,(anchor "guile-syntax-highlight" "projects/guile-syntax-highlight.html") " — Syntax highlighting library for Guile Scheme") + (p ,(anchor "guile-websocket" "projects/guile-websocket.html") + " — WebSocket library for Guile Scheme") (p ,(anchor "Shroud" "projects/shroud.html") " — GPG-based password manager (inactive)") (p ,(anchor "Sly" "projects/sly.html") @@ -77,6 +79,7 @@ this website.") sly-page guile-sdl2-page guile-syntax-highlight-page + guile-websocket-page haunt-page shroud-page srt2vtt-page 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" |