From a9062989c2c7f54258b7fb4d399129f1d2453d1f Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Thu, 10 Aug 2023 08:06:48 +0200
Subject: HTML viewing

---
 web/view/doc.scm | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'web/view')

diff --git a/web/view/doc.scm b/web/view/doc.scm
index c934a2a..1125147 100644
--- a/web/view/doc.scm
+++ b/web/view/doc.scm
@@ -5,16 +5,17 @@
   #:use-module (ice-9 iconv)
   #:use-module (ice-9 receive)
   #:use-module (ice-9 string-fun)
-  ; #:use-module (sxml simple)
+  #:use-module (sxml simple)
   #:use-module (web sxml)
-
   #:export (view-doc))
 
+(define (parse-html buf)
+  (car (cdr (xml->sxml buf))))
 
 (define* (layout #:key
                  (head '())
                  (body '())
-                 (title "Guix issue tracker"))
+                 (title "GeneNetwork.org API"))
   `((doctype "html")
     (html (@ (lang "en"))
      (head
@@ -29,13 +30,15 @@
           (type "text/css")
           (href "./css/gn-doc.css")))
       ,@head)
-     (body (h1 page)
+     (body (h1 ,body)
+           ; ,body
+           ; (p ,(parse-html "<b>some raw really <i>text</i> here</b>"))
            (footer
-                   (p "Copyright © 2005—2023 by the GeneNetwork community with " (span (@ (class "lambda")) "λ") "!")
-                   (p "This is free software. Download the "
-                      (a (@ (href "https://ci.genenetwork.org/"))
-                         "source code") "."))
+            (p "Copyright © 2005—2023 by the GeneNetwork community with a touch of " (span (@ (class "lambda")) "λ") "!")
+            (p "This is free software. Download the "
+               (a (@ (href "https://ci.genenetwork.org/"))
+                  "source code") "."))
            ))))
 
 (define (view-doc path page)
-  (layout))
+  (layout #:body page))
-- 
cgit v1.2.3