blob: bdcf0092bee9b65d18c0f88bb0a15fc016d09ea1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(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 "Introduction")
(p "New project for MSK with some live coding!")
(img (@ (src "/static/images/CMOR.jpg")))
)))
|
