diff options
Diffstat (limited to 'web/view')
| -rw-r--r-- | web/view/brand/msk.scm | 5 | ||||
| -rw-r--r-- | web/view/view.scm | 5 |
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") )))) |