summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt.scm3
-rw-r--r--projects.scm34
2 files changed, 37 insertions, 0 deletions
diff --git a/haunt.scm b/haunt.scm
index b7f3faf..961ad0a 100644
--- a/haunt.scm
+++ b/haunt.scm
@@ -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"