[elpa] externals/svg-clock d1aeadd 11/18: There's no longer an svg-def function in svg.el

[Stefan Monnier]

branch: externals/svg-clock
commit d1aeadd9f4621afa4db9fe5cacafa9569f4f6d8d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    There's no longer an svg-def function in svg.el
---
 svg-clock.el | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/svg-clock.el b/svg-clock.el
index bf0147c..a42e0af 100644
--- a/svg-clock.el
+++ b/svg-clock.el
@@ -140,8 +140,8 @@ its colors are FOREGROUND and BACKGROUND."
                                 (svg-clock-transform
                                  'rotate
                                  (+ (* hours 30) (/ minutes 2.0))  .5 .5)))))
-    (dolist (def defs) (svg-def svg def))
-    (svg-def svg clock)
+    (dolist (def defs) (svg-clock-def svg def))
+    (svg-clock-def svg clock)
     (dom-append-child svg
                       (svg-clock-use 'clock
                                      (svg-clock-transform 'scale size size)))
@@ -257,6 +257,13 @@ Optional argument ATTRIBUTES contain conses with SVG 
attributes."
               (r . ,radius)
               ,@attributes)))
 
+(defun svg-clock-def (svg def)
+  (dom-append-child (or (dom-by-tag svg 'defs)
+                       (let ((node (dom-node 'defs)))
+                         (dom-add-child-before svg node) node))
+                   def)
+  svg)
+
 (defun svg-clock-line (x1 y1 x2 y2 &rest attributes)
   "Create an SVG line element starting at (X1, Y1), ending at (X2, Y2).
 Optional argument ATTRIBUTES contain conses with SVG attributes."