diff options
Diffstat (limited to 'web/view/brand/aging.scm')
| -rw-r--r-- | web/view/brand/aging.scm | 52 |
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") ".")) + )))) |