ywatds/webui/svg.scm

(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))