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/view.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 web/view/view.scm

(limited to 'web/view/view.scm')

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