Started on branding

2 files changed, 62 insertions, 0 deletions

diff --git a/web/view/brand/msk.scm b/web/view/brand/msk.scm
new file mode 100644
index 0000000..9215c20
--- /dev/null
+++ b/web/view/brand/msk.scm
@@ -0,0 +1,44 @@
+;; Branding module for MSK
+(define-module (web view brand msk)
+  #: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)
+  #:export (msk-html))
+
+
+(define* (msk-html #:key
+                 (head '())
+                 (body '())
+                 (title "GN4MSK: GeneNetwork for Musculoskeletal Genetics")
+                 (info "")
+                 (meta "")
+                 (data "")
+                 (back "")
+                 )
+  `((doctype "html")
+    (html (@ (lang "en"))
+     (head
+      (title ,title)
+      (meta (@ (http-equiv "Content-Type") (content "text/html; charset=UTF-8")))
+      (meta (@ (name "author") (content "GN4MSK team (https://msk.genenetwork.org/)")))
+      (meta (@ (name "viewport")
+               (content "width=device-width, initial-scale=1")))
+      (link
+       (@ (rel "stylesheet")
+          (media "screen")
+          (type "text/css")
+          (href "./css/gn-doc.css")))
+      ,@head)
+     (body (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 "
+               (a (@ (href "https://ci.genenetwork.org/"))
+                  "source code") "."))
+           ))))
diff --git a/web/view/view.scm b/web/view/view.scm
new file mode 100644
index 0000000..e3b4ee1
--- /dev/null
+++ b/web/view/view.scm
@@ -0,0 +1,18 @@
+(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 "HI")
+              (img (@ (src "static/images/CMOR.jpg"))
+  ))))