diff options
author | Pjotr Prins | 2023-08-27 17:52:35 +0200 |
---|---|---|
committer | Pjotr Prins | 2023-08-27 17:52:35 +0200 |
commit | 0720d433de118f9bd4ca73e1e4a07eb287152e87 (patch) | |
tree | 55e8ed61f59761e2bfd3e7416b99a03e12a1e3f8 /web/view/view.scm | |
parent | 2a8ae48a36cc88105c9a4c056132c9a47e2f120a (diff) | |
download | gn-guile-0720d433de118f9bd4ca73e1e4a07eb287152e87.tar.gz |
Started on branding
Diffstat (limited to 'web/view/view.scm')
-rw-r--r-- | web/view/view.scm | 18 |
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")) + )))) |