From 9b9d22605d0581187809865f029541c0381cc164 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 7 Aug 2023 11:28:00 +0200
Subject: Start on displaying HTML

---
 web/webserver.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'web')

diff --git a/web/webserver.scm b/web/webserver.scm
index c8c1fb2..e1a453c 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -193,10 +193,19 @@
           (string-append "Resource X not found: "
                          (uri->string (request-uri request)))))
 
+(define (view-doc path page)
+  page)
+
 (define (not-found uri)
   (list (build-response #:code 404)
         (string-append "Resource not found: " (uri->string uri))))
 
+(define* (render-doc path page #:key (extra-headers '()))
+  (list (append extra-headers
+                '((content-type . (text/html))))
+        (lambda (port)
+          (display (view-doc path page) port))))
+
 (define (render-json json)
   (list '((content-type . (application/json)))
         (lambda (port)
@@ -215,6 +224,8 @@
      (render-json info))
     (('GET "version")
      (render-json get-version))
+    (('GET "doc" path ... page) ; serve documents from /doc/
+     (render-doc path page))
     (('GET "species.json")
      (render-json (get-species-rec)))
     (('GET "species.meta.json")
-- 
cgit v1.2.3