aboutsummaryrefslogtreecommitdiff
path: root/web/view/doc.scm
diff options
context:
space:
mode:
Diffstat (limited to 'web/view/doc.scm')
-rw-r--r--web/view/doc.scm21
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))