From b138df84729aba391e03cacd44746cf1cd9f32b2 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 30 Aug 2023 11:37:51 +0200
Subject: MSK home

---
 web/view/brand/msk.scm |  6 ++++--
 web/view/view.scm      | 27 +++++++++++++++++++++++++--
 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)))
-- 
cgit v1.2.3