diff options
Diffstat (limited to 'web/view')
| -rw-r--r-- | web/view/brand/aging.scm | 52 | ||||
| -rw-r--r-- | web/view/view.scm | 32 |
2 files changed, 82 insertions, 2 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") ".")) + )))) diff --git a/web/view/view.scm b/web/view/view.scm index 388be74..911ed7b 100644 --- a/web/view/view.scm +++ b/web/view/view.scm @@ -11,8 +11,36 @@ #:export (view-brand)) +(define (view-aging) + (aging-html #:info + '((h2 "Introduction") + (p "New aging portal! This is initial work for providing a full community webservice for aging.") + (h2 "Explore GeneNetwork for aging (GN4AGING)") + (p "Find all genes that have a hit for") + (ul + (li (a (@ (href "https://genenetwork.org/gsearch?type=gene&terms=aging")) "aging"))) + (p "Find all phenotypes that have a hit for") + (ul + (li (a (@ (href "https://genenetwork.org/gsearch?type=phenotype&terms=aging")) "aging")) + ) + (p "Note that you can use the powerful search at the top of the results page! +Search terms can be " + (a (@ (href "https://issues.genenetwork.org/topics/xapian-search-queries")) "added") ". In the results click on any item to (re)run the relevant GWA or QTL mapping") + (h2 "Contact") + (p "We host private and public datasets. If you are interested in exploring data on GeneNetwork, or to add your own +data to benefit from the power of integrated datasets, please contact:") + (a (@ (href "https://davidashbrook.wordpress.com/")) "David Ashbrook") + " | " + (a (@ (href "https://uthsc.edu/genetics/faculty-staff.php")) "Rob W Williams") + " | " + (a (@ (href "https://thebird.nl")) "Pjotr Prins") + (p) + (img (@ (src "/static/images/CMOR.jpg") (width "1000")))))) + (define* (view-brand path) - (msk-html #:info + (match path + ("aging" (view-aging)) + ( _ (msk-html #:info '((h2 "Introduction") (p "New start page for MSK! This is initial work for providing a full community webservice for musculoskeletal disease.") (h2 "Explore GeneNetwork for MSK (GN4MSK)") @@ -42,4 +70,4 @@ data to benefit from the power of integrated datasets, please contact:") (a (@ (href "https://thebird.nl")) "Pjotr Prins") (p) (img (@ (src "/static/images/CMOR.jpg") (width "1000")))) - )) + )))) |