aboutsummaryrefslogtreecommitdiff
path: root/web/view/view.scm
diff options
context:
space:
mode:
Diffstat (limited to 'web/view/view.scm')
-rw-r--r--web/view/view.scm18
1 files changed, 18 insertions, 0 deletions
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"))
+ ))))