aboutsummaryrefslogtreecommitdiff
path: root/web/view/brand/aging.scm
diff options
context:
space:
mode:
authorPjotr Prins2023-09-11 10:59:57 -0500
committerPjotr Prins2023-09-11 10:59:57 -0500
commitbb1beb91f41055b5fb892cef69d1bb4f84e02508 (patch)
treea4e52dbe64e60bd2ca81d67b5a7bc314a1add845 /web/view/brand/aging.scm
parentafce0bd01077ee279c79755b284f238fb544295f (diff)
downloadgn-guile-bb1beb91f41055b5fb892cef69d1bb4f84e02508.tar.gz
Support for aging
Diffstat (limited to 'web/view/brand/aging.scm')
-rw-r--r--web/view/brand/aging.scm52
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") "."))
+ ))))