diff options
| author | Pjotr Prins | 2023-08-30 11:37:51 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-30 11:37:51 +0200 |
| commit | b138df84729aba391e03cacd44746cf1cd9f32b2 (patch) | |
| tree | ee0cfaa987eb97274d2a57e6224fa9f870f42d64 | |
| parent | 0f50763c9eef214bc301b7af57e0a59f8d0b761f (diff) | |
| download | gn-guile-b138df84729aba391e03cacd44746cf1cd9f32b2.tar.gz | |
MSK home
| -rw-r--r-- | web/view/brand/msk.scm | 6 | ||||
| -rw-r--r-- | web/view/view.scm | 27 | ||||
| -rwxr-xr-x | web/webserver.scm | 2 |
3 files changed, 30 insertions, 5 deletions
diff --git a/web/view/brand/msk.scm b/web/view/brand/msk.scm index 99cb283..4b34c43 100644 --- a/web/view/brand/msk.scm +++ b/web/view/brand/msk.scm @@ -40,8 +40,10 @@ (h1 ,title) (p ,info) (footer - (p "Copyright © 2005—2023 by the GeneNetwork community with a touch of " (span (@ (class "lambda")) "λ") "!") - (p "This is free software. Download the " + (hr) + (p "Copyright © 2005-2023 " + (a (@ (href "https://genenetwork.org/")) "GeneNetwork Webservices")) + (p "This is 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 bdcf009..7be17ca 100644 --- a/web/view/view.scm +++ b/web/view/view.scm @@ -14,6 +14,29 @@ (define* (view-brand path) (msk-html #:info '((h2 "Introduction") - (p "New project for MSK with some live coding!") - (img (@ (src "/static/images/CMOR.jpg"))) + (p "New start page for MSK! This is initial work for providing a full community webservice for muscoskeletal disease.") + (h2 "Explore GeneNetwork for MSK (GN4MSK)") + (p "Find all genes that have a hit for") + (ul + (li (a (@ (href "https://genenetwork.org/gsearch?type=gene&terms=bone")) "bone")) + (li (a (@ (href "https://genenetwork.org/gsearch?type=gene&terms=skelet")) "skeleton")) + (li (a (@ (href "https://genenetwork.org/gsearch?type=gene&terms=muscle")) "muscle"))) + (p "Find all phenotypes that have a hit for") + (ul + (li (a (@ (href "https://genenetwork.org/gsearch?type=phenotype&terms=bone")) "bone")) + (li (a (@ (href "https://genenetwork.org/gsearch?type=phenotype&terms=skelet")) "skeleton")) + (li (a (@ (href "https://genenetwork.org/gsearch?type=phenotype&terms=muscle")) "muscle")) + ) + (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://med.virginia.edu/cphg/charles-r-farber/")) "Charles Farber") + " | " + (a (@ (href "https://medschool.cuanschutz.edu/orthopedics/research/labs/ackert-bicknell-lab")) "Cheryl Ackert-Bicknell") + " | " + (a (@ (href "https://thebird.nl")) "Pjotr Prins") + ; (img (@ (src "/static/images/CMOR.jpg"))) ))) diff --git a/web/webserver.scm b/web/webserver.scm index 2c9fd53..73ae7ed 100755 --- a/web/webserver.scm +++ b/web/webserver.scm @@ -130,7 +130,7 @@ otherwise search for set/group data" (render-json get-version)) (('GET "static" "images" fn) (render-static-image (string-append "static/images/" fn))) - (('GET "brand" path) + (('GET "home" path) (render-brand path)) (('GET "doc" "species.html") (render-doc "doc" "species.html" (get-species-meta))) |