aboutsummaryrefslogtreecommitdiff
path: root/web/view
diff options
context:
space:
mode:
authorPjotr Prins2023-08-28 12:17:07 +0200
committerPjotr Prins2023-08-28 12:17:07 +0200
commit89801fbdb731ab64d49dd92fe5ad3ac2ee647e4d (patch)
tree8b79f41fdc3fa7acbd79f2859b21458d1ed3b18e /web/view
parent2b11169a6757481dd33169bed1579620caad6fc5 (diff)
downloadgn-guile-89801fbdb731ab64d49dd92fe5ad3ac2ee647e4d.tar.gz
Serve image
Diffstat (limited to 'web/view')
-rw-r--r--web/view/brand/msk.scm5
-rw-r--r--web/view/view.scm5
2 files changed, 7 insertions, 3 deletions
diff --git a/web/view/brand/msk.scm b/web/view/brand/msk.scm
index 9215c20..99cb283 100644
--- a/web/view/brand/msk.scm
+++ b/web/view/brand/msk.scm
@@ -28,13 +28,16 @@
(meta (@ (name "author") (content "GN4MSK team (https://msk.genenetwork.org/)")))
(meta (@ (name "viewport")
(content "width=device-width, initial-scale=1")))
+ ; (meta (@ (http-equiv "refresh") (content "5")))
(link
(@ (rel "stylesheet")
(media "screen")
(type "text/css")
(href "./css/gn-doc.css")))
,@head)
- (body (h1 ,title)
+ (body
+ (img (@ (src "/static/images/GN4MSK.png")))
+ (h1 ,title)
(p ,info)
(footer
(p "Copyright © 2005—2023 by the GeneNetwork community with a touch of " (span (@ (class "lambda")) "λ") "!")
diff --git a/web/view/view.scm b/web/view/view.scm
index e3b4ee1..6a0b8ba 100644
--- a/web/view/view.scm
+++ b/web/view/view.scm
@@ -13,6 +13,7 @@
(define* (view-brand path)
(msk-html #:info
- '((h2 "HI")
- (img (@ (src "static/images/CMOR.jpg"))
+ '((h2 "Introduction")
+ (p "New project for MSK with some live coding!")
+ (img (@ (src "/static/images/CMOR.jpg")
))))