diff options
Diffstat (limited to 'web/view/view.scm')
| -rw-r--r-- | web/view/view.scm | 32 |
1 files changed, 30 insertions, 2 deletions
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")))) - )) + )))) |