[elpa] externals/sketch-mode 6433b20 30/38: Add circle/ellipse labels

[ELPA Syncer]

branch: externals/sketch-mode
commit 6433b20da7a98f8eec597d86f57be61a562da393
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Add circle/ellipse labels
---
 sketch-mode.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 9987caa..62900ac 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -552,7 +552,14 @@ values"
                                :y (dom-attr node 'y1)
                                :font-size 20
                                :stroke "red"
-                               :fill "red"))))
+                               :fill "red"))
+              ((or 'circle 'ellipse) (svg-text svg-labels
+                                               (dom-attr node 'id)
+                                               :x (dom-attr node 'cx)
+                                               :y (dom-attr node 'cy)
+                                               :font-size 20
+                                               :stroke "red"
+                                               :fill "red"))))
         nodes)
     svg-labels))