[elpa] externals/sketch-mode 4fd7932 05/12: Fix (uncomment) labels

[ELPA Syncer]

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

    Fix (uncomment) labels
---
 sketch-mode.el | 64 +++++++++++++++++++++++++++++-----------------------------
 1 file changed, 32 insertions(+), 32 deletions(-)

diff --git a/sketch-mode.el b/sketch-mode.el
index 4068760..7cf4907 100644
--- a/sketch-mode.el
+++ b/sketch-mode.el
@@ -305,38 +305,38 @@ If value of variable ‘sketch-show-labels' is ‘layer', 
create ..."
                       (+ (dom-attr node 'x) 2)
                       (+ (dom-attr node 'y)
                          (- (dom-attr node 'height) 2))))
-              ;; ('line (sketch-label-text-node
-              ;;         node
-              ;;         (dom-attr node 'x1)
-              ;;         (dom-attr node 'y1)))
-              ;; ((or 'circle 'ellipse)
-              ;;  (sketch-label-text-node
-              ;;   node
-              ;;   (dom-attr node 'cx)
-              ;;   (dom-attr node 'cy)))
-              ;; ((or 'polyline 'polygon)
-              ;;  (let ((coords (split-string
-              ;;                 (car (split-string (dom-attr node 'points) 
","))
-              ;;                 nil
-              ;;                 t)))
-              ;;    (sketch-label-text-node
-              ;;     node
-              ;;     (string-to-number (car coords))
-              ;;     (string-to-number (cadr coords)))))
-              ;; ('text (sketch-label-text-node
-              ;;         node
-              ;;         (dom-attr node 'x)
-              ;;         (+ (dom-attr node 'y)
-              ;;            sketch-label-size)))
-              ;; ('g (let ((s (dom-attr node
-              ;;                        'transform)))
-              ;;       (string-match "translate\(\\([0-9]*\\)[, 
]*\\([0-9]*\\)" s)
-              ;;       (let ((x (match-string 1 s))
-              ;;             (y (match-string 2 s)))
-              ;;         (sketch-label-text-node
-              ;;          node
-              ;;          x
-              ;;          y))))
+              ('line (sketch-label-text-node
+                      node
+                      (dom-attr node 'x1)
+                      (dom-attr node 'y1)))
+              ((or 'circle 'ellipse)
+               (sketch-label-text-node
+                node
+                (dom-attr node 'cx)
+                (dom-attr node 'cy)))
+              ((or 'polyline 'polygon)
+               (let ((coords (split-string
+                              (car (split-string (dom-attr node 'points) ","))
+                              nil
+                              t)))
+                 (sketch-label-text-node
+                  node
+                  (string-to-number (car coords))
+                  (string-to-number (cadr coords)))))
+              ('text (sketch-label-text-node
+                      node
+                      (dom-attr node 'x)
+                      (+ (dom-attr node 'y)
+                         sketch-label-size)))
+              ('g (let ((s (dom-attr node
+                                     'transform)))
+                    (string-match "translate\(\\([0-9]*\\)[, ]*\\([0-9]*\\)" s)
+                    (let ((x (match-string 1 s))
+                          (y (match-string 2 s)))
+                      (sketch-label-text-node
+                       node
+                       x
+                       y))))
               ))
           nodes))
     svg-labels))