aboutsummaryrefslogtreecommitdiff
path: root/web/view
diff options
context:
space:
mode:
authorPjotr Prins2023-08-27 17:52:35 +0200
committerPjotr Prins2023-08-27 17:52:35 +0200
commit0720d433de118f9bd4ca73e1e4a07eb287152e87 (patch)
tree55e8ed61f59761e2bfd3e7416b99a03e12a1e3f8 /web/view
parent2a8ae48a36cc88105c9a4c056132c9a47e2f120a (diff)
downloadgn-guile-0720d433de118f9bd4ca73e1e4a07eb287152e87.tar.gz
Started on branding
Diffstat (limited to 'web/view')
-rw-r--r--web/view/brand/msk.scm44
-rw-r--r--web/view/view.scm18
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"))
+ ))))