diff options
Diffstat (limited to 'web/view/doc.scm')
| -rw-r--r-- | web/view/doc.scm | 21 |
1 files changed, 12 insertions, 9 deletions
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)) |