From 34ccdfe012cf11775ad3771e12e649aeabfae3ad Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Mon, 7 Aug 2023 11:56:33 +0200
Subject: Added first HTML view using code from mumi/dave

---
 web/view/doc.scm | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 web/view/doc.scm

(limited to 'web/view')

diff --git a/web/view/doc.scm b/web/view/doc.scm
new file mode 100644
index 0000000..c934a2a
--- /dev/null
+++ b/web/view/doc.scm
@@ -0,0 +1,41 @@
+(define-module (web view doc)
+  #:use-module (json)
+  #:use-module (ice-9 match)
+  #:use-module (ice-9 format)
+  #:use-module (ice-9 iconv)
+  #:use-module (ice-9 receive)
+  #:use-module (ice-9 string-fun)
+  ; #:use-module (sxml simple)
+  #:use-module (web sxml)
+
+  #:export (view-doc))
+
+
+(define* (layout #:key
+                 (head '())
+                 (body '())
+                 (title "Guix issue tracker"))
+  `((doctype "html")
+    (html (@ (lang "en"))
+     (head
+      (title ,title)
+      (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))
+      (meta (@ (name "author") (content "GeneNetwork team")))
+      (meta (@ (name "viewport")
+               (content "width=device-width, initial-scale=1")))
+      (link
+       (@ (rel "stylesheet")
+          (media "screen")
+          (type "text/css")
+          (href "./css/gn-doc.css")))
+      ,@head)
+     (body (h1 page)
+           (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") "."))
+           ))))
+
+(define (view-doc path page)
+  (layout))
-- 
cgit v1.2.3