Added first HTML view using code from mumi/dave

1 files changed, 4 insertions, 5 deletions

diff --git a/web/webserver.scm b/web/webserver.scm
index e1a453c..d6f78fe 100755
--- a/web/webserver.scm
+++ b/web/webserver.scm
@@ -26,7 +26,9 @@
  (web uri)
  (fibers web server)
  (gn cache memoize)
- (gn db sparql))
+ (gn db sparql)
+ (web sxml)
+ (web view doc))
 
 (define get-version
   "2.0")
@@ -193,9 +195,6 @@
           (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))))
@@ -204,7 +203,7 @@
   (list (append extra-headers
                 '((content-type . (text/html))))
         (lambda (port)
-          (display (view-doc path page) port))))
+          (sxml->html (view-doc path page) port))))
 
 (define (render-json json)
   (list '((content-type . (application/json)))