(define-module (web view view)
  #: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)
  #:use-module (web view brand msk)

  #:export (view-brand))

(define* (view-brand path)
  (msk-html #:info
            '((h2 "Introduction")
              (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://uthsc.edu/genetics/faculty-staff.php")) "Rob W Williams")
              (a (@ (href "https://thebird.nl")) "Pjotr Prins")
              (p)
              (img (@ (src "/static/images/CMOR.jpg" width="800px")))
  )))