;;; -*- lexical-binding: t -*-
;;;
;;; this file:
;;;   http://user.it.uu.se/~embe8573/emacs-init/svg-my.el
;;;   https://dataswamp.org/~incal/emacs-init/svg-my.el
;;;
;;; thanks to Tomas Hlavaty at gmane.emacs.help

(require 'xml)

(defun svg-init (x y w h &rest body)
  `((svg
     ((xmlns   .  "http://www.w3.org/2000/svg")
      (viewBox . ,(format "%s %s %s %s" x y w h)) )
     ,@body) ))

(defun svg-circle (cx cy r)
  `(circle
    ((cx . ,(format "%s" cx))
     (cy . ,(format "%s" cy))
     (r  . ,(format "%s" r)) )))

(defun svg-test ()
  (with-temp-buffer
    (xml-print
     (svg-init 0 0 100 100 (svg-circle 50 50 20)) )
    (write-file "~/svg-test.svg") ))
;; (svg-test)