From acaea1fb7d6544a98867a16b283085592a042b9f Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 11 Sep 2023 16:47:48 -0500
Subject: Adding pico css

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

(limited to 'web/webserver.scm')

diff --git a/web/webserver.scm b/web/webserver.scm
index ce4ab9d..fe4596b 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -98,6 +98,12 @@ otherwise search for set/group data"
           (last-modified . ,(time-utc->date modified)))
         (call-with-input-file file-name get-bytevector-all))))
 
+(define* (render-file path page #:optional rec #:key (extra-headers '()))
+  (list (append extra-headers
+                '((content-type . (text/html))))
+        (lambda (port)
+          (sxml->html (view-doc path page rec) port))))
+
 (define* (render-doc path page #:optional rec #:key (extra-headers '()))
   (list (append extra-headers
                 '((content-type . (text/html))))
@@ -126,6 +132,8 @@ otherwise search for set/group data"
      (render-json info))
     (('GET "version")
      (render-json get-version))
+    (('GET "css" fn)
+     (render-file fn))
     (('GET "static" "images" fn)
      (render-static-image (string-append "static/images/" fn)))
     (('GET "home" path)
-- 
cgit v1.2.3