Support for aging

1 files changed, 52 insertions, 0 deletions

diff --git a/web/view/brand/aging.scm b/web/view/brand/aging.scm
new file mode 100644
index 0000000..c6f8284
--- /dev/null
+++ b/web/view/brand/aging.scm
@@ -0,0 +1,52 @@
+;; Branding module for AGING
+(define-module (web view brand aging)
+  #: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 (aging-html))
+
+
+(define* (aging-html #:key
+                 (head '())
+                 (body '())
+                 (title "GN4AGING: GeneNetwork and Genetics for Aging")
+                 (info "")
+                 (meta "")
+                 (data "")
+                 (back "")
+                 )
+  `((doctype "html")
+    (html (@ (lang "en"))
+     (head
+      (title ,title)
+      (meta (@ (charset "utf-8")))
+      (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))
+      (meta (@ (name "author") (content "GN4AGING team (https://aging.genenetwork.org/)")))
+      (meta (@ (name "description") (content "The GN4AGING portal for muscuskeletal disease and model organisms")))
+      (meta (@ (name "viewport")
+               (content "width=device-width, initial-scale=1")))
+      ; (meta (@ (http-equiv "refresh") (content "5")))
+      (link
+       (@ (rel "stylesheet")
+          (media "screen")
+          (type "text/css")
+          ; (href "./css/gn-doc.css")
+          ))
+      ,@head)
+     (body
+           (img (@ (src "/static/images/old-man-lisboa.jpg")))
+           (h1 ,title)
+           (p ,info)
+           (footer
+            (hr)
+            (p "Copyright © 2005-2023 "
+            (a (@ (href "https://genenetwork.org/")) "GeneNetwork Webservices"))
+            (p "GeneNetwork and this website runs fully on free software. See status and download the "
+               (a (@ (href "https://ci.genenetwork.org/"))
+                  "source code") "."))
+           ))))