9 lines
211 B
Scheme
9 lines
211 B
Scheme
|
(define-module (webui svg)
|
||
|
#:export (svg))
|
||
|
(use-modules (sxml simple))
|
||
|
|
||
|
(define (svg width height . body)
|
||
|
`(svg (@ (xmlns . "http://www.w3.org/2000/svg")
|
||
|
(viewBox ("0 0 " ,width " " ,height)))
|
||
|
,@body))
|