aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--web/view/brand/msk.scm6
-rw-r--r--web/view/view.scm27
-rwxr-xr-xweb/webserver.scm2
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)))