blob: e3b4ee1d2fe9ed4a48e875071ff491338b5dba44 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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"))
))))
|
