[elpa] master a52b483 1/3: There's no longer an svg-def function in svg.el

[Lars Ingebrigtsen]

branch: master
commit a52b4832ccf76b4e4332fefa225f21cc26de25c6
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

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

diff --git a/packages/svg-clock/svg-clock.el b/packages/svg-clock/svg-clock.el
index bf0147c..a42e0af 100644
--- a/packages/svg-clock/svg-clock.el
+++ b/packages/svg-clock/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."