ywatds/webui/svg.scm

9 lines
211 B
Scheme
Raw Normal View History

2021-09-06 03:41:24 -07:00
(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))