diff options
Diffstat (limited to 'projects.scm')
-rw-r--r-- | projects.scm | 34 |
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" |