From 0720d433de118f9bd4ca73e1e4a07eb287152e87 Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Sun, 27 Aug 2023 17:52:35 +0200
Subject: Started on branding

---
 web/view/brand/msk.scm | 44 ++++++++++++++++++++++++++++++++++++++++++++
 web/view/view.scm      | 18 ++++++++++++++++++
 2 files changed, 62 insertions(+)
 create mode 100644 web/view/brand/msk.scm
 create mode 100644 web/view/view.scm

(limited to 'web/view')

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"))
+  ))))
-- 
cgit v1.2.3